Hyperlink in Table of contents

macropod · #14 03-25-2016, 03:43 PM

Sure one could, but that isn't what you had asked for. All you asked for originally was how to get the counts. I gave you a simple macro for that because I had no idea what you wanted to do with them after they were generated. For all I knew, you wanted to read & delete them or attach them to your actual headings.

I still don't see the point in generating this kind of stuff with a macro when you can get the word count for any range you're interested in just by selecting the range and looking at the word count stats on the status bar. That said, try:

Code:

Sub Demo()
Dim Sctn As Section, StrCounts As String, Rng As Range, TOC As TableOfContents
With ActiveDocument
  For Each Sctn In .Sections
    StrCounts = StrCounts & "Section " & Sctn.Index & ":" & vbTab & _
      Sctn.Range.ComputeStatistics(wdStatisticWords) & vbCr
  Next
  Set Rng = .Characters.Last
  With Rng
    .InsertAfter StrCounts
    .End = .End - 1
    .Style = wdStyleHeading2
  End With
  For Each TOC In .TablesOfContents
    TOC.Update
  Next
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Move table cell contents from one table to another table or cell in same table	donaldadams1951	Word VBA	4	02-04-2015 03:54 PM
Table with Table of Contents as a Column	dynamictiger	Word Tables	4	07-21-2014 10:16 PM
Table of Contents	feature	Word	10	04-09-2013 05:45 AM
Table of Contents	ep2002	Word	4	06-20-2012 10:23 PM
Table of contents	markos97	Word	0	10-26-2010 08:52 AM