Insertbefore an array? help :(

n00bie-n00b · #1 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 · #2 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 · #3 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 · #4 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 · #5 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 · #6 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 · #7 08-21-2014, 08:03 PM

Urghh!! I think i love you!

Cheers m8.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to 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