我使用宏 Word 字母模板生成自定义字母。运行宏后,新文档不在焦点,在其他打开的文档后面。
Dim odoc As Document
Set odoc = Documents.Add("\\XXXX\LetterTemplate.dotx", Visible:=True)
如何显示活动文档?
答案 0 :(得分:0)
试试:
oDoc.Activate
它应该在创建时并在前面成为活动文档。您还有其他涉及屏幕更新的代码吗?
答案 1 :(得分:0)
一种激进的方法是最小化所有打开的应用程序窗口。然后当您的代码打开一个文档时,它将是唯一显示的窗口。
Sub MinimizeAll()
Dim shell As Object
Set shell = CreateObject("shell.application")
shell.MinimizeAll
Set shell = Nothing
End Sub
您和您的最终用户必须决定这是否是一种可接受的方法,因为这在双显示器系统上可能是一个令人讨厌的解决方案。