Quote:
Originally Posted by macropod
In your attachment, you've replaced the string of spaces before the paragraph break, plus the paragraph break, with a single non-breaking space and a manual line break. The Find/Replace expression I posted didn't cause that. As for your question about the code itself, there's no .Execute line and there's nothing to indicate whether you're using wildcards. That said, at least one of the expressions wouldn't work unless you change the .UseWildcards state.
|
Is that right? I'm just beginner working on Word Macro.
Sorry for pressing you more on Weekend!!
Code:
With wdDoc
.ConvertNumbersToText (wdNumberAllNumbers)
With .Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Format = False
.Wrap = wdFindContinue
.MatchWildcards = True
.Text = "^w^p"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([0-9]{1,})[!^13]@| ([A-Z]{2}_[A-Z0-9^13]{8,9}>)^13"^p"