View Single Post
 
Old 08-21-2014, 05:43 PM
n00bie-n00b n00bie-n00b is offline Windows 7 32bit Office 2007
Novice
 
Join Date: Aug 2014
Posts: 17
n00bie-n00b is on a distinguished road
Default

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?

Last edited by n00bie-n00b; 08-21-2014 at 06:28 PM. Reason: changed code
Reply With Quote