This can all be done via two
wildcard Find/Replace executions:
1. Find = [^t\-]
Replace = nothing
2. Find = ^13^32
Replace = ~
The equivalent macro would be:
Code:
Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Format = False
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Text = "[^t\-]"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
.Text = "^13^32"
.Replacement.Text = "~"
.Execute Replace:=wdReplaceAll
End With
End With
Application.ScreenUpdating = True
End Sub