Insertbefore an array? help :(

n00bie-n00b · #9 08-15-2014, 10:26 PM

haha, im sorry (please forgive my noobity)

This is essentially what i want....

Code:

Sub Demo() 
     '
     ' demo Macro
     '
    Application.ScreenUpdating = False 
    With ActiveDocument.range 
        With .find 
            .ClearFormatting 
            .Replacement.ClearFormatting 
            .Text = "["i" & ChrW(720), ChrW(618), ChrW(650), u, e, i, ChrW(601), ChrW(601) & ChrW(720), ChrW(604) & ChrW(720), ChrW(596) & ChrW(720), ChrW(596), æ, ChrW(652), ChrW(593) & ChrW(720), ChrW(618) & ChrW(601), "e" & ChrW(618), ChrW(650) & "e", ChrW(596) & ChrW(618), ChrW(601) & ChrW(650), "o" & ChrW(650), "e" & ChrW(601), "a" & ChrW(618), "a" & ChrW(650)]" & ChrW(9700) & "[p, b, t, d, "t" & ChrW(643), "d" & ChrW(658), k, g, f, v, ChrW(952), ð, s, z, ChrW(643), ChrW(658), m, n, ChrW(331), h, l, r, w, j]*>" 
            .Replacement.Text = "" 
            .Forward = True 
            .Wrap = wdFindStop 
            .Format = False 
            .MatchWildcards = True 
            .Execute 
        End With 
        Do While .find.Found 
            .Borders.Enable = True 
            .Collapse wdCollapseEnd 
            .find.Execute 
        Loop 
    End With 
    Application.ScreenUpdating = True 
End Sub

*but it doesnt work

and, i do want "vowel" & ChrW(9700) & "consonant" boxed, but then the box continues to box off the rest of the word, it doesnt just stop at the consonant?!

(sorry and thank you)

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