更改表格的样式和格式

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

当您没有选择表格时，我猜测第二部分不起作用