[Vadikan]

Mangost, без скриптов не обойтись. Вот пример добавления форматированного текста http://www.activexperts.com/activmon...rmattedTWD.htm

Осталось только перебрать файлы в папке. Переношу в скрипты.

[Iska]

Главный вопрос — про порядок файлов. На что ориентироваться? Судя по приведённому Вами примеру — Вам нужно, чтобы ориентировка была на Проводник, который, начиная с XP, отображает файлы иначе:

Код:

Документ 1
Документ 2
Документ 10
Документ 20
Документ 100

нежели команда DIR, методы перечисления FSO, WinAPI, показывающие реальное расположение файлов в каталоге. В случае NTFS, что нынче обычно, мы будем иметь дело с уже отсортированным списком, но по правильной алфавитной сортировке:

Код:

Документ 1
Документ 10
Документ 100
Документ 2
Документ 20

в отличие от Проводника.

[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