Word VBA質問箱 IV

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

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


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

59 / 877

←次へ　｜　前へ→


	【844】Re:各ページ各行それぞれ違う文字列の挿入

あかよん - 18/2/13(火) 12:48 -


	引用なし

	パスワード

わかりやすく考え方を説明していただき、どうもありがとうございました。10行目までの挿入後のデータなので、以下の教えていただいたコード通りに実行してみましたところ、最初ページの最終行の最後の文字の後ろ、改行記号の前のところにカーソルがあり、止まったまま動かなくなり強制終了させないといけなくなります。
最終ページの最後の行の処理のところで、1行目を除いてみても、3行目だけの挿入するだけにしても、同じように最後の文字で止まって動かなくなります。
どうしたらよいでしょうか。

Dim tempLine As Long
Dim　tempColumn As Long

tempLine = Selection.Infomation(wdFirstCharacterLineNumber)
tempColumn = Selection.Infomation(wdFirstColumnNumber)

Do
　　Selection.Move wdLine, 1
　　Select Case Selection.Information(wdFirstCharacterLineNumber)
　　　　Case 1 '1行目の時
　　　　　　Selection.MoveUp Unit:=wdLine, Count:=1
　　　　　　Selection.EndKey Unit:=wdLine
　　　　　　Selection.TypeParagraph
　　　　　　Selection.TypeText Text:="</item>"
　　　　　　　　　　　　Selection.Go To What:=wdGoToNext, Count:=1　

　　　　Case tempLine　'最終ページの最終行の時
　　　　　　Selection.EndKey Unit:=wdLine
　　　　　　Selection.TypeParagraph
　　　　　　Selection.TypeText Text:="</item>"
　　　　　　Exit Sub
　　End Select
Loop

168 hits

▼

【829】各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/2(金) 10:58