Insertbefore an array? help :(

macropod · #1 08-20-2014, 08:08 PM

In that case you would do better to insert the characters during the original Find/Replace, rather than after it. For example, after:
Application.ScreenUpdating = False

insert:
Dim Rng As Range
and after:
.Borders.Enable = True
insert:

Code:

    Set Rng = .Duplicate
    With Rng
      .Collapse wdCollapseStart
      .Text = ChrW(2588)
      With .Font
        .Size = 8
        .Color = 49407
        .Superscript = True
      End With
    End With

Of course, you'll want to change ChrW(2588) to reflect whatever your prefix character is.

n00bie-n00b · #2 08-20-2014, 11:14 PM

hmmm, i think i broke it!

.

Code:

Sub ConnectConson2Dipthongs()
'
' ConnectConson2Dipthongs Macro
'
'
'version 2.0


     '
    Application.ScreenUpdating = False
    Dim Rng As range
    With ActiveDocument.range
        With .find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "[aeiouy誄btdktdkgfvθdszmnhlrwj" & ChrW(602) & ChrW(712) & ChrW(593) & ChrW(720) & ChrW(596) & ChrW(601) & ChrW(604) & ChrW(618) & ChrW(952) & ChrW(650) & ChrW(652) & "]" _
      & ChrW(9700) & _
      "[aeiouy・ & ChrW(604) & ChrW(602) & ChrW(593) & ChrW(596) & ChrW(601) & ChrW(604) & ChrW(618) & ChrW(650) & ChrW(720) & ChrW(652) & "]{1,2}"
            .Forward = True
            .Wrap = wdFindStop
            .Format = False
            .MatchWildcards = True
            .Execute
        End With
        Do While .find.Found
            .Borders.Enable = True
             Set Rng = .Duplicate
    With Rng
      .Collapse wdCollapseStart
      .Text = ChrW(9660)
      With .Font
        .Size = 8
        .Color = 49407
        .Superscript = True
      End With
    End With
  
    Application.ScreenUpdating = True
End Sub

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