Пример во вложении. Уникальной фразой беру "Первая страница".

Сейчас на 10 офисе не подтягивает документ (выдает ошибку).

Какую?

Попробуем. Образец документа приветствуется (для меня лучше сразу конвертированный в doc — выше Office 2003 у меня всё одно нет).

Что касается меток, имел ввиду кол-во полос на метке. По первому коду ставит 2 и 4, а хочу по описанной выше логике, к сожалению не получается.

Дублирую в строку код линии, а он не отображается:

If (i < PageCount) And (ArrItems(i) = 0) Then
              Textbox1.TextFrame.TextRange.Select
              .InsertSymbol &H2500, "Times New Roman", True
              .InsertSymbol &H2500, "Times New Roman", True
              .TypeParagraph
              .TypeParagraph
              .TypeParagraph
              .InsertSymbol &H2500, "Times New Roman", True
              .InsertSymbol &H2500, "Times New Roman", True
              Textbox1.TextFrame.TextRange.Select
            Else
              Textbox1.TextFrame.TextRange.Select
              .InsertSymbol &H2500, "Times New Roman", True
              .InsertSymbol &H2500, "Times New Roman", True
              .TypeParagraph
              .InsertSymbol &H2500, "Times New Roman", True
              .InsertSymbol &H2500, "Times New Roman", True
              .TypeParagraph
              .InsertSymbol &H2500, "Times New Roman", True
              .InsertSymbol &H2500, "Times New Roman", True
              .TypeParagraph
              .InsertSymbol &H2500, "Times New Roman", True
              .InsertSymbol &H2500, "Times New Roman", True
              Textbox1.TextFrame.TextRange.Select
            End If

Спасибо!

ура, получилось!

Вот и славненько.

Не предвижу каких-то особых сложностей. Пробуйте.

А текущий код под Office 2010 не работает?

По определениям пройдёмся. Что есть «метка» в Вашем вопросе? У MikeSh «метка» — надпись на полях с полосками. Меток два вида — с двумя полосками и с четырьмя. На одной странице — одна метка.

Так же хотел уточнить логику нанесения меток.
я хочу, допустим, расставить метки следующим образом:
- первый лист (не последний в пакете) - 1,2, 4 и 6я метка;
- первый и последний лист - 1,2,3, и 6я метка;
- все что не первая и не последняя - 1,2,3,4,5,6 метка;
- последняя страница (но не первая) - 1,2,3 и 6я метка.

- сохраняю код в файл с расширением .html;

С расширением «.hta».

Открывайте двойным щелчком.

Давайте я вам пошагово опишу свои действия:
- сохраняю код в файл с расширением .html;
- открываю через браузер и заполняю поля (указываю путь к документу и уникальную фразу);
- нажимаю кнопку "Расставить метки".

К сожалению ничего не происходит.

Office 2003. Результирующий файл — «пример_OMR.doc».

А что получается у Вас?

Вот пример документа, текст произвольный, а уникальная фраза, допустим, - "Первая страница".

Что-то не получается файл загрузить на форум. Ну, к примеру, может быть любой документ на 1,2,3... страницы с наличием на каждой первой уникальной фразы, в начале текста, - "Первый лист".
Возможно у меня проблемы через то что на компьютере стоит офис 10й, хотя и сохраняю его в .doc, не помогает.

к сожалению, не получается у меня расставить метки.

Алексей, подскажите, пожалуйста, в эту строку:

If LCase(Right(SelFile.Value, 4)) <> ".doc" And LCase(Right(SelFile.Value, 4)) <> ".rtf" Then

1. В последнем варианте скрипта нет такой строки.
2. Ведётся обработка одного файла, указываемого или выбираемого вручную:

Никак. Только править исходный код. Насколько я понимаю (помнить, конечно, уже ничего не помню; скажем, совершенно не помню что есть «уникальная фраза», равно как для чего она вообще нужна), вот это:

                Const TextBoxLeft                  =   0 ' Надпись. Отступ слева.
                Const TextBoxTop                   = 214 ' Надпись. Отступ сверху 
                Const TextBoxWidth                 =  40 ' Надпись. Ширина.
                Const TextBoxHeight                =  45 ' Надпись. Высота

Ну и посмотреть, где и как используется это:

                Dim TextBox1                             ' Надпись с метками
                Dim strTwoLabels                         ' Строка с двумя метками    (для надписи)
                Dim strFourLabels                        ' Строка с четырьмя метками (для надписи)

А так — рассказывайте детали про «полоски», приводите примеры документов.