Re: Code won't execute Main Macro Calls - non breaking spaces

Graham, a further question if you would be so kind to help me out.

I am going to attach my first array which is the same as you have written
except standard text.
Have your array to remedy any non breaking spaces in the standard text.
Then I would like to Call or Run a couple of other proofing macros at the
same time to complete the routine.

So each macro will execute one after the other.

So using the below macro how do I add call or run my remaing macros some of
which don't require MatchWildcards and do need clear and replace to be set.
One macro I need is the below macro:

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting



With Selection.Find

..Text = " {2,}"

..Replacement.Text = " "

..Wrap = wdFindStop

..MatchWildcards = True

..Execute Replace=wdReplaceAll

End With


Any ideas on how to do this would be great. Thank you so much.

"Ann Marie" <am@xxxxxxxxxxxxx> wrote in message
news:etmsrkdyGHA.3568@xxxxxxxxxxxxxxxxxxxxxxx
Okay, will do that next time Graham.

This is looks great thank you for doing the code.

"Graham Mayor" <gmayor@xxxxxxxxxxxxxxxxxx> wrote in message
news:e2OWzSdyGHA.1256@xxxxxxxxxxxxxxxxxxxxxxx
It would have been better if you had continued within the original
thread.

The search patterns already quoted in that thread are suited only to the
formats you quoted there. Here you have three different number/letter
combinations. You will have to search for each pattern separately and
search the dates first or the months will cause problems. For your given
list the following will work. I have separated each find string and each
replace string for the sake of clarification. Start with the dates, then
the longest string, then work down to the shorter strings. Each is
replaced by the corresponding item in the replacement text array.

Sub ReplaceList()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long

vFindText = Array("([0-9]{1,2}) ([a-zA-Z]{3,}) ([0-9]{4})", _
"([A-Z]{3,4}) ([0-9]{2,}) ([0-9]{2,}) ([0-9]{2,}) ([0-9]{2,})", _
"([A-Z]{3,4}) ([0-9]{2,}) ([0-9]{2,}) ([0-9]{2,})", _
"([A-Z]{3,4}) ([0-9]{2,})")
vReplText = Array("\1^0160\2^0160\3", _
"\1^0160\2^0160\3^0160\4^0160\5", _
"\1^0160\2^0160\3^0160\4", _
"\1^0160\2")
With Selection.Find
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
.Format = True
.MatchCase = True

For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute replace:=wdReplaceAll
Next i
End With

End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Ann Marie wrote:
Hi again Doug and Greg,


My MAIN MACRO does not execute the first 2 options DO FIND AND
REPLACE. But both syntax work in the Find and Replace window. The
remainder of the MAIN MACRO options execute.



Would appreciate if someone could point me in the right direction to
fix this. I would like to expand on my call routines but one step at
a time. Would really appreciate it.



TEST DATA:



20 June 2007

XXX 19 233 444 555

XXX 000 222 222

10 MAY 2006

13 JUNE 2006

13 may 2006

XXXX 123444

And this is a test sentence. This replace is just a test. Thank you
for helping? And that is that.



***MACROS***

Option Explicit



Sub DoFindReplace(FindText As String, ReplaceText As String, _

Optional bMatchWildCards As Boolean = False)



With Selection.Find

.ClearFormatting

.Replacement.ClearFormatting

.Text = FindText

.Replacement.Text = ReplaceText

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False



Do While .Execute

'Keep going until nothing found

.Execute Replace:=wdReplaceAll

Loop

'Free up some memory

ActiveDocument.UndoClear

End With



End Sub





'Call the macro:



Public Sub MainMacro()



'Replace spaces with non breaking spaces

Call
DoFindReplace("([0-9]{1,2})([ADFJMNOS][A-Za-z]{2,})([0-9]{4})",
"\1^0160\2^0160\3^0160\4")


'Dates - replace spaces with non breaking spaces

Call
DoFindReplace(FindText:="([0-9]{1,2})(([0-9]{1,2})([ADFJMNOS][A-Za-z]{2,})([0-9]{4})",
ReplaceText:="\1^0160\2^0160\3", bMatchWildCards:=True)



'Remove double spaces TEST WORKS

Call DoFindReplace(" ", " ")



'Remove all double tabs TEST WORKS

Call DoFindReplace("^t^t", "^t")



'Remove empty paras (unless they follow a table or start or finish
a doc) TEST WORKS

Call DoFindReplace("^p^p", "^p")



End Sub






.

Relevant Pages

  • Re: Code wont execute Main Macro Calls - non breaking spaces
    ... I am going to attach my first array which is the same as you have ... So each macro will execute one after the other. ... separated each find string and each replace string for the sake of ...
    (microsoft.public.word.vba.general)
  • Re: Using Case
    ... Sub Resetsearch() ... .MatchWildcards = False ... Dim sMsg1 As String ' String Message 1 ... .Execute Replace:=wdReplaceAll ...
    (microsoft.public.word.vba.general)
  • Re: Code wont execute Main Macro Calls - non breaking spaces
    ... Public Sub MainMacro() ... Sub DoFindReplace(FindText As String, ReplaceText As String, ... My MAIN MACRO does not execute the first 2 options DO FIND AND REPLACE. ... .MatchWildcards = False ...
    (microsoft.public.word.vba.general)
  • Re: Code wont execute Main Macro Calls - non breaking spaces
    ... I am going to attach my first array which is the same as you have ... So each macro will execute one after the other. ... separated each find string and each replace string for the sake of ...
    (microsoft.public.word.vba.general)
  • Re: wxPython and macros (was: Why dont people like lisp?
    ... > Why do you need a macro for that? ... you used a string as the parameter. ... the call would execute it immediately and the system crashes. ... Maybe you argue this particular code only occurs once per app; ...
    (comp.lang.lisp)
Quantcast