Текстовый буфер задается обычной строкой
|
' Текстовый буфер задается обычной строкой Public TextBuffer As String Public Sub CopyText() 'Этот макрос копирует выделенный текст в буфер TextBuffer = Selection.Text End Sub Public Sub PasteText() 'Этот макрос выполняет операцию, обратную копированию 'Текст из буфера вставляется в точку, заданную курсором Selection.Text = TextBuffer End Sub |
| Листинг 2.1. |
| Закрыть окно |