Документ из двух слов в одном окне

Question

Знаете ли вы, пожалуйста, как обрабатывать документ из двух слов в одном окне и только с одной лентой, как показано ниже? (каждый документ можно прокручивать и изменять независимо от другого)

Answer 1

Свойство Documents класса Application возвращает коллекцию 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

Также может оказаться полезным свойство ActiveDocument класса Application. Возвращает объект Document, представляющий активный документ (документ с фокусом). Если открытых документов нет, возникает ошибка.

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