Word VBA質問箱 IV

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

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


36 / 840 ←次へ | 前へ→

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

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

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

 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

65 hits

【829】各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/2(金) 10:58 質問[未読]
【830】Re:各ページ各行それぞれ違う文字列の挿入 亀マスター 18/2/2(金) 23:06 発言[未読]
【831】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/5(月) 9:30 質問[未読]
【832】Re:各ページ各行それぞれ違う文字列の挿入 亀マスター 18/2/5(月) 13:19 回答[未読]
【833】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/6(火) 11:14 質問[未読]
【835】Re:各ページ各行それぞれ違う文字列の挿入 亀マスター 18/2/6(火) 19:41 回答[未読]
【836】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/7(水) 14:03 質問[未読]
【837】Re:各ページ各行それぞれ違う文字列の挿入 亀マスター 18/2/7(水) 21:38 発言[未読]
【838】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/9(金) 12:47 質問[未読]
【839】Re:各ページ各行それぞれ違う文字列の挿入 亀マスター 18/2/10(土) 0:08 回答[未読]
【844】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/13(火) 12:48 質問[未読]
【848】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/14(水) 10:31 質問[未読]
【849】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/14(水) 11:05 お礼[未読]
【842】Re:各ページ各行それぞれ違う文字列の挿入 マナ 18/2/10(土) 15:00 発言[未読]
【845】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/13(火) 14:12 質問[未読]
【846】Re:各ページ各行それぞれ違う文字列の挿入 マナ 18/2/13(火) 19:54 発言[未読]
【847】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/14(水) 10:22 発言[未読]
【850】Re:各ページ各行それぞれ違う文字列の挿入 マナ 18/2/14(水) 19:51 発言[未読]
【851】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/15(木) 14:03 お礼[未読]

36 / 840 ←次へ | 前へ→
ページ:  ┃  記事番号:
199951
(SS)C-BOARD v3.8 is Free