Fields in MS Word: Create a partial TOC from another document using bookmarks and the RD field

Hi Alvar,

No doubt that the solution suggested by Paul Edstein (posted by Lisa) is good since it makes the problem go away.

I have created a macro that can be used as an alternative. The macro does not fix the problems within the AutoText fields but it fixes the problem in the table of contents (TOC). The macro below assumes that only one
TOC is found in the document. The macro:

1. unlocks the TOC field
2. updates the TOC field (will bring the undesired paragraphs back in the TOC)
3. finds and deletes the undesired paragraphs in the TOC by examining the TOC bookmarks that the hyperlinks in the TOC point to
4. locks the TOC field

Further details are included in comments in the macro below.

------------------MACRO START-----------------

Sub UpdateTOC_RemoveFakeItemsFromTOC()

'Fake items are paragraphs with hyperlinks to TOC bookmarks

'that are erroneously added at the end of the field code of AutoText fields that insert a numbered paragraph via a conditional field construction

Dim oToc As TableOfContents

Dim oDoc As Document

Dim oHL As Hyperlink

Dim lngDeleted As Long

Const cstrTitle As String = "Update TOC and Remove Fake Items From TOC"

If ActiveDocument.TablesOfContents.Count = 0 Then

MsgBox "No TOC found in document.", vbOKOnly, cstrTitle

Exit Sub

End If

Set oDoc = ActiveDocument

Set oToc = oDoc.TablesOfContents(1)

lngDeleted = 0

Application.ScreenUpdating = False

'Unlock TOC field if locked - TOC field itself is first field, hyperlink fields come after

oToc.Range.Fields(1).Locked = False

'Update TOC

oToc.Update

'Check all hyperlinks in TOC - if length of bookmarked range the hyperlink points to is an empty string

'then delete the paragraph with that hyperlink from the TOC

For Each oHL In oToc.Range.Hyperlinks

If oDoc.Bookmarks(oHL.SubAddress).Range.Text = "" Then

oHL.Range.Paragraphs.First.Range.Delete

lngDeleted = lngDeleted + 1

End If

Next oHL

'Lock TOC

oToc.Range.Fields(1).Locked = True

Application.ScreenUpdating = False

Application.ScreenRefresh

MsgBox "Finished updating TOC. " & lngDeleted & " paragraphs with fake references deleted. The TOC field has been locked.", vbOKOnly, cstrTitle

Set oDoc = Nothing

Set oToc = Nothing

End Sub

------------------MACRO END-----------------

Hi Doug,

Macro to overcome the problem with propagation of mail merge field fields with a label type mail merge when using a Tablet PC and some other Computers that have Tablet PC Functionality available:

Thanks for posting the code here .

Cheers,

Lisa [MS MVP Word]

The field don't update anymore and is simply text. I need to convert multiple PDFs and they'd have the original things of the document not the updated fields.

The Code in Word: ActiveDocument.Fields.Unlink

Hello, > "renounce lookup fields in tables."
- Have you come out without? Yes!
"But as soon as I (from the list on the right side of the screen) a FeldX (not the
> lookup field) draw from table1 into the form, any input into the blocked form.
If I understand you Correctly, you drag a field from the lookup table into a form did makes the record source of the form not updatable and THEREFORE it is "blocked"
Possibly You can therefore upload each a little Example I throw a look at it.

Greeting

Gunter - Access FAQs:

http://www.donkarl.com

Hi Robin,

The simplest way is to toggle the display of field codes and then search for ^d DATE. If you are on a Windows computer you would toggle the display of the field code using the keyboard shortcut Alt+F9 (or, on some computers Fn+Alt+F9). Are you planning on doing
this with a macro? Your title would appear to request this.

Are your fields DATE fields or CREATEDATE or SAVEDATE or PRINTDATE? See my page on the different date fields in Word.

http://addbalance.com/word/datefields1.htm

What is it you want to replace them with?

This forum is a user-to-user support forum. I am a fellow user.

I hope this information helps.

Please let me know if you have any more questions or require further help.

You can ask for more help by replying to this post (Reply button below).

Stay well