在Word文档中插入大量字段

Question

我有以下代码：

Application.ScreenUpdating = false
Set rng = Application.Selection.Range

For i = 0 To 25000
    ActiveDocument.Fields.Add rng, WdFieldType.wdFieldExpression, "1+2", False
Next i

Application.ScreenUpdating = true

有没有办法进一步提高其表现？

（注意如果我将应用程序Application.Visible = false隐藏得更快，但我真的不想这样做）

（金额是一个边缘情况，但我仍然希望使其合理，目前，它需要大约30分钟才能完成，没有用户会等待）