過去ログから表の空白行を削除するマクロを発見しました。
これをwordの標準モジュールに入れて実行したのですが
何も変わりません。
Wordでマクロを使ったことがないためアドバイスいただけたらと思います。
よろしくお願いします。
Word2013を使用しています。
https://groups.google.com/forum/#!topic/microsof …
Dim tableLoop as Table
Dim cellLoop As Cell
For each tableLoop in ActiveDocument.tables
For Each cellLoop In tableLoop.Range.Cells
While Right(cellLoop.Range.Text, 3) = Chr(13) & Chr(13) & Chr(7)
cellLoop.Range.Characters.Last.Previous.Delete
Wend
Next cellLoop
Next tableLoop
End Sub
No.1ベストアンサー
- 回答日時:
こちら↓の質問と関連するものですか?
https://oshiete.goo.ne.jp/qa/11161878.html
表形式のまま[個々のドキュメントの編集]で差し込んだものから、
空白になっているセルがある行全体を削除したいのですか?
そうであれば、質問にあるマクロは無意味ですよ。
過去ログがこちら↓なら、セル内での段落を処理するものです。
https://oshiete.goo.ne.jp/qa/9003923.html
なので、表の行を削除することはできません。
マクロで処理したいのなら、こちら↓のようなもので対応します。
(マクロを単純化するために、1列目のみ空白セルの場合を対象)
Sub TableBlankRowDelete()
' 1列目が空白セルだった場合、行を削除
Dim tableLoop As Table
Dim str As String
Dim i As Integer
For each tableLoop in ActiveDocument.tables
For i = tableLoop.Rows.Count To 1 Step -1
str = tableLoop.Cell(i, 1).Range.Text
If str = Chr(13) & Chr(7) Then
tableLoop.Rows(i).Delete
End If
Next
Next tableLoop
End Sub
マクロではなく表風のほうで対応するなら、縦棒タブの位置を左に
移動するか、[文字の均等割り付け]で文字数指定での割り付けする
ことで対応するしかないと思います。
http://www4.synapse.ne.jp/yone/word2010/word2010 …
前の質問で回答を最後にするとしたのは、質問内容としては解決が
されているのであり、そこから発生した別質問に回答しないという
意味です。別質問して解決すべきことを、同じ質問内で追記される
のは回答者に負担をかけるだけです。別の回答者が回答してくれる
かもしれませんしね。
これは、質問者側のマナーとして理解してください。
今回の質問のように別質問をされれば、時間があるときに回答する
かもしれませんしね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください! Sub 不要 6 2022/09/08 16:41
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Visual Basic(VBA) evcel VBAについて 2 2022/08/02 21:37
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/11 08:33
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Word VBA 表中の空白行を削除する方法
Word(ワード)
-
WORDの表の次の一行が消えない
Word(ワード)
-
差し込み印刷 Next Record
Word(ワード)
-
-
4
Word VBA。各マクロの間に待ち時間を指定するには?
Word(ワード)
-
5
ワードのマクロで段落番号(文字も含む)取得ってできますか
Word(ワード)
-
6
WordVBA 行の削除
その他(Microsoft Office)
-
7
EXCELのVBAでWORDが開いてあるかチェック
Excel(エクセル)
-
8
ワードからエクセルへ貼り付けるマクロ
Excel(エクセル)
-
9
エクセルマクロでワードの一ページ目をコピーして新たに二ページを追加して、一ページ目の内容を貼り付ける
Visual Basic(VBA)
-
10
WordVBAで規定のところに文字列を挿入したい
Access(アクセス)
-
11
エクセルでエラーが出て困っています。
Excel(エクセル)
-
12
ワードの図形をコピー&ペイストのマクロ
Word(ワード)
-
13
MS Office Word のマクロで行列の現在位置を取得したいのですが?
Word(ワード)
-
14
ワードの表のセル幅をマクロを使って変更したい
Word(ワード)
-
15
ワード上Shapeの位置情報を統一基準で取得したい
Visual Basic(VBA)
-
16
Word VBA 表内の図を一括中央揃えにするマク
Word(ワード)
-
17
【VBA】セルが空白かどうか判断したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
EXCELのVBAでRange("A1:C4")を...
-
一つのTeratermのマクロで複数...
-
Excel VBAからAccessマクロを実...
-
メッセージボックスのOKボタ...
-
非表示の列をすべて削除するマクロ
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
ExcelVBAでPDFを閉じるソース
-
VBA アドインについて お詳しい...
-
TERA TERMを隠す方法
-
マクロで空白セルを詰めて別シ...
-
EXCELマクロでのThisisWor...
-
サクラエディタ・マクロ → VSCo...
-
エクセルマクロ自動更新
-
[初心者です]VBAで指定列か...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報