Private Sub CommandButton1_Click()
If MsgBox(«Вывести текст?», vbYesNo) = vbYes Then
If Documents.Count = 0 TheNDocuments.Add Selection.Text = «Изучение работы с текстом в документе Word является важной составной частью умения программировать в VBA, „+ TextBox1.Text + «, и отвечает запросам всех программистов!“
Selection.Font.Color = wdColorBlue
Selection.Font.Bold = wdToggle
Selection.Font.Italic = wdToggle
Else
Unload Me
End If
End Sub
В результате запуска приложения (рис. 77) в документе Word появится предложение:
Изучение работы с текстом в документе Word является важной составной частью умения программировать в VBA, Света, и отвечает запросам всех программистов!
Рис. 77.Форма примера 35 в рабочем режиме
