MS Word2016。
何百ものテーブルがある大きなドキュメントがあります。すべてのテーブルプロパティを変更して、[優先幅]オプションのチェックを外したいと思います。
この変更を適用するためにすべてのテーブルを選択する方法はありますか?それとも手動で選択する必要がありますか(「すべて選択」は機能しません。テーブルのプロパティを無効にする通常のテキストも強調表示されるためです)。
残念ながら、いくつかのきちんとしたショートカットですべてのテーブルを一度に選択することはできません。幸いなことに、初心者でも簡単なマクロを使用でき、作業は数分で完了します。
Word 2010以降の場合、[開発者]タブはデフォルトで既に表示されているはずですが、表示されていない場合は、統合リボンエディターを介してアクセスします。これらのアプリケーションでは、リボンエディターはFile>Options>リボンをカスタマイズします。 Developerチェックボックスにチェックマークを付けます。
これが完了したら、Developerタブ>Macrosボタンをクリックします
新しいウィンドウで、表示されたテキストボックスに「Autofit_All_Tables」と入力し、[作成]ボタンをクリックして新しいマクロを作成します。
次のコードを白いテキスト領域に貼り付けて、既存のコードを完全に置き換えます。
Sub Autofit_All_Tables()
Application.ScreenUpdating = False
Dim Tbl As Table
For Each Tbl In ActiveDocument.Tables
Tbl.AutoFitBehavior (wdAutoFitWindow)
Tbl.AllowAutoFit = True
Next
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "Done", vbOKOnly
End Sub
次に、緑色の実行矢印(画像の赤いボックスにあります)をクリックします。
「完了」と表示された小さなウィンドウが表示されます。 VBA開発者ウィンドウを閉じて、自分に満足しているように椅子に腰を下ろします。
注:幅を余白間の幅のパーセンテージに設定する場合は、「Set_Global_Table_Width」というマクロを作成し、代わりに次のコードを貼り付けます。ここでは、幅は100(つまり、100%)に設定されていますが、上記のWord VBA Developer Macroボックスに貼り付けた後、任意のパーセンテージに変更できます。
Sub Set_Global_Table_Width()
Dim pT As Word.Table
For Each pT In ActiveDocument.Tables
pT.PreferredWidthType = wdPreferredWidthPercent
pT.PreferredWidth = 100
Next
MsgBox "Done"
End Sub
ページの左端に移動する行全体を選択するかのようにカーソルを使用して、カーソルが右側に傾くまでマージンセクションに移動します。たとえば、45度にすると、他のカーソルも選択/強調表示されます。最初の選択後、制御ボタンを押したままにします。これは基本的にページ全体で複数の行を選択することであり、テーブルでも機能するほど多くのvbスクリプトフォーラムの推奨事項(実用的ではない)の後で発見しました。 21ページを編集しているだけですMSDS現在、たくさんのテーブルがあります。