スタイルと書式の変更

Question

Word文書の表のスタイルを更新し、幅を17cmに変更するコードがあります。

Sub ConvertTables() 

    Dim tbl As Table 
    For Each tbl In ActiveDocument.Tables 
     tbl.Style = "K2 Table" 
    Next 

    Selection.Tables(1).PreferredWidthType = wdPreferredWidthPoints 
    Selection.Tables(1).PreferredWidth = CentimetersToPoints(17) 
End Sub 

マクロを実行すると、2番目の部分で停止します。 VBビューアで実行されることもありますが、開発者によってマクロが実行されることはありません。

このVBAの問題は何ですか？

Answer 1

は、テーブルが