wordの文書内で上から順番に"有"、"無"などを走査し該当のキーワードがあったら丸で囲む、最終文字列まで上から順番にメッセージボックスに任意のキーワードを入れ、既に丸がある所はスキップみたいなことをしたく下記のような形で組んでみたのですが、エラーとなり思ったように処理ができません。
コンパイルエラー箇所
Set rng = rng.Find(keyWord, After:=rng.End, LookAt:=wdWhole)
検索などしてみましたが、よく理解できるページも見つけられずです。
参考になるサイトやここが悪いというような助言をいただけます幸いです。
元のソース
Sub AddCircleHighlight()
Dim doc As Document
Dim rng As Range
Dim keyWord As Variant
Dim shp As Shape
Set doc = ActiveDocument
' "有"と"無"のリスト
keyWord = Array("有", "無")
For Each keyword In keyWord
For Each rng In doc.StoryRanges
Do
Set rng = rng.Find(keyword, LookAt:=wdWhole)
If Not rng Is Nothing Then
' 既に〇が付いている場合はスキップ
If InStr(rng.Text, "〇" & keyword & "〇") = 0 Then
Set shp = doc.Shapes.AddShape(msoShapeOval, rng.Information(wdHorizontalPositionRelativeToPage), _
rng.Information(wdVerticalPositionRelativeToPage), 15, 15)
With shp
.Fill.Visible = msoFalse
.Line.Weight = 1
.Line.ForeColor.RGB = vbBlack
End With
rng.Collapse wdCollapseEnd
End If
Else
Exit Do
End If
Loop
Next rng
Next keyword
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBAに関して 2 2023/11/09 20:57
- Excel(エクセル) VBA 1 2023/04/27 13:37
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 1 2022/04/29 02:36
- Visual Basic(VBA) ExcelVBAコードについて 5 2023/10/28 16:54
- Visual Basic(VBA) select case について 1 2023/09/24 23:14
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
ApplicationとWorksheetFunctio...
-
【VBA】ワークブックを開く時に...
-
#N/Aの文字を削除するには
-
VB2008 comboboxを連動させた...
-
エラーの種類
-
Null 値の使い方が不正です と...
-
エクセルVBAでApplication.Sum...
-
VBA データ(特定値)のある最...
-
-2147418107 (&H80010005)
-
VBでコンパイル エラー 変数...
-
VBAのリストボックスで、横スク...
-
「実行時エラー '3167' レコー...
-
On ErrorでエラーNoが0
-
レコード登録時に「演算子があ...
-
SQLでエラーです。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロOn Error GoTo ErrLabel...
-
UserForm1.Showでエラーになり...
-
お助けください!VBAのファイル...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
String""から型'Double'への変...
-
文字列内で括弧を使うには
-
マクロで"#N/A"のエラー行を削...
-
Excel vbaについての質問
-
VBA データ(特定値)のある最...
-
On ErrorでエラーNoが0
-
インポート時のエラー「データ...
-
【VBAエラー】Nextに対するFor...
-
ACCESSで値を代入できないとは?
-
【Access】Excelインポート時に...
-
VBでSQL文のUPDATE構文を使った...
-
【VB.NET】 パワポ操作を非表示で
-
「実行時エラー '3167' レコー...
-
実行時エラー 438 の解決策をお...
-
実行時エラー'-2147467259(8000...
おすすめ情報
