Word 2003 Track Changes

[senthilkumarabi]

Dear All,

I am working with word VBA. I want to do find and replace usin
wildcard option enabled. The find and replace text are given in th
attached document. The input and output results are also given in th
attached document. When I do my find and replace with track change on
am not getting my correct output. Expecting your help in this regard.

Thanks,
Senthil.

 

[Doug Robbins - Word MVP]

I am not sure what you mean by the attached document as attachments are not
allowed in these newsgroups. You would also have to show us the VBA code
that you are using.

--
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

 

[senthilkumarabi]

Dear All,

Please find the attachments for the earlier post.

Thanks,
Senthil. S


+-------------------------------------------------------------------+
|Filename: New Folder.zip |
|Download: http://www.wordbanter.com/attachment.php?attachmentid=89 |
+-------------------------------------------------------------------+

 

[Doug Robbins - Word MVP]

I see what the problem is, but have no way around it other than to use a
macro containing the following code to do it:

Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="Figure ([0-9]{1,}.[0-9]{1,})",
Forward:=True, _
MatchWildcards:=True, Wrap:=wdFindStop, MatchCase:=False) = True
Selection.Range.Text = "figure " & Mid(Selection.Range.Text, 8)
Set prevline = Selection.Range.Duplicate
Selection.Collapse wdCollapseEnd
Selection.MoveRight wdCharacter, 1
Loop
End With


--
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