Question

我使用VBA从csv文件在Word中创建表。有些单元格应该是彩色的，所以对于这些值，我使用了一个字符“＆amp;”原来的csv：

.......
1,234   6,789   &4,321e+05
&-5,55  1,999   0,00
.......

然后我在表格单元格中使用循环：

    Set tbl = ActiveDocument.Tables(ActiveDocument.Tables.Count)
    For Each ce In tbl.Range.Cells
        a = ce.Range.Text
        If InStr(a, "&") Then
            a = Replace(a, "&", "")
            ce.Range.Text = a
            ce.Shading.BackgroundPatternColor = wdColorGray20
        End If
    Next

由于可能有很多表，并且表可能非常大，这有时非常慢。有没有更快的方法呢？

Answer 1

这将关闭屏幕更新，这意味着您无法直观地看到宏运行，但它有助于提高速度。

    Application.ScreenUpdating = False

更快地在Word

1 个答案: