Thread: Seeking guidance on using Word macros to find and replace Arabic numbers after indent
View Single Post
 
Old 01-11-2024, 09:05 PM
syl3786 syl3786 is offline Windows 10 Office 2019
Advanced Beginner
  
Join Date: Jan 2023
Posts: 97
syl3786 is on a distinguished road
Default Seeking guidance on using Word macros to find and replace Arabic numbers after indent
Hello everyone,

I hope this message finds you all well. I am currently working on a Word macro that aims to find and replace Arabic numbers specifically after an indent. Despite my efforts in searching through numerous forums and websites dedicated to Word macros, I have been unable to find relevant information to address my specific query.

I would like to share the Word macro I got from this forum thus far, which is intended to find and replace Arabic numbers following the Chr(9) character:

Code:
Sub Replace_Digits_With_Wds()

Dim oRng As range

Application.ScreenUpdating = False
Set oRng = ActiveDocument.range
    With oRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchWildcards = True
        .text = Chr(9) & "1([!0-9])"
        While .Execute
            oRng.End = oRng.End - 1
            oRng = Chr(9) & "-"
            oRng.Font.ColorIndex = wdBrightGreen
            oRng.Collapse wdCollapseEnd
        Wend
Application.ScreenUpdating = True
Set oRng = Nothing
End With

End Sub
If you have a moment to spare, I would be immensely grateful if you could provide me with some guidance on how to resolve the aforementioned issues. Your expertise and insights would be of great value to me.

Here attached the original document and expected result document for your references:

original document.docx
Expected result document.docx

Thank you kindly for taking the time to read my message and considering my request. I appreciate your assistance.
Reply With Quote