happypuppy
01-07-2011, 07:35 PM
Hi,
I'm looking for a way to insert a comment every 1000 words.
I've searched the forums for related help and what I've found is a superscript font every 5 words:
For i = 1 To Selection.Words.Count Step 5
Selection.Words(i).Font.StrikeThrough = True
Next i
As well as:
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:="1000 words"
I tried to put them together with:
Selection.Wholestory
For i = 1000 To Selection.Words.Count Step 1000
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:="1000 words"
Next i
but it just makes a comment that covers the whole document.
Any help would be much appreciated.
Also, it counts punctuation marks as words. Is there a way of avoiding these?
Many thanks!
I'm looking for a way to insert a comment every 1000 words.
I've searched the forums for related help and what I've found is a superscript font every 5 words:
For i = 1 To Selection.Words.Count Step 5
Selection.Words(i).Font.StrikeThrough = True
Next i
As well as:
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:="1000 words"
I tried to put them together with:
Selection.Wholestory
For i = 1000 To Selection.Words.Count Step 1000
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:="1000 words"
Next i
but it just makes a comment that covers the whole document.
Any help would be much appreciated.
Also, it counts punctuation marks as words. Is there a way of avoiding these?
Many thanks!