n="justify">. А.3. По натискання керуючої кнопки створюється новий файл і в нього вставляється шматок з буфера. p align="justify"> При натисканні на кнопку "Новий файл" створиться новий документ, в який буде поміщено вміст буфера.
Код процедури:
Private Sub cmdNewDocument_Click ()
Call newDoc
End SubnewDoc ()
'закриваємо призначену для користувача форму
Unload UserForm1
'створюємо новий документ і вставляємо в нього дані з буфера
Documents. Add. Range. Paste
'знову відкриваємо форму
UserForm1. Show
End Sub
2. А.4. За "клацання" ще однієї керуючої кнопки на формі проводиться нумерація сторінок поточного документа, додавання поточної дати в кінці і збереження на диску під ім'ям "МояКопіі. DОС "
При натисканні на кнопку "Пронумерувати сторінки" виробляється нумерація сторінок поточного документа, додавання поточної дати в кінці і збереження на диску під ім'ям "МояКопія. DОС ".
Код процедури:
Private Sub cmdNumerPage_Click ()
'нумеруємо сторінки
ActiveDocument. Sections (1). Footers (1). PageNumbers. Add PageNumberAlignment: = _, FirstPage: = True
'переходимо в кінець документа
Selection. EndKey wdStory
'вставляємо новий абзац
Selection. TypeParagraph
'додаємо поточну дату
Selection. Text = Date
'зберігаємо активний документ під ім'ям "МояКопія. doc "
ActiveDocument. SaveAs FileName: = "МояКопія. doc "
End Sub
. А.5. Ще одна кнопка на формі повинна виводити активний (поточний) документ для попереднього перегляду на екран. p align="justify"> При натисканні на кнопку "Перегляд" буде здійснено виведення активного (текущіго) документа для попереднього перегляду на екран.
Код процедури:
Private Sub cmdView_Click ()
'виводимо активний документ для попереднього перегляду на екран
ActiveDocument. PrintPreview
End Sub
2. А.6. По кнопці "вихід" всі відкриті документи зберігаються і робота макросу (програми) завершується. p align="justify"> При натисканні на кнопку "Вихід" всі відк...