Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

146 / 76807

←次へ　｜　前へ→


	【82332】Wordで塗りつぶしされ文字だけ検索したい。

- 24/7/27(土) 20:28 -


	引用なし

	パスワード

Wordで特定の色で塗りつぶしをされた文字だけを検索したいです。
chatGPTに聞いた下記のコードでは、エラーメッセージが出て検索できませんでした。
どこが違うのか、ご教授いただけますと幸いです。

Sub FindShadedText()
　　Dim searchColor As Long
　　Dim rng As Range
　　Dim found As Boolean
　　
　　' 検索する塗りつぶし色を設定（RGB値）
　　searchColor = RGB(255, 255, 0) ' 黄色の例

　　' ドキュメントの全範囲を設定
　　Set rng = ActiveDocument.Content
　　
　　' 範囲の最初に移動
　　rng.Collapse Direction:=wdCollapseStart
　　
　　' 塗りつぶし色を検索
　　found = False
　　Do While rng.Find.Execute(FindText:="", Format:=True)
　　　　If rng.Shading.BackgroundPatternColor = searchColor Then
　　　　　　rng.Select
　　　　　　found = True
　　　　　　Exit Do
　　　　End If
　　　　rng.Collapse Direction:=wdCollapseEnd
　　Loop
　　
　　If Not found Then
　　　　MsgBox "指定された塗りつぶし色のテキストが見つかりませんでした。"
　　End If
End Sub

0 hits

▼

【82332】Wordで塗りつぶしされ文字だけ検索したい。 M 24/7/27(土) 20:28