VBAなんでも質問スレ Part3 (137ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

15: デフォルトの名無しさん [] 2022/02/13(日)16:56:03.94 ID:eQTVIxP9(1)
word vbaについて質問です。
本文↓
0001234567891

コード↓
Sub findText()
With Selection.Find
.Text = "1"
Do While .Execute
Selection.Comments.Add Range:=Selection.Range
Selection.TypeText Text:="あ"
Loop
End With
End Sub

特定の文字列を検索し、コメントを追加するマクロを作っているのですが、
コードを実行すると、本文1個目の「1」にコメントがついた後，
2ループ目の「Selection.Comments.〜」で「5935 コメント、脚注および文末脚注は、本文にのみ追加できます。」というエラーが出ます。
コメント入力時にカーソルが本文外に出るのが原因かと思い、
ループの最後にカーソルを本文中（コメントを付けたワードの直後）に戻すようにしたいのですが
どのように記述したらいいのでしょうか？

---

104: デフォルトの名無しさん [sage] 2023/02/04(土)13:27:56.94 ID:ILEoM5pM(1)
ニワかAccess使いか

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.012s