[amel27]

если (вдруг) порядок не важен, пример на VBS
вызов скрипта - через контекстное меню "Отправить", предварительно скопировав его в папку SendTo

читать дальше »

Код:

On Error Resume Next

Set FSO = CreateObject("Scripting.FileSystemObject")
Set APP = CreateObject("Word.Application")
APP.Visible = False

Set DIR = FSO.GetFolder(WScript.Arguments(0))
If Err.Number <> 0 Then WScript.Quit
On Error Goto 0

s=InputBox("Введите текст заголовка:", "Ввод заголовка.")

For Each obj in DIR.Files
  If UCase(FSO.GetExtensionName(obj.Path))="DOC" Then
    i = i + 1

    Set DOC = APP.Documents.Open(obj.Path)
    Set SEL = APP.Selection
    SEL.HomeKey 6,0
    SEL.TypeText s &" "& i
    SEL.TypeParagraph()

    DOC.Paragraphs(1).OutlineLevel = 1
    DOC.Save
    DOC.Close
  End If
Next

APP.Quit