大きなワードの表が1つあり、市章村別に分けて図やらコメントを入れています。市町村名の行は全体に塗りつぶししています。問題は市町村名の行がページの最終行になり、その市町村の図やコメントが次ページになっている場合があり見えにくいのです。そこで、検索した塗りつぶし行のページ番号と次の行のページ番号が違う場合には、塗りつぶし行のところで改行する以下の様なプログラムを本やインターネットを参考にしながら作りました。しかし、最初の塗りつぶし行は正しく改行処理されましたが、エラーも出ず、終了してしまいます。 改行されることにより、表数が増えることが問題なのでしょうか?ご指摘よろしくお願いします。また他の方法で対処できますでしょうか? よろしくお願いします。
Sub 検索して改ページを挿入()
'
'
Dim myTable As Table
Dim myCell As Cell
Dim mypage1 As Integer
Dim mypage2 As Integer
Dim i As Integer
Application.ScreenUpdating = False
For Each myTable In ActiveDocument.Tables
If myTable.Uniform = False Then
For i = 1 To myTable.Rows.Count
If myTable.Cell(i, 1).Shading.BackgroundPatternColor = -603930625 Then
Set myCell = myTable.Cell(i, 1)
myCell.Select
mypage1 = Selection.Information(wdActiveEndAdjustedPageNumber)
Selection.MoveDown Unit:=wdLine, Count:=1
mypage2 = Selection.Information(wdActiveEndAdjustedPageNumber)
If mypage1 <> mypage2 Then
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.InsertBreak Type:=wdPageBreak
End If
End If
Next
End If
Next
Application.ScreenUpdating = True
End Sub
No.1ベストアンサー
- 回答日時:
無理やり改ページ(wdPageBreak)を入れる方法は、その位置よりも
前の行などで編集した結果で行数が増えた場合に問題になります。
その行が、常にページ先頭で開始する設定をするのであれば問題は
ないですが、質問文を読む限りだと市町村の行の位置はページ内で
変動しますよね
今回のような場合だと、ページの最終行へと市町村の行がくる場合
のみ行を改ページするようにしたいだけならば、段落書式で設定する
[改ページ位置の自動修正]を使うべきです。
https://ameblo.jp/gidgeerock/entry-11492078801.h …
マクロは未検証ですが、以下のようにしてみては。
Sub 検索して改ページを挿入()
'
'
Dim myTable As Table
Dim myCell As Cell
Dim i As Integer
Application.ScreenUpdating = False
For Each myTable In ActiveDocument.Tables
If myTable.Uniform = False Then
For i = 1 To myTable.Rows.Count
If myTable.Cell(i, 1).Shading.BackgroundPatternColor = -603930625 Then
Set myCell = myTable.Cell(i, 1)
myCell.Range.ParagraphFormat.KeepWithNext = True
End If
Next
End If
Next
Application.ScreenUpdating = True
End Sub
早速ご連絡ご指導いただきありがとうございます。早速マクロの検証をしたところ、希望通りの結果が得られました。改ページを入れなければ、表は1つで、他のマクロにも転用できます。本当にありがとうございます。ベストアンサーに選ばせて頂きます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelでページ番号を -1-にした...
-
EXCELでヘッダーを使わずにペー...
-
ページ設定が縦横まざった文書...
-
Wordのページ番号が1ページか...
-
パワーポイントの3枚目から1...
-
エクセル フッターのページを...
-
Wordのページ番号のゼロの消し...
-
word2007 画像をページ一杯に広...
-
Word 2007でページ番号の入れ方
-
ページが増やせない
-
Wordで用紙が縦横混在した文書...
-
インデザインでページ番号を作...
-
インデザイン ページ下の編集...
-
Illustratorのデータをを面付け...
-
[ワード(word)]目次で見出し文...
-
PDFにページを付けたい
-
一太郎に詳しい方お願いします...
-
ワードで1枚目だけヘッダーに文...
-
TEXでの表(図)番号とキャプシ...
-
偶数ページのみページ番号を振...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでページ番号を -1-にした...
-
ページ設定が縦横まざった文書...
-
エクセル フッターのページを...
-
EXCELでヘッダーを使わずにペー...
-
[ワード(word)]目次で見出し文...
-
word2007 画像をページ一杯に広...
-
ワードの原稿用紙設定でページ...
-
WordでPDF保存するとページ番号...
-
Wordのページ番号が1ページか...
-
一太郎の改ページ機能(?)
-
パワーポイントの3枚目から1...
-
出席番号最後嫌でたまりません...
-
偶数ページのみページ番号を振...
-
ページが増やせない
-
ワードのヘッダー部分に表(枠...
-
Wordで1ページ中に開始番号の...
-
一太郎に詳しい方お願いします...
-
IT用語でFFは何でしたか?
-
複数のファイルに連番のページ...
-
Word(ワード)で、フッターとヘ...
おすすめ情報