The sentence looks like this "Approval Date 12 November 2019"
Right after the word "Approval Date", I would like to add a tab in place of the space and then the code adds a 6.5 right tab stop.
Code: Select all
Sub FixTab()
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "Approval Date"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchWildcards = True
.Execute
End With
If .Find.Found = True Then
.ParagraphFormat.TabStops.Add Position:=InchesToPoints(6.5), Alignment:=WdTabAlignment.wdAlignTabRight
End If
End With
End Sub