Insertbefore an array? help :(

n00bie-n00b · #16 08-20-2014, 07:32 PM

hi, i (you) finally finished it, thanks for all your help sir!

can you help me with a simple "find.boarders = true insert before"? (trying to insert a character before every instance of a character border

Code:

Sub insertbefore
'
'
 Selection.find.boarders = True
 
With Selection.find.Replacement.Font
        .Size = 8
        .Color = 49407
        .Superscript = True
        .Subscript = False
    End With
    Selection.find.Execute Replace:=wdReplaceAll
End Sub

(looked online but cant seem to find out how to search for letters with a character border)

macropod · #17 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 · #18 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

macropod · #19 08-21-2014, 02:21 AM

I provide you with code to insert; I didn't say to delete any (which is what you've done)...

n00bie-n00b · #20 08-21-2014, 05:43 PM

hey, ive definitely broken it, tried to revert it, but dont have a save.

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(2588)
      With .Font
        .Size = 8
        .Color = 49407
        .Superscript = True
      End With
      
            .Collapse wdCollapseEnd
            .find.Execute
        Loop
    End With
    Application.ScreenUpdating = True
End Sub

loop without do! Anything ive missed out?

macropod · #21 08-21-2014, 07:52 PM

Try:

Code:

Sub Demo1()
Application.ScreenUpdating = False
Dim Rng As Range
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "[aeiouyæ" & ChrW(593) & ChrW(596) & ChrW(601) & ChrW(604) & ChrW(618) & ChrW(650) & ChrW(652) & "]{1,}" _
      & ChrW(9700) & _
      "[!^32-^62\?\@aeiouyæ" & ChrW(593) & ChrW(596) & ChrW(601) & ChrW(604) & ChrW(618) & ChrW(650) & ChrW(652) & "]"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    .Borders.Enable = True
    .InsertBefore "|"
    Set Rng = .Duplicate
    With Rng
      .Collapse wdCollapseStart
      .Text = ChrW(2588)
      With .Font
        .Size = 8
        .Color = 49407
        .Superscript = True
      End With
    End With
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

n00bie-n00b · #22 08-21-2014, 08:03 PM

Urghh!! I think i love you!

Cheers m8.

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