从模板创建后如何使新文档可见？

Question

我使用宏 Word 字母模板生成自定义字母。运行宏后，新文档不在焦点，在其他打开的文档后面。

1. 新文档尚未保存，所以文档名称为“文档XX”
2. 我尝试了 ActiveDocument.Activate，以及下面的代码。信函模板是一个宏用户表单。

Dim odoc As Document
Set odoc = Documents.Add("\\XXXX\LetterTemplate.dotx", Visible:=True)

如何显示活动文档？

Answer 1

活动文档已处于活动状态。

试试：

oDoc.Activate

它应该在创建时并在前面成为活动文档。您还有其他涉及屏幕更新的代码吗？

Answer 2

一种激进的方法是最小化所有打开的应用程序窗口。然后当您的代码打开一个文档时，它将是唯一显示的窗口。

Sub MinimizeAll()
    Dim shell As Object
    Set shell = CreateObject("shell.application")
    shell.MinimizeAll
    Set shell = Nothing
End Sub

您和您的最终用户必须决定这是否是一种可接受的方法，因为这在双显示器系统上可能是一个令人讨厌的解决方案。