Detecting that previous character doesn't exist (i.e., present character is first in document)

gmayor · #8 07-18-2016, 09:48 PM

Come to that you could simply use

Code:

    With Selection.Font
        .Underline = wdUnderlineNone
        .StrikeThrough = False
    End With

which will remove underlining and strikethough from the selected text. Or for the main story range

Code:

    With ActiveDocument.Range.Font
        .Underline = wdUnderlineNone
        .StrikeThrough = False
    End With

If you want to use .Find then note that this does not limit the search to the end of the selected text, so test for the range being in the selection e.g.

Code:

Dim oRng As Range
    Set oRng = Selection.Range
    With oRng.Find
        .Font.StrikeThrough = True
        Do While .Execute
            If oRng.InRange(Selection.Range) Then
                oRng.Font.StrikeThrough = False
                oRng.Collapse 0
            End If
        Loop
    End With
    Set oRng = Selection.Range 'Reset the range
    With oRng.Find
        .Font.Underline = wdUnderlineSingle
        Do While .Execute
            If oRng.InRange(Selection.Range) Then
                oRng.Font.Underline = wdUnderlineNone
                oRng.Collapse 0
            End If
        Loop
    End With

Or for the whole main story range the test is not required e.g.

Code:

Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .Font.StrikeThrough = True
        Do While .Execute
            oRng.Font.StrikeThrough = False
            oRng.Collapse 0
        Loop
    End With
    Set oRng = ActiveDocument.Range 'Reset the range
    With oRng.Find
        .Font.Underline = wdUnderlineSingle
        Do While .Execute
            oRng.Font.Underline = wdUnderlineNone
            oRng.Collapse 0
        Loop
    End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to list all character styles in a document	ljd108	Word VBA	11	08-28-2024 01:20 AM
Replace a random character with the same character	RickLegrand	Word	7	07-23-2015 06:35 PM
How can select from a specific character to another character	mohsen.amiri	Word	2	02-19-2015 11:38 PM
Regular (roman) character style doesn't change text to roman	kcbenson	Word	2	10-16-2014 01:31 PM
Finding or searching ^ character in word document	shahin3121	Word	2	03-05-2012 06:16 PM