| |
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
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
