ワード 表の削除 一気にできますか

質問

ホームページからワードにコピーした場合に
表を通常の文章に戻すやり方は
表の削除でできることを
こちらで教えてもらいましたが、

結構表が複雑にたくさんある場合、
全て探しながら解除していくのは大変です。

ctrl+Aで選択してからやるとできません。

一気に解除できる方法はないのでしょか。

回答No.3

enunokokoro · ベストアンサー

例えば以下のようなマクロで対処できないでしょうか？
すべての表を解除してしまいますから、希望のものと違うかも？

'-----------------------ここから-------------------------------
Sub TableConvert()
Dim tableTemp As Table
Dim rngTemp As Range
　For Each tableTemp In ActiveDocument.Tables
　　Set rngTemp = _
tableTemp.ConvertToText(Separator:=wdSeparateByTabs, NestedTables:=True)
　Next
End Sub
'-----------------------ここまで-------------------------------

[表の解除]は[タブ区切り]にしてありますので、違うものを指定したい
場合は、「wdSeparateByTabs」の部分を文字列の区切りの対象へと変更
してください。

このマクロは表の解除のマクロですから、表を削除(Delete)するのとは
違います。

お礼

ありがとうございました。

マクロがうまく動かず難儀しましたが、
なんとかできました。

遅くなりましたが、ありがとうございました。

回答No.2

imogasi

VBAは判らんかも知れないが、この課題だけ、と割り切って、下記はどうですか。
ワードのツールーマクローVBEの画面で、挿入ー標準モジュールで出てくるVBE画面に下記を張り付け。
VBE画面の方でのメニューの「実行」をクリック。SUB/ユーザーフォームの実行をクリック。
コードは
Sub test21()
MsgBox ActiveDocument.Tables.Count
n = ActiveDocument.Tables.Count
For i = 1 To n
ActiveDocument.Tables(i).Delete
Next i
End Sub
元に戻すという、取り消しが出来ないので、文書をコピーをとって、コピー側でテストをやるとか慎重に。

お礼

ありがとうございました。

うまくいかなかったですが、
参考になりました。

回答No.1

k-josui

複雑にたくさんある状況が不明ですが・・・・入れ子状態になっているのでしょうか？
とりあえず表の中にカーソルを置き罫線→削除→表
これで削除できますよね。
この状態で、まだ表になっていたら（入れ子状態？）カーソルを表の中に移動してF4キー
F4キーは「今と同じ作業の繰り返し」です。

補足

入れ子が大量にあるのです。
F4は使っているのですが、それでも
大変で、、、

一気にはできないのですかねえ。。