[Dr.DG]

IMHO, вы слишком усложняете. По сути, вам нужно выполнить цикл c глобальной заменой (как в первом примере) или перебором закладок с последующей печатью документа. Двухстороннюю печать на время выполнения кода проще задать в свойствах принтера по умолчанию, чтобы не связываться с WinAPI.

[AKBAMAPUH]

Dr.DG,
вот что мне удалось сделать на текущий момент времени:

Код:

Private Sub CommandButton1_Click()
 
    Dim lNumber As Long
    Dim i As Long
    
    'Помещаем в переменную lNumber, с какого номера
    'должна начинаться нумерация бланков.
    lNumber = Me.TextBox1.Value
    
    'проверяем на согласие с условием
    If CheckBox1.Value = False Then
    
    'выводим сообщение
    MsgBox "Ошибка!" & " " & "Необходимо принять условие."
    Else
    
    'Делаем столько витков цикла, сколько бланков необходимо вывести на печать.
    For i = 1 To Me.TextBox2.Value Step 1
    
            Dim oDoc As Document
            Set oDoc = Application.Documents.Add("C:\Primer\BLANK.docm")
           
            'Помещаем в закладку "bN_1" данные из переменной lNumber.
            oDoc.Bookmarks("bN_1").Range.Text = lNumber + (i - 1)
            
            'Помещаем в закладку "bN_2" данные из переменной lNumber.
            oDoc.Bookmarks("bN_2").Range.Text = lNumber + (i - 1)
 
            'Помещаем в закладку "bN_3" данные из переменной lNumber.
            oDoc.Bookmarks("bN_3").Range.Text = lNumber + (i - 1)
 
            'Помещаем в закладку "bN_4" данные из переменной lNumber.
            oDoc.Bookmarks("bN_4").Range.Text = lNumber + (i - 1)
        
            'Распечатываем.
            Application.PrintOut Range:=wdPrintAllDocument, Item:= _
            wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
            ManualDuplexPrint:=True, Collate:=True, Background:=True, PrintToFile:= _
            False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
            PrintZoomPaperHeight:=0
        
    'Скрываем пользовательскую форму
    UserForm1.Hide
    
    Next i
    End If
End Sub

Здесь представлен работающий код, теперь уже с пользовательской формой (в которой TextBox1 и TextBox2 для ввода значений, CheckBox1 для принятия условия, а также кнопка CommandButton1, которая является основной).

По-прежнему есть некоторые моменты, которые хотелось бы улучшить:

1 - в документе "BLANK.docm", над которым и проводятся все действия, имеется 4 закладки на 4 одинаковых числа, которые начинаются с цифры "ноль". Например, 012222. Так вот сейчас я вынужден был перед каждой закладкой поместить цифру "ноль",а в поле TextBox1 пользовательской формы UserForm1 вбивать значение без цифры "ноль", например 12222.
Можно ли сделать так, чтобы в поле TextBox1 я вносил значение например 012222, в поле TextBox2 я вносил значение например 2 и при этом происходила правильная отработка "lNumber + (i - 1)" и на печать выводились документы с изменёнными номерами - 012222 в первом документе и 012223 во втором документе?

2 - во время выполнения кода открываются новые вкладки с документами, с изменёнными номерами. Как избавиться от этого, чтобы ничего не появлялось, а просто в очередь печати все документы складывались сразу и всё?


3 - необходима двусторонняя печать документа "BLANK.docm". Принтер обладает необходимой функцией.

[AKBAMAPUH]

по пункту 2 родилась вот какая идея

Код:

    'закрываем активный документ без сохранения изменений, поскольку после вставки
    'текста произошла замена закладки
    ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

правильно сделал или есть более правильный вариант решения вопроса?

[AKBAMAPUH]

и ещё появились следующие вопросы (сохранена сквозная нумерация проблем):
4 - текст, вводимый в TextBox1, должен проверяться на следующие условия - это должно быть число, число должно состоять из 5 цифр, и не должно начинаться на ноль.
5 - текст, вводимый в TextBox2, должен проверяться на следующие условия - это должно быть число равное "1", "2" или "50".

[Dr.DG]

1 - непонятно.
2 - новые вкладки (новые документы) создаются из-за этой строчки:

Код:

Set oDoc = Application.Documents.Add("C:\Primer\BLANK.docm")

Нужно так

Код:

Set oDoc = ActiveDocument

, но, так как вы работаете только с активным документом, IMHO, переменная oDoc вообще не нужна, обращайтесь напрямую к ActiveDocument.
3 - повторяю, задаёте двухстороннюю печать в свойствах принтера в Панели управления. ManualDuplexPrint:=True - это ручной дуплекс средствами Word.
4 - Проверка на число

Код:

If IsNumeric(TextBox1.Value) Then
Else
End If

Проверка на количество цифр

Код:

If Len(TextBox1.Text) = 5 Then
Else
End If

Проверка на 0 в первой цифре

Код:

If Left(TextBox1.Text, 1) = "0" Then
Else
End If

5 -

Код:

If TextBox2.Value = 1 _
    Or TextBox2.Value = 2 _
    Or TextBox2.Value = 50 _
Then
Else
End If

[AKBAMAPUH]

спасибо огромное за подсказки, сейчас всё переварю, отрихтую и проверю

[AKBAMAPUH]

Итак, сходу образовалась вот какая проблема:
решил использовать ActiveDocument, убрав переменную oDoc, то есть строки стали вот какимим

Код:

       
            'Помещаем в закладку "bN_1" данные из переменной lNumber.
            ActiveDocument.Bookmarks("bN_1").Range.Text = lNumber + (i - 1)
            
            'Помещаем в закладку "bN_2" данные из переменной lNumber.
            ActiveDocument.Bookmarks("bN_2").Range.Text = lNumber + (i - 1)
 
            'Помещаем в закладку "bN_3" данные из переменной lNumber.
            ActiveDocument.Bookmarks("bN_3").Range.Text = lNumber + (i - 1)
 
            'Помещаем в закладку "bN_4" данные из переменной lNumber.
            ActiveDocument.Bookmarks("bN_4").Range.Text = lNumber + (i - 1)

при таком раскладе выяснилось, что я похоже неправильно использую закладки (Bookmarks), то есть у меня происходит не подстановка значения на место закладки, а происходит полная замена закладки на указанное значение. И получается, что при втором витке в документе уже нет закладок, так как на их месте теперь просто указанные значения, соответсвенно цикл заканчивается на первом витке.

как правильно использовать подстановку на место закладки?

[AKBAMAPUH]

и еще вопрос у меня напрашивается например по пункту 5:

я не понимаю что мне писать в коде после слова Then

Код:

If TextBox2.Value = 1 _
    Or TextBox2.Value = 2 _
    Or TextBox2.Value = 50 _
Then
Else
End If

после слова Else я напишу чтобы появлялось MsgBox "Ошибка!" & " " & "Введите значение равное 1, 2 или 50"
а вот что после слова Then? что-то я не догоняю... мне бы наоборот сделать, чтобы если НЕ РАВНО, то сообщение, вот как-то так...

если пишу If Not , то проверяется только первое значение на 1, а дальше проверка не идёт...

[Iska]

Код:

If Not (TextBox2.Value = 1 Or TextBox2.Value = 2 Or TextBox2.Value = 50) Then
    …
Else
    …
End If

Оно же:

Код:

If TextBox2.Value <> 1 Or TextBox2.Value <> 2 Or TextBox2.Value <> 50 Then
    …
Else
    …
End If