Sub TextCopyClipboard ()
'копіюємо 1 абзац
ActiveDocument. Paragraphs (1). Range. Copy
End Sub
При натисканні на 3 кнопку ("Новий файл") створиться новий документ, в який буде поміщено вміст буфера.
Код процедури:
Private Sub cmdNewDocument_Click ()
Call newDoc
End SubnewDoc ()
'закриваємо призначену для користувача форму
Unload UserForm1
'створюємо новий документ і вставляємо в нього дані з буфера
Documents. Add. Range. Paste
'знову відкриваємо форму
UserForm1. Show
End Sub
При натисканні на 4 кнопку ("Пронумерувати сторінки") проводиться нумерація сторінок поточного документа, додавання поточної дати в кінці і збереження на диску під ім'ям "МояКопія. 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 кнопку ("Перегляд") буде здійснено виведення активного (текущіго) документа для попереднього перегляду на екран.
Код процедури:
Private Sub cmdView_Click ()
'виводимо активний документ для попереднього перегляду на екран
ActiveDocument. PrintPreview
End Sub
При натисканні на 6 кнопку ("Вихід") всі відкриті документи зберігаються і робота макросу (програми) завершується.
Код процедури:
Private Sub cmdExit_Click (). Quit SaveChanges: = wdSaveChanges
End Sub
При відкритті книги "Завдання 2. xls "на екрані з...
