Найти открытый документ по части имени

[vefer]

Подскажите пожалуйста, надо написать макрос, который бы находил среди открытых документов нужный по части имени и распечатывал его. Знаю как в экселе сделать, в ворде так не получается

[viter.alex]

Как-то так, код с коленки

Sub PrintByNamePart()
  Dim NamePart As String 'Часть имени
  Dim oDoc As Document
  
  NamePart = InputBox("Введите часть имени документа", "Имя документа")
  
  If Len(NamePart) = 0 Then Exit Sub
  
  For Each oDoc In Documents
    If oDoc.Name Like "*" & NamePart & "*" Then
      oDoc.PrintOut
      Exit For
    End If
  Next
End Sub

[Aent]

Как-то так...

Это если считать что открыт один экземпляр Word.
В общем случае лучше использовать коллекцию Tasks
Или через API. Как это не удивительно - была такая реальная задача