TOC in Word
TOC in Word
(OP)
This question was announced mid october but noone replied, maybe because a wrong subject?
Cant anyone help me ??
Hi all
I have a weird problem with TOC
The following (simplified) code put a TC field and make a TOC from that:
Private Sub TabCon()
Selection.HomeKey unit:=wdStory
ActiveDocument.TablesOfContents.MarkEntry Range:=Selection.Range, _
Entry:="text1" & Chr(9) & "text2" & Chr(9) & "text3", TableID:="P"
Selection.EndKey unit:=wdStory
ActiveDocument.TablesOfContents.Add Range:=Selection.Range, UseFields:=True, _
UseHeadingStyles:=False, TableID:="P"
End Sub
While the TC field is inserted with tabulations:
{ TC "text1(tab)text2(tab)text3" \f P \l "1" }
where (tab) is the tabulation mark, the TOC is inserted only with the first tabulation (and tabulation for page) the second tabulation become a space:
text1(tab)text2 text3(tab)1
Field: { TOC \f P }
Can anyone explain it to me and/or solve the problem I would greately appreciate that - thanks!
Best regards
cll
Cant anyone help me ??
Hi all
I have a weird problem with TOC
The following (simplified) code put a TC field and make a TOC from that:
Private Sub TabCon()
Selection.HomeKey unit:=wdStory
ActiveDocument.TablesOfContents.MarkEntry Range:=Selection.Range, _
Entry:="text1" & Chr(9) & "text2" & Chr(9) & "text3", TableID:="P"
Selection.EndKey unit:=wdStory
ActiveDocument.TablesOfContents.Add Range:=Selection.Range, UseFields:=True, _
UseHeadingStyles:=False, TableID:="P"
End Sub
While the TC field is inserted with tabulations:
{ TC "text1(tab)text2(tab)text3" \f P \l "1" }
where (tab) is the tabulation mark, the TOC is inserted only with the first tabulation (and tabulation for page) the second tabulation become a space:
text1(tab)text2 text3(tab)1
Field: { TOC \f P }
Can anyone explain it to me and/or solve the problem I would greately appreciate that - thanks!
Best regards
cll





RE: TOC in Word
As a rule, I wouldn't expect the ENG-TIPS techies to be up on the intracacies of Word.
RE: TOC in Word
TTFN
RE: TOC in Word
You might be right!
(- already tried EngTips).
Have found another promising link www.mvps.org/word.
Regards
cll
RE: TOC in Word
Private Sub tabcon1()
Selection.HomeKey Unit:=wdStory
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldTOCEntry, Text:= _
Chr(34) & "text1" & Chr(9) & "text2" & Chr(9) & "text3" & Chr(9) & "text4" & _
Chr(34) & "\f P \w", PreserveFormatting:=True
Dim Indholdrange As Range
Set Indholdrange = ActiveDocument.Bookmarks("PIndhold").Range
Selection.Fields.Add Range:=Indholdrange, Type:=wdFieldTOC, Text:= _
"\f P \w", preserveformatting:=True
End Sub
Take care of wordwrap. Bookmark is just to control where to insert the TOC.
If anyone should be interested.
Best regards
cll