Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Новый участник


Сообщения: 15
Благодарности: 5

Профиль | Отправить PM | Цитировать


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
Это сообщение посчитали полезным следующие участники:

Отправлено: 14:24, 01-10-2012 | #6