Find word and replace tab with two spaces

Guessed · #5 05-01-2021, 11:54 PM

Firstly, there is a commonality there so you could search for "E:^t"
Secondly, you can replace formatting with a find but if you do, the actual text replacement doesn't happen at the same time. So I would do it with a pair of replacements - first just doing the formatting change, second doing the text change.

Code:

Sub CleanUp()
  Dim oRng As Word.Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .MatchCase = True
    .Text = "E:^t"
    .Replacement.ParagraphFormat.LeftIndent = InchesToPoints(0)
    .Execute Replace:=wdReplaceAll
    .Replacement.ClearFormatting
    .Replacement.Text = "E:  "
    .Execute Replace:=wdReplaceAll
  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