Word VBA質問箱 IV

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

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


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

74 / 886

←次へ　｜　前へ→


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

亀マスター - 18/2/7(水) 21:38 -


	引用なし

	パスワード

>データの空白行に改行記号がついていないので、ページの最終行にカーソルを置いて次の行へ移動すると次ページの1行目になります。（2番の「次の行へ移動」させた後にMsgBoxで行を表示させてみたら、やはり１でした。）

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

>　それから、最終行でなかった場合の処理というのは
>1行下の列に移動して、また1番から繰り返すということでしょうか。（ページ毎のループに入れてよいのでしょうか？）

私が示したコードは、今現在カーソルのある位置が最終行かどうかを判定するだけのものですので、現在の最終行の下に何か1行を加えるという目的であれば、少し手順を変えた方がいいかもですね。（基本的な考え方は同じです）

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

という感じですか。

>試しに1ページ目の最終行にカーソルを置いてこのコードを実行させると、1ページ目の次ページの1行目に挿入されました。

このコードというのがどういうものかわかりませんので、現在のコードの全体を示してもらえると助かります。

326 hits

▼

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