大きなワードの表が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/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワーポイントの3枚目から1...
-
Excelでページ番号を -1-にした...
-
Word2000でページの途中でやめ...
-
ワードで新しいページ増やすには
-
Word 2007でページ番号の入れ方
-
Wordのページ番号のゼロの消し...
-
花子13で困ってます
-
Wordページ番号について
-
WordでPDF保存するとページ番号...
-
Illustratorのデータをを面付け...
-
Access2003 クエリで、空の列...
-
Word2003:セクション区切りす...
-
word差込印刷 _空白だった場合...
-
ワードでページ番号を挿入しま...
-
Wordで脚注をページ下部ではな...
-
右クリックで、フィールドの更...
-
改ページとセクション区切りの...
-
一太郎2005でページ挿入
-
ワードでの差込印刷の差し込み...
-
Wordで印刷時に通し番号を付けたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでページ番号を -1-にした...
-
ページ設定が縦横まざった文書...
-
エクセル フッターのページを...
-
EXCELでヘッダーを使わずにペー...
-
[ワード(word)]目次で見出し文...
-
word2007 画像をページ一杯に広...
-
ワードの原稿用紙設定でページ...
-
WordでPDF保存するとページ番号...
-
Wordのページ番号が1ページか...
-
一太郎の改ページ機能(?)
-
パワーポイントの3枚目から1...
-
出席番号最後嫌でたまりません...
-
偶数ページのみページ番号を振...
-
ページが増やせない
-
ワードのヘッダー部分に表(枠...
-
Wordで1ページ中に開始番号の...
-
一太郎に詳しい方お願いします...
-
IT用語でFFは何でしたか?
-
複数のファイルに連番のページ...
-
Word(ワード)で、フッターとヘ...
おすすめ情報