ALeXkRU
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: Sub AutoNew()
MsgBox "Сейчас Вам будет предложено сохранить документ; затем начнется заполнение бланка Договора. Вводите необходимые значения в диалоговых окнах, следуйте подсказкам. По окончании заполнения Договора документ будет сохранен. Рекомендуем еще раз просмотреть результаты воизбежание ошибок. Для повторного ввода данных нажмите клавишу Ctrl+\. Передвижение по полям данных (выделены серым цветом - клавиша F11, обновление полей - F9. Успехов!"
' GoTo L9
'L9:
'If ActiveDocument.Saved = False Then
ActiveDocument.Save
' On Error GoTo MesErWin
' else
' End If
' ActiveDocument.Save
ЗаполнениеДоговора
' On Error GoTo MesErWin
'Exit Sub
'MesErWin:
' If MsgBox("Ошибка при сохранении файла! Попробуйте еще раз!", Buttons = vbOKOnly, "ВНИМАНИЕ! ОШИБКА!") = vbOK Then GoTo L9
'Resume Next
End Sub
Sub ЗаполнениеДоговора()
'
' ЗаполнениеДоговора Макрос
' Макрос записан 22.11.99 ПКБ
'
Selection.HomeKey Unit:=wdStory
' For i = 1 To 166
' Selection.NextField.Select
' Selection.Fields.Update
' Next i
Selection.NextField.Select
Selection.Fields.Update
Selection.NextField.Select
'' и т.д. по остальным полям..
Selection.NextField.Select
Selection.Fields.Update
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.NextField.Select
Selection.Fields.Update
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.NextField.Select
Selection.Fields.Update
'' и т.д. по остальным полям..
Selection.NextField.Select
Selection.Fields.Update
ActiveWindow.ActivePane.SmallScroll Down:=2
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.NextField.Select
Selection.Fields.Update
Selection.MoveRight Unit:=wdCharacter, Count:=8
Selection.NextField.Select
Selection.Fields.Update
'' и т.д. по остальным полям..
Selection.NextField.Select
Selection.Fields.Update
ActiveDocument.Save
Selection.HomeKey Unit:=wdStory
End Sub
|
? Код создан и опубликован с помощью SciTE-Ru |
Всего записей: 11807 | Зарегистр. 03-12-2003 | Отправлено: 19:53 03-08-2010 | Исправлено: ALeXkRU, 20:07 03-08-2010 |
|
