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. |
| Закрыть окно |
