質問: chr(13) & chr(13) & chr(7) cellloop.range.characters.last.previous.delete wend next cellloop next tableloop end sub
回答: こちら↓の質問と関連するものですか? 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_sasi_kintou.html 前の質問で回答を最後にするとしたのは、質問内容としては解決が されているのであり、そこから発生した別質問に回答しないという 意味です。別質問して解決すべきことを、同じ質問内で追記される のは回答者に負担をかけるだけです。別の回答者が回答してくれる かもしれませんしね。 これは、質問者側のマナーとして理解してください。 今回の質問のように別質問をされれば、時間があるときに回答する かもしれませんしね。