更改表格的樣式和格式

Question

我的代碼應該是更新Word文檔中表格的樣式，然後將寬度更改爲17釐米。

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 

當我運行宏時，它停在第二部分。有時它會在VB查看器中運行，但不會通過Developer運行宏。

這塊VBA有什麼問題？

Answer 1

試試這個

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

    tbl.PreferredWidthType = wdPreferredWidthPoints 
    tbl.PreferredWidth = CentimetersToPoints(17)   
Next 

我猜的第二部分，當你沒有一個表中選擇