Selection doesn't contain the action

macropod · #1 10-21-2011, 02:20 AM

Hi Ulodesk,

Without seeing your code it's hard to be sure what the problem is. However, I suspect it has to do with your '.Wrap = ' line (if you have one), which should be set to 'wdFindStop'. Try:

Code:

Sub Demo()
With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Forward = True
  .Wrap = wdFindStop
  .Format = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
  'Find multiple consecutive paragraph breaks
  .Text = "[^13]{2,}"
  'Replace with a single paragraph break
  .Replacement.Text = "^p"
  .Execute Replace:=wdReplaceAll
End With
End Sub

Ulodesk · #2 10-21-2011, 05:59 AM

Dear Paul,
Right on target, as usual. My thanks once again, and best wishes,

Philip

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Calling for an action when typing a character	ACA	Word VBA	7	06-17-2011 10:28 AM
How to link an action on one slide on a powerpoint with the same action on another	slevinmj	PowerPoint	0	02-24-2011 05:38 AM
Writing a custom action/rule to check outgoing emails	ajm218	Outlook	1	02-12-2011 01:52 PM
Change Action Setting Path	gskelton	PowerPoint	0	02-27-2010 03:20 PM
Highlighted Selection on Action Settings	mos7sad	PowerPoint	0	10-12-2009 07:48 AM