两个word文档在同一个窗口中

Question

请知道如何在同一个窗口中使用一个功能区处理两个word文档，如下所示？ （每个文档可以独立滚动和修改）

Answer 1

Application类的Documents属性返回表示所有打开文档的Documents集合。

Dim docLoop As Document 

For Each docLoop In Documents 
  With docLoop 
    .PageSetup.LeftMargin = InchesToPoints(0.5) 
    .PageSetup.RightMargin = InchesToPoints(0.5) 
    .PrintOut 
  End With 
Next docLoop

此外，您可能会发现Application课程的ActiveDocument属性很有帮助。它返回一个Document对象，表示活动文档（具有焦点的文档）。如果没有打开文档，则会发生错误。

If Application.Documents.Count >= 1 Then 
   MsgBox ActiveDocument.Name 
Else 
   MsgBox "No documents are open" 
End If