Word VBA質問箱 IV

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

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


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

73 / 886

←次へ　｜　前へ→


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

あかよん - 18/2/9(金) 12:47 -


	引用なし

	パスワード

>各ページは1～10行目になんらかの文字列があり、続いて参照する項目があればそれが入る。その後、改行記号の連打ではなく空白（つまり改ページが入っている）ということでいいでしょうか。

はい。その通りです。
私はマクロの記録をちょっと手直しをしたことがあるくらいで、簡単なコードを理解するのも難しいレベルです。数百ページあり、必要に迫られてしまいまして、質問も拙いものばかりで大変お手数をおかけして申し訳ありません。

>１．カーソルを次の行に移動
>２．現在のカーソルが1行目かどうかを判定
>３．1行目なら先ほどの行が最終行だったということなので、前の行に戻る
>　　1行目でなければ1行目になるまで１．～２．を繰り返す
>４．現在の行（最終行）の末尾にカーソルを移動
>５．改行
>６．挿入したい文章を加える

　この3番目がどこにどのように繰り返しの記述を入れたらよいのか、どうしてもわかりません。よろしくお願いいたします。

Dim tempLine As Long
Dim tempColumn As Long

tempLine = Selection.Information(wdFirstCharacterLineNumber)
tempColumn = Selection.Information(wdFirstCharacterColumnNumber)

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>"
　　
　　Case tempLine　'最終ページの最終行の時
　　　　Selection.EndKey Unit:=wdLine
　　　　Selection.TypeParagraph
　　　　Selection.TypeText Text:="</item>"
　　
　　Case Else
　　　　
　　　　　　　　？？？？　　
　　　　
End Select

352 hits

▼

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