Start of Document Code Problem

norgro · #1 02-12-2013, 02:23 AM

I am writing code to highlight "ance" in a Word document. In Braille, there is a contraction for "ance" (and other combinations of letters). My macro seems to work provinding the document does not start with "ance".

It would be appreciated if someone could tell me how to include the "if the document does not start with "ance" condition.

I am attaching the code.

Code:

Sub HighlightAnceIfNotStartOfWord() 
    Set oRng = ActiveDocument.Range 
     ' Search document for specified text and highlight text.
    With oRng.Find 
        .Text = "ance" 
         '
         ' .Highlight - colour - yellow if previous character if alphabetic character - otherwise turquoise.
        .Wrap = wdFindStop 'stops at the end of the document
        While .Execute 
             ' MsgBox (oRng.Characters.First.Previous)
            If (Asc(oRng.Characters.First.Previous) >= 65 And Asc(oRng.Characters.First.Previous) <= 90) _ 
            Or (Asc(oRng.Characters.First.Previous) >= 97 And Asc(oRng.Characters.First.Previous) <= 122) _ 
            Then 
                oRng.HighlightColorIndex = wdYellow 
            Else: oRng.HighlightColorIndex = wdTurquoise 
            End If 
        Wend 
    End With 
End Sub

macropod · #2 02-12-2013, 03:49 AM

Try the following:

Code:

Sub HighlightAnceIfNotStartOfWord()
' Search document for specified text and highlight text.
With ActiveDocument.Range
    With .Find
        .Text = "ance"
         ' .Highlight - colour - yellow if previous character if alphabetic character - otherwise turquoise.
        .Wrap = wdFindStop 'stops at the end of the document
        .Execute
    End With
    Do While .Find.Found
        If .Characters.First.Previous Like "[A-Za-z]" Then
            .HighlightColorIndex = wdYellow
        Else
            .HighlightColorIndex = wdTurquoise
        End If
        .Collapse wdCollapseEnd
        .Find.Execute
    Loop
End With
End Sub

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.

norgro · #3 02-12-2013, 04:03 AM

Sincere thanks Paul. I really appreciate your help.

What a great forum this is!

Norman

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do you view the source code in a Word 10 web document?	provlima	Word	2	05-25-2012 01:12 PM
issues with old documents resuming when i start a new document	hughug	Word	2	12-12-2011 02:40 PM
.OnAction only works in document with the code	donbexcel	Word VBA	1	11-02-2011 05:25 AM
Remove text in start up document	Sheila	Word	1	09-30-2010 03:33 PM
how can I add a peace of code to MS document	amlife	Word VBA	0	03-03-2010 03:35 PM