|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Display Modes |
|
#1
September 11th, 2007, 11:40 AM
posted to microsoft.public.word.tables
|
|||
|
|||
How to find out the length the TOC by a Word 2007 macro?
How to solve how many lines or items exist in the TOC of a Word (2007)
document using the Basic macro language? 
|
|
#2
September 11th, 2007, 12:10 PM
posted to microsoft.public.word.tables
|
|||
|
|||
|
How to find out the length the TOC by a Word 2007 macro?
Hi Tapio,
Here's one way to count all TOCs in the active document: Sub Count_TOC_Entries() Dim i As Integer With ActiveDocument If .TablesOfContents.Count 0 Then For i = 1 To .TablesOfContents.Count MsgBox "TOC " & i & " in """ & .Name & """ has " & _ .TablesOfContents(i).Range.Paragraphs.Count & " Entries." Next i Else MsgBox "No TOCs found in " & .Name End If End With End Sub Cheers -- macropod [MVP - Microsoft Word] ------------------------- "Tapio Marjomaki" Tapio wrote in message ... How to solve how many lines or items exist in the TOC of a Word (2007) document using the Basic macro language?
|
|
#3
September 11th, 2007, 12:56 PM
posted to microsoft.public.word.tables
|
|||
|
|||
|
How to find out the length the TOC by a Word 2007 macro?
Maybe I'm missing something, but the macro seems to count the paragraph in
which the TOC field is located too? In other words, you would have to use ..Count - 1. -- Stefan Blom Microsoft Word MVP "macropod" wrote in message ... Hi Tapio, Here's one way to count all TOCs in the active document: Sub Count_TOC_Entries() Dim i As Integer With ActiveDocument If .TablesOfContents.Count 0 Then For i = 1 To .TablesOfContents.Count MsgBox "TOC " & i & " in """ & .Name & """ has " & _ .TablesOfContents(i).Range.Paragraphs.Count & " Entries." Next i Else MsgBox "No TOCs found in " & .Name End If End With End Sub Cheers -- macropod [MVP - Microsoft Word] ------------------------- "Tapio Marjomaki" Tapio wrote in message ... How to solve how many lines or items exist in the TOC of a Word (2007) document using the Basic macro language?
|
|
#4
September 11th, 2007, 06:46 PM
posted to microsoft.public.word.tables
|
|||
|
|||
|
How to find out the length the TOC by a Word 2007 macro?
..TablesOfContents.Count = 0 every time I run my macro though there's TOC ...
(of three items in my case) ? It should return 3 but returns 0. Thanks anyway, Tapio "macropod" wrote: Hi Tapio, Here's one way to count all TOCs in the active document: Sub Count_TOC_Entries() Dim i As Integer With ActiveDocument If .TablesOfContents.Count 0 Then For i = 1 To .TablesOfContents.Count MsgBox "TOC " & i & " in """ & .Name & """ has " & _ .TablesOfContents(i).Range.Paragraphs.Count & " Entries." Next i Else MsgBox "No TOCs found in " & .Name End If End With End Sub Cheers -- macropod [MVP - Microsoft Word] ------------------------- "Tapio Marjomaki" Tapio wrote in message ... How to solve how many lines or items exist in the TOC of a Word (2007) document using the Basic macro language?
|
|
#5
September 11th, 2007, 07:20 PM
posted to microsoft.public.word.tables
|
|||
|
|||
|
How to find out the length the TOC by a Word 2007 macro?
Sorry, it works OK! I had corrupted my TOCs in my original document.
Tapio "Tapio Marjomaki" wrote: .TablesOfContents.Count = 0 every time I run my macro though there's TOC ... (of three items in my case) ? It should return 3 but returns 0. Thanks anyway, Tapio "macropod" wrote: Hi Tapio, Here's one way to count all TOCs in the active document: Sub Count_TOC_Entries() Dim i As Integer With ActiveDocument If .TablesOfContents.Count 0 Then For i = 1 To .TablesOfContents.Count MsgBox "TOC " & i & " in """ & .Name & """ has " & _ .TablesOfContents(i).Range.Paragraphs.Count & " Entries." Next i Else MsgBox "No TOCs found in " & .Name End If End With End Sub Cheers -- macropod [MVP - Microsoft Word] ------------------------- "Tapio Marjomaki" Tapio wrote in message ... How to solve how many lines or items exist in the TOC of a Word (2007) document using the Basic macro language?
|
|
#6
September 11th, 2007, 11:05 PM
posted to microsoft.public.word.tables
|
|||
|
|||
|
How to find out the length the TOC by a Word 2007 macro?
Well spotted Stefan!
So the line: ..TablesOfContents(i).Range.Paragraphs.Count & " Entries." should read: ..TablesOfContents(i).Range.Paragraphs.Count -1 & " Entries." Cheers -- macropod [MVP - Microsoft Word] ------------------------- "Stefan Blom" wrote in message ... Maybe I'm missing something, but the macro seems to count the paragraph in which the TOC field is located too? In other words, you would have to use .Count - 1. -- Stefan Blom Microsoft Word MVP "macropod" wrote in message ... Hi Tapio, Here's one way to count all TOCs in the active document: Sub Count_TOC_Entries() Dim i As Integer With ActiveDocument If .TablesOfContents.Count 0 Then For i = 1 To .TablesOfContents.Count MsgBox "TOC " & i & " in """ & .Name & """ has " & _ .TablesOfContents(i).Range.Paragraphs.Count & " Entries." Next i Else MsgBox "No TOCs found in " & .Name End If End With End Sub Cheers -- macropod [MVP - Microsoft Word] ------------------------- "Tapio Marjomaki" Tapio wrote in message ... How to solve how many lines or items exist in the TOC of a Word (2007) document using the Basic macro language?
|
| Thread Tools | |
| Display Modes | |
|
|
Linear Mode
