Word VBA質問箱 IV

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

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


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

82 / 886

←次へ　｜　前へ→


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

あかよん - 18/2/2(金) 10:58 -


	引用なし

	パスワード

初心者です。
　1ページに10行あり、各ページの1行目の行頭、行末、2行目の行頭、行末・・・１０行目までそれぞれ違う文字列を挿入したいです。

　まず、行頭、行末に文字列を挿入する方法がわからず、選択範囲の前後に文字列を挿入するというマクロがあったので参照して、なんとか１ページのみ１行目から１０行目までそれぞれの文字列を挿入をすることはできましたが、各ページで同じ作業をするために、ページ毎の繰り返しというマクロをそのまま参照して以下のように記述したところ、文字列を挿入し続けて無限ループに入ってしまいました。どこを直したらよいのか教えてください。よろしくお願いいたします。

　Dim last_page As Long
　Dim active_page As Long
　Dim doc As Word.Document
　
　Set doc = Application.ActiveDocument
　Selection.HomeKey Unit:=wdStory
　last_page = Selection.Information(wdNumberOfPagesInDocument)
　Do Until active_page = last_page
　　active_page = Selection.Information(wdActiveEndPageNumber)

　＊ここにそれぞれの行に文字列を挿入する記述をする＊

　 Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1
　Loop
　Selection.HomeKey Unit:=wdStory

260 hits

▼

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