FindReplace.MatchWidth プロパティ (Publisher)

検索操作が検索テキストの文字幅と一致するかどうかを表す ブール型 (Boolean) の値を設定または返します。 値の取得と設定が可能です。

構文

式。MatchWidth

式FindReplace オブジェクトを表す変数。

戻り値

Boolean

注釈

このプロパティは、オペレーティング システムで有効になっている言語によっては使用できない可能性があります。 既定値は False です。

東アジア言語が有効になっていない場合は、"アクセスが拒否されました" を返します。

例

次の使用例は、作業中の文書で "width" という単語が出現するたびに検索し、太字の書式設定を適用します。 フルまたは半角文字両方見つけることができるように、 MatchWidth プロパティは False に設定します。 たとえば、この検索が"width"(半角文字) という単語と単語に太字の書式を適用するが"w 私 d t h」(全角文字)。

Dim objDocument As Document 
Set objDocument = ActiveDocument 
With objDocument.Find 
 .Clear 
 .FindText = "width" 
 .MatchWidth = False 
 Do While .Execute = True 
 .FoundTextRange.Font.Bold = msoTrue 
 Loop 
End With

次の使用例は、作業中の文書で "width" という単語が出現するたびに検索し、太字の書式設定を適用します。 完全または半分の幅の文字のいずれかを見つけることができるように、 MatchWidth プロパティは True に設定します。 たとえば、"width"に太字の書式が適用されます。 単語に書式設定は適用されません"w i d t h」です。

Dim objDocument As Document 
Set objDocument = ActiveDocument 
With objDocument.Find 
 .Clear 
 .FindText = "width" 
 .MatchWidth = True 
 Do While .Execute = True 
 .FoundTextRange.Font.Bold = msoTrue 
 Loop 
End With

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。