Find word and replace tab with two spaces

jeffreybrown · #1 05-01-2021, 04:00 PM

I have a paragraph

MESSAGE: What Storm Goers Need to Know

Between the "MESSAGE:" and the What is a tab character, but I would like to replace that tab character with two spaces.

This is the macro I found to find the paragraph that starts with MESSAGE, just not sure how to replace the tab character with two spaces.

Note: I added the With ORng.Find part to see if that would work. Apparently not.

Code:

Sub CleanUp()
    Dim oRng As Word.Range: Set oRng = ActiveDocument.Range
    With oRng.Find
            .Text = "MESSAGE:"
        While .Execute
            With oRng.Paragraphs(1).Range
                With oRng.Find
                    .Text = "^t"
                    .Replacement.Text = "  "
                End With
                    oRng.Find.Execute Replace:=wdReplaceAll
            End With
        Wend
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and replace query re missing spaces	Johanna	Word	3	11-22-2019 01:06 AM
How to find and replace random empty spaces in beginning of lines?	Pauliina	Word	4	05-24-2018 10:01 PM
Macro to find and replace specific types of spaces	dita	Word VBA	7	05-06-2018 12:47 AM
Find and Replace/Insert 'CR', delete leading Spaces wherever a user Clicks in a Word document	DavidL	Word VBA	7	04-04-2018 12:01 AM
Find and replace mutiple spaces between lowercase words only	Dave T	Word VBA	2	07-16-2015 11:23 PM