SHARE
TWEET

Untitled

a guest Oct 12th, 2017 42 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Selection.Find.ClearFormatting
  2. Selection.Find.Replacement.ClearFormatting
  3. With Selection.Find
  4.     .Text = "[nm]>"
  5.     .Replacement.Text = ""
  6.     .Forward = True
  7.     .Wrap = wdFindContinue
  8.     .MatchWildcards = True
  9.     Selection.Find.Execute
  10.         With Selection
  11.                 If Selection.Find.Found = n Then
  12.             Selection.TypeText Text:=m
  13.         ElseIf Selection.Find.Found = m Then
  14.                 Selection.TypeText Text:=n
  15.         End If
  16.     End Sub
RAW Paste Data
Top