Word VBA質問箱 IV

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

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


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

420 / 886

←次へ　｜　前へ→


	【478】文字を挿入する

A.K - 06/8/5(土) 18:55 -


	引用なし

	パスワード

WORD　VBAは初めて使うので手探りなのですが。
既にある文章に対して、2行ごとに　　save番号|save
という一文を入れたいのですが、うまくいきません。

一回で終わってしまうんです。
おそらく繰り返しの条件が悪いのだと思うのですが。

その入力されている文章が終わるまで繰り返したいのですが、どうしたらいいのでしょうか？　
よろしくお願いいたします。

Sub Macro3()
Dim blnFound As Boolean
Dim rngContent As Range
Dim intCount, a As Integer

blnFound = True
Set rngContent = ActiveDocument.Content
intCount = 0
a = 1
Do While blnFound = True

　　Selection.MoveDown Unit:=wdLine, Count:=2
　　　 Selection.TypeParagraph
　　Selection.MoveUp Unit:=wdLine, Count:=1
　　Selection.TypeText Text:="save" & a & "|save"

a = a + 1

　　blnFound = rngContent.Find.Found
　　If blnFound = True Then intCount = intCount + 1
Loop

Selection.MoveDown Unit:=wdLine, Count:=1

End Sub

970 hits

▼

【478】文字を挿入する A.K 06/8/5(土) 18:55