Word Macro Issue - Page 2

swaneon · 10-04-2009, 03:29 AM

it gives me an error of 5560?
the find what text contains a pattern match expression that is not valid?
highlight

.Execute Replace:=wdReplaceAll

**macropod** · 10-04-2009, 04:07 AM

Hi swaneon,

Change:
.Text = "<" & Trim(wrdRef) & ">"
to:
.Text = "<" & Trim(wrdRef.Text) & ">"

swaneon · 10-04-2009, 08:33 PM

still the same error?

**macropod** · 10-04-2009, 08:36 PM

Hi swaneon,

OK, what was the Find expression? My guess is your checklist.doc has one or more empty paragraphs. You should clean them out. And, here's some new code for the For - Next loop that ignore empty paragraphs:

Code:

  For Each oPara In docRef.Paragraphs
    If oPara.Range.Characters.Count > 1 Then
      Set wrdRef = oPara.Range
      wrdRef.MoveEnd wdCharacter, -1
      .Text = "<" & Trim(wrdRef.Text) & ">"
      .Execute Replace:=wdReplaceAll
    End If
  Next

swaneon · 10-04-2009, 09:37 PM

i will try that thank you

swaneon · 10-05-2009, 11:38 PM

i believe it works perfectly now--thank you very much

swaneon · 10-10-2009, 11:45 PM

thank you again

KJJones · 10-12-2009, 01:58 AM

Yes - Many thanks from me too!

10-04-2009, 03:29 AM	#21 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue it gives me an error of 5560? the find what text contains a pattern match expression that is not valid? highlight .Execute Replace:=wdReplaceAll

10-04-2009, 04:07 AM	#22 (permalink)
macropod TSF Enthusiast Join Date: Apr 2008 Location: Australia Posts: 562 OS: Vista	Re: Word Macro Issue Hi swaneon, Change: .Text = "<" & Trim(wrdRef) & ">" to: .Text = "<" & Trim(wrdRef.Text) & ">" __________________ Cheers macropod (MS MVP -Word)

10-04-2009, 08:33 PM	#23 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue still the same error?

10-04-2009, 08:36 PM	#24 (permalink)
macropod TSF Enthusiast Join Date: Apr 2008 Location: Australia Posts: 562 OS: Vista	Re: Word Macro Issue Hi swaneon, OK, what was the Find expression? My guess is your checklist.doc has one or more empty paragraphs. You should clean them out. And, here's some new code for the For - Next loop that ignore empty paragraphs: Code: For Each oPara In docRef.Paragraphs If oPara.Range.Characters.Count > 1 Then Set wrdRef = oPara.Range wrdRef.MoveEnd wdCharacter, -1 .Text = "<" & Trim(wrdRef.Text) & ">" .Execute Replace:=wdReplaceAll End If Next __________________ Cheers macropod (MS MVP -Word) Last edited by macropod; 10-04-2009 at 08:48 PM.

10-04-2009, 09:37 PM	#25 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue i will try that thank you

10-05-2009, 11:38 PM	#26 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue i believe it works perfectly now--thank you very much

10-10-2009, 11:45 PM	#27 (permalink)
swaneon Registered User Join Date: Oct 2009 Posts: 14 OS: Win7	Re: Word Macro Issue thank you again

10-12-2009, 01:58 AM	#28 (permalink)
KJJones Registered User Join Date: Sep 2009 Posts: 3 OS: Vista Business SP2	Re: Word Macro Issue Yes - Many thanks from me too!