wdtitleword - vbaを使用して複数の単語に適用する

Question

Wordでは、文書のユーザーが複数の文字列、単語、文章などにハイライトを適用するのは簡単です。 しかし、Ctrlキーを押しながらいくつかの単語を選択して次の文を実行すると、最後に選択した単語だけが変更されます。 選択した複数の単語にwdtitlewordを適用する方法はありますか？おかげさまで

sub a() 
Selection.Range.Case = wdTitleWord 
end sub 

Answer 1

これを試してください：

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 

これは動作しますが、間接的です。私はこれを達成するより直接的な方法はないと思う。保存する必要のある既存の書式をリセットしないように変更することができます。これまでは、MS Wordで不連続範囲を選択することが可能であることを知りませんでした。残念ながら、VBAで作業するのは簡単ではありません。