![]() |
#1
|
|||
|
|||
![]()
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 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. |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Recording macro for Find Wildcard | 2vbr | Word VBA | 3 | 09-21-2020 05:29 PM |
![]() |
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 |