Основы офисного программирования и документы Word

         

Dim Text1 As String, Text2


Public Sub OneBall() Dim Text1 As String, Text2 As String, Text3 As String Dim Text4 As String, Text5 As String Dim myPath As String myPath = ActiveDocument.Path 'Формирование свойства Text Text1 = "Хочешь знать, как перевезти с берега на берег" 'Вставка графики в середину текста Text2 ="{wmf " & myPath & "\wolf.wmf}"; & " Волка," & vbCrLf Text3 = "{wmf " & myPath & "\goat.wmf}" & " Козу" & " И " Text4 = "{wmf " & myPath & "\cabbage.wmf}" & " Капусту" & vbCrLf & vbCrLf Text5 = "Соблюдая 3 правила?" Dim FirstBall As Balloon Set FirstBall = Assistant.NewBalloon With FirstBall .Heading = "Волк, Коза и Капуста" .Icon = msoIconAlert .Text = Text1 & Text2 & Text3 & Text4 & Text5 .Button = msoButtonSetYesNo .Show End With End Sub
Листинг 7.3.
Закрыть окно
Содержание раздела