Поиск word документов с колонтитулам

[asd2011]

help!
Нужно организовать поиск word документам , которые содержат колонтитулы. Т.е. прошерстить все word доки - при обнаружении связки .doc, .docx + колонтитул = запись в .txt имени файла и его пути.
Умею только batniki клеить - но тут кажется посложнее будет.

[viter.alex]

Не намного сложнее батников:

Option Explicit

Sub FilterDocsWithHF()
  Dim FileNames As FileDialogSelectedItems
  Dim oDoc As Document
  Dim i As Integer
  Dim HFExists As Boolean
  Dim oSec As Section
  
  Dim LogFilePath As String
  
  With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Выберите документы"
    .ButtonName = "Выбрать"
    .Filters.Add "Докуметы Word", "*.doc,*.docx"
    .AllowMultiSelect = True
    If .Show Then
      Set FileNames = .SelectedItems
      LogFilePath = .InitialFileName
      LogFilePath = Mid(LogFilePath, 1, InStrRev(LogFilePath, "\"))
      LogFilePath = LogFilePath & "log.txt"
    Else
      Exit Sub
    End If
  End With
  
  For i = 1 To FileNames.Count
    Application.ScreenUpdating = False
    Set oDoc = Documents.Open(FileNames(i), ReadOnly:=True, AddToRecentFiles:=False)
    For Each oSec In oDoc.Sections
      With oSec
        If .Headers(wdHeaderFooterEvenPages).Exists Or _
            .Headers(wdHeaderFooterFirstPage).Exists Or _
            .Headers(wdHeaderFooterPrimary).Exists Or _
            .Footers(wdHeaderFooterEvenPages).Exists Or _
            .Footers(wdHeaderFooterFirstPage).Exists Or _
            .Footers(wdHeaderFooterPrimary).Exists Then
          HFExists = True
          Exit For
        End If
      End With
    Next
    If HFExists Then
      
      FixInLogFile LogFilePath, FileNames(i)
      HFExists = False
    End If
    oDoc.Close
  Next
  Application.ScreenUpdating = True
End Sub

'Запись в лог-файл
Public Sub FixInLogFile(sLogFilePath As String, sMessage As String, Optional OverWriteFile As Boolean = False)
  If OverWriteFile Then
    Open sLogFilePath For Output As #1
  Else
    Open sLogFilePath For Append As #1
  End If
  Print #1, sMessage
  Close #1
End Sub

Лог сохраняется в папку с исходными документами