' заполинить массив arrdoc полными путями к интересующим документам
' для каждого абзаца каждого документа изменить свойство Style (если надо, конечно)
For each docName in arrdocs
  Set doc = Documents.Open(docName) 
  For each par in doc.Paragraphs
    If par.Style = wdStyleHeading1 Or par.Style = wdStyleHeading2 Then _
      par.Style = wdStyleHeading3
  Next par
  doc.Save
  Set doc = Nothing
Next docName
' ЗЫ: если стили HeadingN применялись к элементам, более мелким, чем параграф, 
'     то парсить документы по этим более мелким..
' ЗЗЫ: скорее всего есть более быстый способ