wdtitleword - use vba to apply to more than one word

Question

In Word it\'s easy to use vba to apply a highlight to more than one string, word, sentence etc after the user of the document has Ctrl-selected a bunch of them. However, when I

Answer 1

Please try this:

Sub changeNonContigCase()

    ' Find the non-contig selection
    If Selection.Font.Shading.BackgroundPatternColor = wdColorAutomatic Then
        Selection.Font.Shading.BackgroundPatternColor = whtcolor
    End If

    ' Find and process each range with .Font.Shading.BackgroundPatternColor = WhtColor
    ActiveDocument.Range.Select
    Selection.Collapse wdCollapseStart

    With Selection.Find
        .Font.Shading.BackgroundPatternColor = whtcolor
        .Forward = True
        .Wrap = wdFindContinue

        Do While .Execute
            ' Do what you need
            Selection.Range.Case = wdTitleWord

            ' Reset shading as you go
            Selection.Font.Shading.BackgroundPatternColor = wdColorAutomatic

            ' Setup to find the next selection
            Selection.Collapse wdCollapseEnd
        Loop
    End With

End Sub

This works, but is indirect. I don't think there is a more direct way to achieve this. You can modify to avoid resetting existing formatting that you need to preserve. Until now I didn't even know that it was possible to select a non-contiguous range in MS Word, pity it is not easier to work with in VBA.