Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Fridge2text()
- '
- ' Fridge2text Macro
- '
- '
- Selection.Find.ClearFormatting
- Selection.Find.Replacement.ClearFormatting
- With Selection.Find
- .Text = "^13^13[0-9]{1,}^13"
- .Replacement.Text = " "
- .Forward = True
- .Wrap = wdFindContinue
- .Format = False
- .MatchCase = False
- .MatchWholeWord = False
- .MatchWildcards = True
- .MatchSoundsLike = False
- .MatchAllWordForms = False
- End With
- Selection.Find.Execute Replace:=wdReplaceAll
- With Selection.Find
- .Text = "^13"
- .Replacement.Text = " "
- .Forward = True
- .Wrap = wdFindContinue
- .Format = False
- .MatchCase = False
- .MatchWholeWord = False
- .MatchWildcards = True
- .MatchSoundsLike = False
- .MatchAllWordForms = False
- End With
- Selection.Find.Execute Replace:=wdReplaceAll
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement