Word macro wildcard issue

syl3786 · #1 01-11-2024, 03:21 AM

Greetings everyone,

I hope this message finds you well. I was wondering if I could kindly ask for your assistance. I am currently developing a word macro that will find and replace Arabic numbers to Chinese numbers with tracked changes record. If it's not too much trouble, please see the code below:

Code:

Sub ANC()

Dim RT As Boolean
   
RT = ActiveDocument.TrackRevisions
ActiveDocument.TrackRevisions = True

Selection.HomeKey Unit:=wdStory, Extend:=wdMove
        
With Selection.Find

        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = True
    
        .text = vbTab & "1{1}([!0-9])"
        .Replacement.text = vbTab & "一\1"
        .Replacement.Font.ColorIndex = wdRed
        .Execute Replace:=wdReplaceAll
    
End With
    
ActiveDocument.TrackRevisions = RT

End Sub

For example:

Original paragraph:

[vbTab] 1abc, Video provides a powerful way to help you prove your point. When you click Online Video, you can paste in the embed code for the video you want to add. You can also type a keyword to search online for the video that best fits your document.

After running the macro:

[vbTab] 一abc, Video provides a powerful way to help you prove your point. When you click Online Video, you can paste in the embed code for the video you want to add. You can also type a keyword to search online for the video that best fits your document.

I have noticed that the text after "1" is also being changed in wdRed. From what I understand, this is happening because the wildcard "([!0-9])" is occupying a place and when it replaces according to the "\1", it is producing the undesired outcome as mentioned above.

Another issue that I am encountering is that any year, such as "1987" after vbTab, is also being changed to "一987".

If it's not too much trouble, could you please guide me on how to solve the above issues? Your expertise would be greatly appreciated.

Thank you very much for your time and consideration.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Recording macro for Find Wildcard	2vbr	Word VBA	3	09-21-2020 05:29 PM
Macro to highlight wildcard phrase, copy and paste into new doc.	MaryTom	Word VBA	2	05-18-2018 04:23 PM
Issue with wildcard search	mysterytramp	Word	0	05-13-2015 10:40 AM
Issue with Wildcard Search and Replace	linusthedog	Word	3	09-04-2014 03:32 PM
Change characters outside a wildcard while keeping wildcard results	nymusicman	Word VBA	2	04-10-2014 08:17 AM