Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.tables
|
|||
|
|||
exlcude tables in word count
Hello
Does anyone know how I can run the word count tool in Word 97 and get it to exclude the words in tables and inside brackets from the total word count? Many thanks for your help. Khilna |
#2
Posted to microsoft.public.word.tables
|
|||
|
|||
exlcude tables in word count
Save the document. Delete all tables and text in brackets. Get your word
count. Close without saving. "Khilna" wrote in message ... Hello Does anyone know how I can run the word count tool in Word 97 and get it to exclude the words in tables and inside brackets from the total word count? Many thanks for your help. Khilna |
#3
Posted to microsoft.public.word.tables
|
|||
|
|||
exlcude tables in word count
For automating Jezebels suggestions you might use something like:
Sub ScratchMacro() Dim myString As String Dim oStoryRng As Word.Range Dim i As Long myString = ActiveDocument.FullName ActiveDocument.Close wdSaveChanges Documents.Open FileName:=myString For i = ActiveDocument.Tables.Count To 1 Step -1 ActiveDocument.Tables(i).Delete Next For Each oStoryRng In ActiveDocument.StoryRanges Do Until (oStoryRng Is Nothing) With oStoryRng.Find .ClearFormatting .Replacement.ClearFormatting .Text = "\{*\}" .Replacement.Text = "" .MatchWildcards = True .Execute Replace:=wdReplaceAll End With Set oStoryRng = oStoryRng.NextStoryRange Loop Next MsgBox ActiveDocument.ComputeStatistics(wdStatisticWords) ActiveDocument.Close wdDoNotSaveChanges Documents.Open FileName:=myString End Sub |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
apply a template to existing documents | Page Layout | |||
Does Word have Keyboard Merges like Word Perfect does? | Mailmerge | |||
Word2000 letterhead merge | Mailmerge | |||
Underscore (_) will not always display in RTF files (Word 2002). | Microsoft Word Help | |||
How do I create & merge specific data base & master documents? | New Users |