Programming a TOC to have page counts (not page location)

Here is what I am trying to accomplish using Word 2007 and XP: I want to create a TOC with the Title and Individual Section Page Counts using separate Individual Files to look like this: Section No. Title No. of Pages 200500 General Provisions 5 200505 Project Closeout and Start-up 10 Information: • The section number and title are the file names (i.e. 2000500 General Provisions.doc) and are also included in the beginning of each document as well as a title (with a set style). • All files are located in the same folder. Here is the current macro I am working with that was provided by someone on this site: This macro does not input the correct page count for each file, in fact it places the 1st file’s page count for each file instead. Looks like this: 200500 GENERAL PROVISIONS test.doc 3 SECTION 200523 VALVES DRAFT with index codes.doc 3 Table style settings-example.doc 3 The macro will put the correct page count ONLY if all the files are open. But considering I am trying to use this macro for 50+ documents at a time, this is not a viable solution. Any help would be GREATLY appreciated; I’ve been working on this for months. Thanks. Sub TOCpgcnt() ' ' TOCpgcnt Macro ' ' Dim fd As FileDialog Dim PathToUse As String Dim SourceFile As String Dim Target As Document Dim Source As Document Dim numpages As Long Set Target = ActiveDocument Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .Title = "Select the folder containing the files." If .Show = -1 Then PathToUse = .SelectedItems(1) & "\" Else End If End With Set fd = Nothing SourceFile = Dir$(PathToUse & "*.doc") Do While SourceFile <> "" Set Source = Documents.Open(PathToUse & SourceFile) numpages = Source.BuiltInDocumentProperties(wdPropertyPages) Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf Source.Close wdDoNotSaveChanges SourceFile = Dir$ Loop End Sub

I think that it is a timing issue, Here is another method, that will take a little bit longer, but does produce the desired result: Dim fd As FileDialog Dim PathToUse As String Dim SourceFile As String Dim Target As Document Dim Source As Document Dim numpages As Long Set Target = ActiveDocument Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .Title = "Select the folder containing the files." If .Show = -1 Then PathToUse = .SelectedItems(1) & "\" Else End If End With Set fd = Nothing SourceFile = Dir$(PathToUse & "*.doc") Do While SourceFile <> "" Set Source = Documents.Open(PathToUse & SourceFile) With Source .Range.Select Selection.Collapse wdCollapseEnd numpages = Selection.Information(wdActiveEndPageNumber) End With Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf Source.Close wdDoNotSaveChanges Set Source = Nothing SourceFile = Dir$ Loop -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Krystal" <Krystal@discussions.microsoft.com> wrote in message news:6F904BF2-0902-47FC-A06B-59C34E7593A5@microsoft.com... > Here is what I am trying to accomplish using Word 2007 and XP: > > I want to create a TOC with the Title and Individual Section Page Counts > using separate Individual Files to look like this: > > Section No. Title No. of Pages > 200500 General Provisions 5 > 200505 Project Closeout and Start-up 10 > > Information: > • The section number and title are the file names (i.e. 2000500 General > Provisions.doc) and are also included in the beginning of each document as > well as a title (with a set style). > • All files are located in the same folder. > > Here is the current macro I am working with that was provided by someone > on > this site: This macro does not input the correct page count for each > file, > in fact it places the 1st file’s page count for each file instead. > > Looks like this: > > 200500 GENERAL PROVISIONS test.doc 3 > SECTION 200523 VALVES DRAFT with index codes.doc 3 > Table style settings-example.doc 3 > > The macro will put the correct page count ONLY if all the files are open. > But considering I am trying to use this macro for 50+ documents at a time, > this is not a viable solution. Any help would be GREATLY appreciated; I’ve > been working on this for months. Thanks. > > > Sub TOCpgcnt() > ' > ' TOCpgcnt Macro > ' > ' > Dim fd As FileDialog > Dim PathToUse As String > Dim SourceFile As String > Dim Target As Document > Dim Source As Document > Dim numpages As Long > > Set Target = ActiveDocument > Set fd = Application.FileDialog(msoFileDialogFolderPicker) > With fd > .Title = "Select the folder containing the files." > If .Show = -1 Then > PathToUse = .SelectedItems(1) & "\" > Else > End If > End With > Set fd = Nothing > SourceFile = Dir$(PathToUse & "*.doc") > Do While SourceFile <> "" > Set Source = Documents.Open(PathToUse & SourceFile) > numpages = Source.BuiltInDocumentProperties(wdPropertyPages) > Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf > Source.Close wdDoNotSaveChanges > SourceFile = Dir$ > Loop > > End Sub >

Doug, Thank you! I'm sure you are correct about the time-out issue. This one worked, so I am happy. Question for you: Is it possible to program the macro to pull the text from a specific style in the word document? Since the current macro is pulling the file name, I will have to make some minor changes after the macro is complete (remove the ..doc, etc). But if I could get it to pick out the title inside the document instead (for example, the style named "SCT")…that would be even better. Thanks, Krystal "Doug Robbins - Word MVP" wrote: > I think that it is a timing issue, > > Here is another method, that will take a little bit longer, but does produce > the desired result: > > Dim fd As FileDialog > Dim PathToUse As String > Dim SourceFile As String > Dim Target As Document > Dim Source As Document > Dim numpages As Long > > Set Target = ActiveDocument > Set fd = Application.FileDialog(msoFileDialogFolderPicker) > With fd > .Title = "Select the folder containing the files." > If .Show = -1 Then > PathToUse = .SelectedItems(1) & "\" > Else > End If > End With > Set fd = Nothing > SourceFile = Dir$(PathToUse & "*.doc") > Do While SourceFile <> "" > Set Source = Documents.Open(PathToUse & SourceFile) > With Source > .Range.Select > Selection.Collapse wdCollapseEnd > numpages = Selection.Information(wdActiveEndPageNumber) > End With > Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf > Source.Close wdDoNotSaveChanges > Set Source = Nothing > SourceFile = Dir$ > Loop > > > -- > Hope this helps. > > Please reply to the newsgroup unless you wish to avail yourself of my > services on a paid consulting basis. > > Doug Robbins - Word MVP, originally posted via msnews.microsoft.com > > "Krystal" <Krystal@discussions.microsoft.com> wrote in message > news:6F904BF2-0902-47FC-A06B-59C34E7593A5@microsoft.com... > > Here is what I am trying to accomplish using Word 2007 and XP: > > > > I want to create a TOC with the Title and Individual Section Page Counts > > using separate Individual Files to look like this: > > > > Section No. Title No. of Pages > > 200500 General Provisions 5 > > 200505 Project Closeout and Start-up 10 > > > > Information: > > • The section number and title are the file names (i.e. 2000500 General > > Provisions.doc) and are also included in the beginning of each document as > > well as a title (with a set style). > > • All files are located in the same folder. > > > > Here is the current macro I am working with that was provided by someone > > on > > this site: This macro does not input the correct page count for each > > file, > > in fact it places the 1st file’s page count for each file instead. > > > > Looks like this: > > > > 200500 GENERAL PROVISIONS test.doc 3 > > SECTION 200523 VALVES DRAFT with index codes.doc 3 > > Table style settings-example.doc 3 > > > > The macro will put the correct page count ONLY if all the files are open. > > But considering I am trying to use this macro for 50+ documents at a time, > > this is not a viable solution. Any help would be GREATLY appreciated; I’ve > > been working on this for months. Thanks. > > > > > > Sub TOCpgcnt() > > ' > > ' TOCpgcnt Macro > > ' > > ' > > Dim fd As FileDialog > > Dim PathToUse As String > > Dim SourceFile As String > > Dim Target As Document > > Dim Source As Document > > Dim numpages As Long > > > > Set Target = ActiveDocument > > Set fd = Application.FileDialog(msoFileDialogFolderPicker) > > With fd > > .Title = "Select the folder containing the files." > > If .Show = -1 Then > > PathToUse = .SelectedItems(1) & "\" > > Else > > End If > > End With > > Set fd = Nothing > > SourceFile = Dir$(PathToUse & "*.doc") > > Do While SourceFile <> "" > > Set Source = Documents.Open(PathToUse & SourceFile) > > numpages = Source.BuiltInDocumentProperties(wdPropertyPages) > > Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf > > Source.Close wdDoNotSaveChanges > > SourceFile = Dir$ > > Loop > > > > End Sub > >

To get the first instance of the text in the document to which the style SCT is applied, use Selection.HomeKey wdStory Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("SCT") Selection.Find.Execute FindText:="", Forward:=True, _ MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False MsgBox Selection.Text -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Krystal" <Krystal@discussions.microsoft.com> wrote in message news:88EC2DAE-19D7-4FB9-ADD6-0D554958CACB@microsoft.com... > Doug, > > Thank you! I'm sure you are correct about the time-out issue. This one > worked, so I am happy. > > Question for you: > Is it possible to program the macro to pull the text from a specific style > in the word document? Since the current macro is pulling the file name, I > will have to make some minor changes after the macro is complete (remove > the > .doc, etc). But if I could get it to pick out the title inside the > document > instead (for example, the style named "SCT")…that would be even better. > > Thanks, > Krystal > > "Doug Robbins - Word MVP" wrote: > >> I think that it is a timing issue, >> >> Here is another method, that will take a little bit longer, but does >> produce >> the desired result: >> >> Dim fd As FileDialog >> Dim PathToUse As String >> Dim SourceFile As String >> Dim Target As Document >> Dim Source As Document >> Dim numpages As Long >> >> Set Target = ActiveDocument >> Set fd = Application.FileDialog(msoFileDialogFolderPicker) >> With fd >> .Title = "Select the folder containing the files." >> If .Show = -1 Then >> PathToUse = .SelectedItems(1) & "\" >> Else >> End If >> End With >> Set fd = Nothing >> SourceFile = Dir$(PathToUse & "*.doc") >> Do While SourceFile <> "" >> Set Source = Documents.Open(PathToUse & SourceFile) >> With Source >> .Range.Select >> Selection.Collapse wdCollapseEnd >> numpages = Selection.Information(wdActiveEndPageNumber) >> End With >> Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf >> Source.Close wdDoNotSaveChanges >> Set Source = Nothing >> SourceFile = Dir$ >> Loop >> >> >> -- >> Hope this helps. >> >> Please reply to the newsgroup unless you wish to avail yourself of my >> services on a paid consulting basis. >> >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com >> >> "Krystal" <Krystal@discussions.microsoft.com> wrote in message >> news:6F904BF2-0902-47FC-A06B-59C34E7593A5@microsoft.com... >> > Here is what I am trying to accomplish using Word 2007 and XP: >> > >> > I want to create a TOC with the Title and Individual Section Page >> > Counts >> > using separate Individual Files to look like this: >> > >> > Section No. Title No. of Pages >> > 200500 General Provisions 5 >> > 200505 Project Closeout and Start-up 10 >> > >> > Information: >> > • The section number and title are the file names (i.e. 2000500 General >> > Provisions.doc) and are also included in the beginning of each document >> > as >> > well as a title (with a set style). >> > • All files are located in the same folder. >> > >> > Here is the current macro I am working with that was provided by >> > someone >> > on >> > this site: This macro does not input the correct page count for each >> > file, >> > in fact it places the 1st file’s page count for each file instead. >> > >> > Looks like this: >> > >> > 200500 GENERAL PROVISIONS test.doc 3 >> > SECTION 200523 VALVES DRAFT with index codes.doc 3 >> > Table style settings-example.doc 3 >> > >> > The macro will put the correct page count ONLY if all the files are >> > open. >> > But considering I am trying to use this macro for 50+ documents at a >> > time, >> > this is not a viable solution. Any help would be GREATLY appreciated; >> > I’ve >> > been working on this for months. Thanks. >> > >> > >> > Sub TOCpgcnt() >> > ' >> > ' TOCpgcnt Macro >> > ' >> > ' >> > Dim fd As FileDialog >> > Dim PathToUse As String >> > Dim SourceFile As String >> > Dim Target As Document >> > Dim Source As Document >> > Dim numpages As Long >> > >> > Set Target = ActiveDocument >> > Set fd = Application.FileDialog(msoFileDialogFolderPicker) >> > With fd >> > .Title = "Select the folder containing the files." >> > If .Show = -1 Then >> > PathToUse = .SelectedItems(1) & "\" >> > Else >> > End If >> > End With >> > Set fd = Nothing >> > SourceFile = Dir$(PathToUse & "*.doc") >> > Do While SourceFile <> "" >> > Set Source = Documents.Open(PathToUse & SourceFile) >> > numpages = Source.BuiltInDocumentProperties(wdPropertyPages) >> > Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf >> > Source.Close wdDoNotSaveChanges >> > SourceFile = Dir$ >> > Loop >> > >> > End Sub >> >

OK, one more question, where exactly would I put this information into the current macro? Or would my previous macro need to be recreated? Thanks! "Doug Robbins - Word MVP" wrote: > To get the first instance of the text in the document to which the style SCT > is applied, use > > Selection.HomeKey wdStory > Selection.Find.ClearFormatting > Selection.Find.Style = ActiveDocument.Styles("SCT") > Selection.Find.Execute FindText:="", Forward:=True, _ > MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False > MsgBox Selection.Text > > > -- > Hope this helps. > > Please reply to the newsgroup unless you wish to avail yourself of my > services on a paid consulting basis. > > Doug Robbins - Word MVP, originally posted via msnews.microsoft.com > > "Krystal" <Krystal@discussions.microsoft.com> wrote in message > news:88EC2DAE-19D7-4FB9-ADD6-0D554958CACB@microsoft.com... > > Doug, > > > > Thank you! I'm sure you are correct about the time-out issue. This one > > worked, so I am happy. > > > > Question for you: > > Is it possible to program the macro to pull the text from a specific style > > in the word document? Since the current macro is pulling the file name, I > > will have to make some minor changes after the macro is complete (remove > > the > > .doc, etc). But if I could get it to pick out the title inside the > > document > > instead (for example, the style named "SCT")…that would be even better. > > > > Thanks, > > Krystal > > > > "Doug Robbins - Word MVP" wrote: > > > >> I think that it is a timing issue, > >> > >> Here is another method, that will take a little bit longer, but does > >> produce > >> the desired result: > >> > >> Dim fd As FileDialog > >> Dim PathToUse As String > >> Dim SourceFile As String > >> Dim Target As Document > >> Dim Source As Document > >> Dim numpages As Long > >> > >> Set Target = ActiveDocument > >> Set fd = Application.FileDialog(msoFileDialogFolderPicker) > >> With fd > >> .Title = "Select the folder containing the files." > >> If .Show = -1 Then > >> PathToUse = .SelectedItems(1) & "\" > >> Else > >> End If > >> End With > >> Set fd = Nothing > >> SourceFile = Dir$(PathToUse & "*.doc") > >> Do While SourceFile <> "" > >> Set Source = Documents.Open(PathToUse & SourceFile) > >> With Source > >> .Range.Select > >> Selection.Collapse wdCollapseEnd > >> numpages = Selection.Information(wdActiveEndPageNumber) > >> End With > >> Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf > >> Source.Close wdDoNotSaveChanges > >> Set Source = Nothing > >> SourceFile = Dir$ > >> Loop > >> > >> > >> -- > >> Hope this helps. > >> > >> Please reply to the newsgroup unless you wish to avail yourself of my > >> services on a paid consulting basis. > >> > >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com > >> > >> "Krystal" <Krystal@discussions.microsoft.com> wrote in message > >> news:6F904BF2-0902-47FC-A06B-59C34E7593A5@microsoft.com... > >> > Here is what I am trying to accomplish using Word 2007 and XP: > >> > > >> > I want to create a TOC with the Title and Individual Section Page > >> > Counts > >> > using separate Individual Files to look like this: > >> > > >> > Section No. Title No. of Pages > >> > 200500 General Provisions 5 > >> > 200505 Project Closeout and Start-up 10 > >> > > >> > Information: > >> > • The section number and title are the file names (i.e. 2000500 General > >> > Provisions.doc) and are also included in the beginning of each document > >> > as > >> > well as a title (with a set style). > >> > • All files are located in the same folder. > >> > > >> > Here is the current macro I am working with that was provided by > >> > someone > >> > on > >> > this site: This macro does not input the correct page count for each > >> > file, > >> > in fact it places the 1st file’s page count for each file instead. > >> > > >> > Looks like this: > >> > > >> > 200500 GENERAL PROVISIONS test.doc 3 > >> > SECTION 200523 VALVES DRAFT with index codes.doc 3 > >> > Table style settings-example.doc 3 > >> > > >> > The macro will put the correct page count ONLY if all the files are > >> > open. > >> > But considering I am trying to use this macro for 50+ documents at a > >> > time, > >> > this is not a viable solution. Any help would be GREATLY appreciated; > >> > I’ve > >> > been working on this for months. Thanks. > >> > > >> > > >> > Sub TOCpgcnt() > >> > ' > >> > ' TOCpgcnt Macro > >> > ' > >> > ' > >> > Dim fd As FileDialog > >> > Dim PathToUse As String > >> > Dim SourceFile As String > >> > Dim Target As Document > >> > Dim Source As Document > >> > Dim numpages As Long > >> > > >> > Set Target = ActiveDocument > >> > Set fd = Application.FileDialog(msoFileDialogFolderPicker) > >> > With fd > >> > .Title = "Select the folder containing the files." > >> > If .Show = -1 Then > >> > PathToUse = .SelectedItems(1) & "\" > >> > Else > >> > End If > >> > End With > >> > Set fd = Nothing > >> > SourceFile = Dir$(PathToUse & "*.doc") > >> > Do While SourceFile <> "" > >> > Set Source = Documents.Open(PathToUse & SourceFile) > >> > numpages = Source.BuiltInDocumentProperties(wdPropertyPages) > >> > Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf > >> > Source.Close wdDoNotSaveChanges > >> > SourceFile = Dir$ > >> > Loop > >> > > >> > End Sub > >> >

Use: Dim fd As FileDialog Dim PathToUse As String Dim SourceFile As String Dim Target As Document Dim Source As Document Dim numpages As Long Dim strTitle as string Set Target = ActiveDocument Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd .Title = "Select the folder containing the files." If .Show = -1 Then PathToUse = .SelectedItems(1) & "\" Else End If End With Set fd = Nothing SourceFile = Dir$(PathToUse & "*.doc") Do While SourceFile <> "" Set Source = Documents.Open(PathToUse & SourceFile) With Source .Range.Select Selection.Collapse wdCollapseEnd numpages = Selection.Information(wdActiveEndPageNumber) Selection.HomeKey wdStory Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("SCT") Selection.Find.Execute FindText:="", Forward:=True, _ MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False strTitle = Selection.Text End With Target.Range.InsertAfter strTitle & vbTab & numpages & vbCrLf Source.Close wdDoNotSaveChanges Set Source = Nothing SourceFile = Dir$ Loop -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Krystal" <Krystal@discussions.microsoft.com> wrote in message news:F226466E-F118-49C8-B01B-C7B1090E06D9@microsoft.com... > OK, one more question, where exactly would I put this information into the > current macro? Or would my previous macro need to be recreated? > > Thanks! > > "Doug Robbins - Word MVP" wrote: > >> To get the first instance of the text in the document to which the style >> SCT >> is applied, use >> >> Selection.HomeKey wdStory >> Selection.Find.ClearFormatting >> Selection.Find.Style = ActiveDocument.Styles("SCT") >> Selection.Find.Execute FindText:="", Forward:=True, _ >> MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False >> MsgBox Selection.Text >> >> >> -- >> Hope this helps. >> >> Please reply to the newsgroup unless you wish to avail yourself of my >> services on a paid consulting basis. >> >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com >> >> "Krystal" <Krystal@discussions.microsoft.com> wrote in message >> news:88EC2DAE-19D7-4FB9-ADD6-0D554958CACB@microsoft.com... >> > Doug, >> > >> > Thank you! I'm sure you are correct about the time-out issue. This one >> > worked, so I am happy. >> > >> > Question for you: >> > Is it possible to program the macro to pull the text from a specific >> > style >> > in the word document? Since the current macro is pulling the file >> > name, I >> > will have to make some minor changes after the macro is complete >> > (remove >> > the >> > .doc, etc). But if I could get it to pick out the title inside the >> > document >> > instead (for example, the style named "SCT")…that would be even better. >> > >> > Thanks, >> > Krystal >> > >> > "Doug Robbins - Word MVP" wrote: >> > >> >> I think that it is a timing issue, >> >> >> >> Here is another method, that will take a little bit longer, but does >> >> produce >> >> the desired result: >> >> >> >> Dim fd As FileDialog >> >> Dim PathToUse As String >> >> Dim SourceFile As String >> >> Dim Target As Document >> >> Dim Source As Document >> >> Dim numpages As Long >> >> >> >> Set Target = ActiveDocument >> >> Set fd = Application.FileDialog(msoFileDialogFolderPicker) >> >> With fd >> >> .Title = "Select the folder containing the files." >> >> If .Show = -1 Then >> >> PathToUse = .SelectedItems(1) & "\" >> >> Else >> >> End If >> >> End With >> >> Set fd = Nothing >> >> SourceFile = Dir$(PathToUse & "*.doc") >> >> Do While SourceFile <> "" >> >> Set Source = Documents.Open(PathToUse & SourceFile) >> >> With Source >> >> .Range.Select >> >> Selection.Collapse wdCollapseEnd >> >> numpages = Selection.Information(wdActiveEndPageNumber) >> >> End With >> >> Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf >> >> Source.Close wdDoNotSaveChanges >> >> Set Source = Nothing >> >> SourceFile = Dir$ >> >> Loop >> >> >> >> >> >> -- >> >> Hope this helps. >> >> >> >> Please reply to the newsgroup unless you wish to avail yourself of my >> >> services on a paid consulting basis. >> >> >> >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com >> >> >> >> "Krystal" <Krystal@discussions.microsoft.com> wrote in message >> >> news:6F904BF2-0902-47FC-A06B-59C34E7593A5@microsoft.com... >> >> > Here is what I am trying to accomplish using Word 2007 and XP: >> >> > >> >> > I want to create a TOC with the Title and Individual Section Page >> >> > Counts >> >> > using separate Individual Files to look like this: >> >> > >> >> > Section No. Title No. of Pages >> >> > 200500 General Provisions 5 >> >> > 200505 Project Closeout and Start-up 10 >> >> > >> >> > Information: >> >> > • The section number and title are the file names (i.e. 2000500 >> >> > General >> >> > Provisions.doc) and are also included in the beginning of each >> >> > document >> >> > as >> >> > well as a title (with a set style). >> >> > • All files are located in the same folder. >> >> > >> >> > Here is the current macro I am working with that was provided by >> >> > someone >> >> > on >> >> > this site: This macro does not input the correct page count for >> >> > each >> >> > file, >> >> > in fact it places the 1st file’s page count for each file instead. >> >> > >> >> > Looks like this: >> >> > >> >> > 200500 GENERAL PROVISIONS test.doc 3 >> >> > SECTION 200523 VALVES DRAFT with index codes.doc 3 >> >> > Table style settings-example.doc 3 >> >> > >> >> > The macro will put the correct page count ONLY if all the files are >> >> > open. >> >> > But considering I am trying to use this macro for 50+ documents at a >> >> > time, >> >> > this is not a viable solution. Any help would be GREATLY >> >> > appreciated; >> >> > I’ve >> >> > been working on this for months. Thanks. >> >> > >> >> > >> >> > Sub TOCpgcnt() >> >> > ' >> >> > ' TOCpgcnt Macro >> >> > ' >> >> > ' >> >> > Dim fd As FileDialog >> >> > Dim PathToUse As String >> >> > Dim SourceFile As String >> >> > Dim Target As Document >> >> > Dim Source As Document >> >> > Dim numpages As Long >> >> > >> >> > Set Target = ActiveDocument >> >> > Set fd = Application.FileDialog(msoFileDialogFolderPicker) >> >> > With fd >> >> > .Title = "Select the folder containing the files." >> >> > If .Show = -1 Then >> >> > PathToUse = .SelectedItems(1) & "\" >> >> > Else >> >> > End If >> >> > End With >> >> > Set fd = Nothing >> >> > SourceFile = Dir$(PathToUse & "*.doc") >> >> > Do While SourceFile <> "" >> >> > Set Source = Documents.Open(PathToUse & SourceFile) >> >> > numpages = Source.BuiltInDocumentProperties(wdPropertyPages) >> >> > Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf >> >> > Source.Close wdDoNotSaveChanges >> >> > SourceFile = Dir$ >> >> > Loop >> >> > >> >> > End Sub >> >> >

Thank you! It works wonderfully! "Doug Robbins - Word MVP" wrote: > Use: > > Dim fd As FileDialog > Dim PathToUse As String > Dim SourceFile As String > Dim Target As Document > Dim Source As Document > Dim numpages As Long > Dim strTitle as string > > Set Target = ActiveDocument > Set fd = Application.FileDialog(msoFileDialogFolderPicker) > With fd > .Title = "Select the folder containing the files." > If .Show = -1 Then > PathToUse = .SelectedItems(1) & "\" > Else > End If > End With > Set fd = Nothing > SourceFile = Dir$(PathToUse & "*.doc") > Do While SourceFile <> "" > Set Source = Documents.Open(PathToUse & SourceFile) > With Source > .Range.Select > Selection.Collapse wdCollapseEnd > numpages = Selection.Information(wdActiveEndPageNumber) > Selection.HomeKey wdStory > Selection.Find.ClearFormatting > Selection.Find.Style = ActiveDocument.Styles("SCT") > Selection.Find.Execute FindText:="", Forward:=True, _ > MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False > strTitle = Selection.Text > End With > Target.Range.InsertAfter strTitle & vbTab & numpages & vbCrLf > Source.Close wdDoNotSaveChanges > Set Source = Nothing > SourceFile = Dir$ > Loop > > > -- > Hope this helps. > > Please reply to the newsgroup unless you wish to avail yourself of my > services on a paid consulting basis. > > Doug Robbins - Word MVP, originally posted via msnews.microsoft.com > > "Krystal" <Krystal@discussions.microsoft.com> wrote in message > news:F226466E-F118-49C8-B01B-C7B1090E06D9@microsoft.com... > > OK, one more question, where exactly would I put this information into the > > current macro? Or would my previous macro need to be recreated? > > > > Thanks! > > > > "Doug Robbins - Word MVP" wrote: > > > >> To get the first instance of the text in the document to which the style > >> SCT > >> is applied, use > >> > >> Selection.HomeKey wdStory > >> Selection.Find.ClearFormatting > >> Selection.Find.Style = ActiveDocument.Styles("SCT") > >> Selection.Find.Execute FindText:="", Forward:=True, _ > >> MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False > >> MsgBox Selection.Text > >> > >> > >> -- > >> Hope this helps. > >> > >> Please reply to the newsgroup unless you wish to avail yourself of my > >> services on a paid consulting basis. > >> > >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com > >> > >> "Krystal" <Krystal@discussions.microsoft.com> wrote in message > >> news:88EC2DAE-19D7-4FB9-ADD6-0D554958CACB@microsoft.com... > >> > Doug, > >> > > >> > Thank you! I'm sure you are correct about the time-out issue. This one > >> > worked, so I am happy. > >> > > >> > Question for you: > >> > Is it possible to program the macro to pull the text from a specific > >> > style > >> > in the word document? Since the current macro is pulling the file > >> > name, I > >> > will have to make some minor changes after the macro is complete > >> > (remove > >> > the > >> > .doc, etc). But if I could get it to pick out the title inside the > >> > document > >> > instead (for example, the style named "SCT")…that would be even better. > >> > > >> > Thanks, > >> > Krystal > >> > > >> > "Doug Robbins - Word MVP" wrote: > >> > > >> >> I think that it is a timing issue, > >> >> > >> >> Here is another method, that will take a little bit longer, but does > >> >> produce > >> >> the desired result: > >> >> > >> >> Dim fd As FileDialog > >> >> Dim PathToUse As String > >> >> Dim SourceFile As String > >> >> Dim Target As Document > >> >> Dim Source As Document > >> >> Dim numpages As Long > >> >> > >> >> Set Target = ActiveDocument > >> >> Set fd = Application.FileDialog(msoFileDialogFolderPicker) > >> >> With fd > >> >> .Title = "Select the folder containing the files." > >> >> If .Show = -1 Then > >> >> PathToUse = .SelectedItems(1) & "\" > >> >> Else > >> >> End If > >> >> End With > >> >> Set fd = Nothing > >> >> SourceFile = Dir$(PathToUse & "*.doc") > >> >> Do While SourceFile <> "" > >> >> Set Source = Documents.Open(PathToUse & SourceFile) > >> >> With Source > >> >> .Range.Select > >> >> Selection.Collapse wdCollapseEnd > >> >> numpages = Selection.Information(wdActiveEndPageNumber) > >> >> End With > >> >> Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf > >> >> Source.Close wdDoNotSaveChanges > >> >> Set Source = Nothing > >> >> SourceFile = Dir$ > >> >> Loop > >> >> > >> >> > >> >> -- > >> >> Hope this helps. > >> >> > >> >> Please reply to the newsgroup unless you wish to avail yourself of my > >> >> services on a paid consulting basis. > >> >> > >> >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com > >> >> > >> >> "Krystal" <Krystal@discussions.microsoft.com> wrote in message > >> >> news:6F904BF2-0902-47FC-A06B-59C34E7593A5@microsoft.com... > >> >> > Here is what I am trying to accomplish using Word 2007 and XP: > >> >> > > >> >> > I want to create a TOC with the Title and Individual Section Page > >> >> > Counts > >> >> > using separate Individual Files to look like this: > >> >> > > >> >> > Section No. Title No. of Pages > >> >> > 200500 General Provisions 5 > >> >> > 200505 Project Closeout and Start-up 10 > >> >> > > >> >> > Information: > >> >> > • The section number and title are the file names (i.e. 2000500 > >> >> > General > >> >> > Provisions.doc) and are also included in the beginning of each > >> >> > document > >> >> > as > >> >> > well as a title (with a set style). > >> >> > • All files are located in the same folder. > >> >> > > >> >> > Here is the current macro I am working with that was provided by > >> >> > someone > >> >> > on > >> >> > this site: This macro does not input the correct page count for > >> >> > each > >> >> > file, > >> >> > in fact it places the 1st file’s page count for each file instead. > >> >> > > >> >> > Looks like this: > >> >> > > >> >> > 200500 GENERAL PROVISIONS test.doc 3 > >> >> > SECTION 200523 VALVES DRAFT with index codes.doc 3 > >> >> > Table style settings-example.doc 3 > >> >> > > >> >> > The macro will put the correct page count ONLY if all the files are > >> >> > open. > >> >> > But considering I am trying to use this macro for 50+ documents at a > >> >> > time, > >> >> > this is not a viable solution. Any help would be GREATLY > >> >> > appreciated; > >> >> > I’ve > >> >> > been working on this for months. Thanks. > >> >> > > >> >> > > >> >> > Sub TOCpgcnt() > >> >> > ' > >> >> > ' TOCpgcnt Macro > >> >> > ' > >> >> > ' > >> >> > Dim fd As FileDialog > >> >> > Dim PathToUse As String > >> >> > Dim SourceFile As String > >> >> > Dim Target As Document > >> >> > Dim Source As Document > >> >> > Dim numpages As Long > >> >> > > >> >> > Set Target = ActiveDocument > >> >> > Set fd = Application.FileDialog(msoFileDialogFolderPicker) > >> >> > With fd > >> >> > .Title = "Select the folder containing the files." > >> >> > If .Show = -1 Then > >> >> > PathToUse = .SelectedItems(1) & "\" > >> >> > Else > >> >> > End If > >> >> > End With > >> >> > Set fd = Nothing > >> >> > SourceFile = Dir$(PathToUse & "*.doc") > >> >> > Do While SourceFile <> "" > >> >> > Set Source = Documents.Open(PathToUse & SourceFile) > >> >> > numpages = Source.BuiltInDocumentProperties(wdPropertyPages) > >> >> > Target.Range.InsertAfter Source.Name & vbTab & numpages & vbCrLf > >> >> > Source.Close wdDoNotSaveChanges > >> >> > SourceFile = Dir$ > >> >> > Loop > >> >> > > >> >> > End Sub > >> >> >

You're welcome. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Krystal" <Krystal@discussions.microsoft.com> wrote in message news:D4CC1046-6ACE-4FBC-8C34-B61704DB6F86@microsoft.com... > Thank you! It works wonderfully! > > "Doug Robbins - Word MVP" wrote: > >> Use: >> >> Dim fd As FileDialog >> Dim PathToUse As String >> Dim SourceFile As String >> Dim Target As Document >> Dim Source As Document >> Dim numpages As Long >> Dim strTitle as string >> >> Set Target = ActiveDocument >> Set fd = Application.FileDialog(msoFileDialogFolderPicker) >> With fd >> .Title = "Select the folder containing the files." >> If .Show = -1 Then >> PathToUse = .SelectedItems(1) & "\" >> Else >> End If >> End With >> Set fd = Nothing >> SourceFile = Dir$(PathToUse & "*.doc") >> Do While SourceFile <> "" >> Set Source = Documents.Open(PathToUse & SourceFile) >> With Source >> .Range.Select >> Selection.Collapse wdCollapseEnd >> numpages = Selection.Information(wdActiveEndPageNumber) >> Selection.HomeKey wdStory >> Selection.Find.ClearFormatting >> Selection.Find.Style = ActiveDocument.Styles("SCT") >> Selection.Find.Execute FindText:="", Forward:=True, _ >> MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False >> strTitle = Selection.Text >> End With >> Target.Range.InsertAfter strTitle & vbTab & numpages & vbCrLf >> Source.Close wdDoNotSaveChanges >> Set Source = Nothing >> SourceFile = Dir$ >> Loop >> >> >> -- >> Hope this helps. >> >> Please reply to the newsgroup unless you wish to avail yourself of my >> services on a paid consulting basis. >> >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com >> >> "Krystal" <Krystal@discussions.microsoft.com> wrote in message >> news:F226466E-F118-49C8-B01B-C7B1090E06D9@microsoft.com... >> > OK, one more question, where exactly would I put this information into >> > the >> > current macro? Or would my previous macro need to be recreated? >> > >> > Thanks! >> > >> > "Doug Robbins - Word MVP" wrote: >> > >> >> To get the first instance of the text in the document to which the >> >> style >> >> SCT >> >> is applied, use >> >> >> >> Selection.HomeKey wdStory >> >> Selection.Find.ClearFormatting >> >> Selection.Find.Style = ActiveDocument.Styles("SCT") >> >> Selection.Find.Execute FindText:="", Forward:=True, _ >> >> MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False >> >> MsgBox Selection.Text >> >> >> >> >> >> -- >> >> Hope this helps. >> >> >> >> Please reply to the newsgroup unless you wish to avail yourself of my >> >> services on a paid consulting basis. >> >> >> >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com >> >> >> >> "Krystal" <Krystal@discussions.microsoft.com> wrote in message >> >> news:88EC2DAE-19D7-4FB9-ADD6-0D554958CACB@microsoft.com... >> >> > Doug, >> >> > >> >> > Thank you! I'm sure you are correct about the time-out issue. This >> >> > one >> >> > worked, so I am happy. >> >> > >> >> > Question for you: >> >> > Is it possible to program the macro to pull the text from a specific >> >> > style >> >> > in the word document? Since the current macro is pulling the file >> >> > name, I >> >> > will have to make some minor changes after the macro is complete >> >> > (remove >> >> > the >> >> > .doc, etc). But if I could get it to pick out the title inside the >> >> > document >> >> > instead (for example, the style named "SCT")…that would be even >> >> > better. >> >> > >> >> > Thanks, >> >> > Krystal >> >> > >> >> > "Doug Robbins - Word MVP" wrote: >> >> > >> >> >> I think that it is a timing issue, >> >> >> >> >> >> Here is another method, that will take a little bit longer, but >> >> >> does >> >> >> produce >> >> >> the desired result: >> >> >> >> >> >> Dim fd As FileDialog >> >> >> Dim PathToUse As String >> >> >> Dim SourceFile As String >> >> >> Dim Target As Document >> >> >> Dim Source As Document >> >> >> Dim numpages As Long >> >> >> >> >> >> Set Target = ActiveDocument >> >> >> Set fd = Application.FileDialog(msoFileDialogFolderPicker) >> >> >> With fd >> >> >> .Title = "Select the folder containing the files." >> >> >> If .Show = -1 Then >> >> >> PathToUse = .SelectedItems(1) & "\" >> >> >> Else >> >> >> End If >> >> >> End With >> >> >> Set fd = Nothing >> >> >> SourceFile = Dir$(PathToUse & "*.doc") >> >> >> Do While SourceFile <> "" >> >> >> Set Source = Documents.Open(PathToUse & SourceFile) >> >> >> With Source >> >> >> .Range.Select >> >> >> Selection.Collapse wdCollapseEnd >> >> >> numpages = Selection.Information(wdActiveEndPageNumber) >> >> >> End With >> >> >> Target.Range.InsertAfter Source.Name & vbTab & numpages & >> >> >> vbCrLf >> >> >> Source.Close wdDoNotSaveChanges >> >> >> Set Source = Nothing >> >> >> SourceFile = Dir$ >> >> >> Loop >> >> >> >> >> >> >> >> >> -- >> >> >> Hope this helps. >> >> >> >> >> >> Please reply to the newsgroup unless you wish to avail yourself of >> >> >> my >> >> >> services on a paid consulting basis. >> >> >> >> >> >> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com >> >> >> >> >> >> "Krystal" <Krystal@discussions.microsoft.com> wrote in message >> >> >> news:6F904BF2-0902-47FC-A06B-59C34E7593A5@microsoft.com... >> >> >> > Here is what I am trying to accomplish using Word 2007 and XP: >> >> >> > >> >> >> > I want to create a TOC with the Title and Individual Section Page >> >> >> > Counts >> >> >> > using separate Individual Files to look like this: >> >> >> > >> >> >> > Section No. Title No. of Pages >> >> >> > 200500 General Provisions 5 >> >> >> > 200505 Project Closeout and Start-up 10 >> >> >> > >> >> >> > Information: >> >> >> > • The section number and title are the file names (i.e. 2000500 >> >> >> > General >> >> >> > Provisions.doc) and are also included in the beginning of each >> >> >> > document >> >> >> > as >> >> >> > well as a title (with a set style). >> >> >> > • All files are located in the same folder. >> >> >> > >> >> >> > Here is the current macro I am working with that was provided by >> >> >> > someone >> >> >> > on >> >> >> > this site: This macro does not input the correct page count for >> >> >> > each >> >> >> > file, >> >> >> > in fact it places the 1st file’s page count for each file >> >> >> > instead. >> >> >> > >> >> >> > Looks like this: >> >> >> > >> >> >> > 200500 GENERAL PROVISIONS test.doc 3 >> >> >> > SECTION 200523 VALVES DRAFT with index codes.doc 3 >> >> >> > Table style settings-example.doc 3 >> >> >> > >> >> >> > The macro will put the correct page count ONLY if all the files >> >> >> > are >> >> >> > open. >> >> >> > But considering I am trying to use this macro for 50+ documents >> >> >> > at a >> >> >> > time, >> >> >> > this is not a viable solution. Any help would be GREATLY >> >> >> > appreciated; >> >> >> > I’ve >> >> >> > been working on this for months. Thanks. >> >> >> > >> >> >> > >> >> >> > Sub TOCpgcnt() >> >> >> > ' >> >> >> > ' TOCpgcnt Macro >> >> >> > ' >> >> >> > ' >> >> >> > Dim fd As FileDialog >> >> >> > Dim PathToUse As String >> >> >> > Dim SourceFile As String >> >> >> > Dim Target As Document >> >> >> > Dim Source As Document >> >> >> > Dim numpages As Long >> >> >> > >> >> >> > Set Target = ActiveDocument >> >> >> > Set fd = Application.FileDialog(msoFileDialogFolderPicker) >> >> >> > With fd >> >> >> > .Title = "Select the folder containing the files." >> >> >> > If .Show = -1 Then >> >> >> > PathToUse = .SelectedItems(1) & "\" >> >> >> > Else >> >> >> > End If >> >> >> > End With >> >> >> > Set fd = Nothing >> >> >> > SourceFile = Dir$(PathToUse & "*.doc") >> >> >> > Do While SourceFile <> "" >> >> >> > Set Source = Documents.Open(PathToUse & SourceFile) >> >> >> > numpages = Source.BuiltInDocumentProperties(wdPropertyPages) >> >> >> > Target.Range.InsertAfter Source.Name & vbTab & numpages & >> >> >> > vbCrLf >> >> >> > Source.Close wdDoNotSaveChanges >> >> >> > SourceFile = Dir$ >> >> >> > Loop >> >> >> > >> >> >> > End Sub >> >> >> >

Similiar Articles:

Programming a TOC to have page counts (not page location ...
Here is what I am trying to accomplish using Word 2007 and XP: I want to create a TOC with the Title and Individual Section Page Counts using sep...

How to scrape web page data in VBA - microsoft.public.excel ...
Programming a TOC to have page counts (not page location ... How to scrape web page data in VBA - microsoft.public.excel ..... few data items from that web location ... to ...

How to incorporate page counts in TOC - microsoft.public.word.vba ...
... incorporate each document’s total page count into the Table of Contents ... Programming a TOC to have page counts (not page location ... How to incorporate page counts in ...

msgbox title issue - microsoft.public.scripting.vbscript ...
I need a "confirmation Message Box" to let the users to click either "YES" (to ... Programming a TOC to have page counts (not page location ... msgbox title issue ...

Get a list of files that does not contain certain text inside the ...
Programming a TOC to have page counts (not page location ... Get a list of files that does not contain certain text inside the ... Programming a TOC to have page counts ...

Using the page title - microsoft.public.publisher
Programming a TOC to have page counts (not page location ... Here is what I am trying to accomplish using Word 2007 and XP: I want to create a TOC with the Title and ...

Word 2007 - Remove a TOC - microsoft.public.word.application ...
Programming a TOC to have page counts (not page location ... Here is what I am trying to accomplish using Word 2007 and XP: I want to create a TOC with the Title ... some ...

How can I begin numbering pages(Pub) on first page after inside ...
Programming a TOC to have page counts (not page location ..... Project Closeout and Start-up 10 Information: • The section number and ... it to pick out the title ...

Need help for macro to add name to several places in a document ...
Programming a TOC to have page counts (not page location ... Any help would be GREATLY ... Or would my previous macro need to be ... specific style > > in the word document?

Macro in Word2007 open another program? - microsoft.public.word ...
Programming a TOC to have page counts (not page location ... Here is what I am trying to accomplish using Word 2007 ... think that it is a timing issue, Here is another ...

Word Page Numbers - How To Information | eHow.com
... to place page numbers in any location on the page and ... document's page numbering still counts the first page ... is a report with a cover page and a table of contents before ...

Excel - My Excel Pages - Welcome to the MVPs.org home page!
I have been using cells.rows.count in VBA since ... and not by underlining. Tree like table of contents. ... 1st, 2008 after not being renewed in the MVP Program.

A Visual Guide to Document Design and Layout
... page and so this page is blank. Table of Contents The ... to display a page number, but this is not page 1 or even page i. To determine the correct page number, count the ...

7/14/2012 10:10:39 PM