Insertbefore an array? help :(

macropod · #6 08-15-2014, 09:11 PM

To box the whole 'word' containing the ChrW(9700), you could use:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "[aeiouy]" & ChrW(9700) & "[bcdfghjklmnpqrstvwxyz]*>"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    .Start = .Words.First.Start
    .Borders.Enable = True
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

To box just the "vowel" & ChrW(9700) & "consonant", you could use the above without the '*>' and '.Start = .Words.First.Start'.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding information from a array into a table	jcorti	Word VBA	4	01-10-2014 10:58 PM
Convert String Array to Integer Array from a User Input?	tinfanide	Excel Programming	4	12-26-2012 08:56 PM
Complex array formula	andrei	Excel	9	02-03-2012 03:40 AM
How to capture start and ending Ref. Nos. in an array	KIM SOLIS	Excel	5	09-07-2011 07:43 AM
Look up an array based on user input	johnsmb	Excel	2	01-07-2011 01:12 PM