Материал: Ивличев П.С. Практикум по информационным... Ч. 10

36

2.

20

Private Sub CommandButton1_Click()

Dim n As Integer

n = ActiveDocument.Tables(3).Cell(1, 1).Range.Paragraphs.Count

Dim m As Integer

m = ActiveDocument.Tables(3).Cell(1, 1).Range.Paragraphs(n).Range._

Characters.Count

ActiveDocument.Tables(3).Cell(1, 1).Range.Paragraphs(1).Range.Select

Selection.Move Unit:=wdParagraph, Count:=n - 1

Selection.MoveEnd Unit:=wdCharacter, Count:=m - 1

Selection.Text = ComboBox1.Value

‘ ActiveDocument.Tables(3).Cell(1, 1).Range.InsertAfter (ComboBox1.Value)

ActiveDocument.Tables(3).Cell(1, 2).Range.Text = TextBox1.Value

If OptionButton1.Value = True Then

ActiveDocument.Tables(3).Cell(1, 2).Range.Font.Italic = True

Else

ActiveDocument.Tables(3).Cell(1, 2).Range.Font.Italic = False

End If

UserForm1.Hide

End Sub

10

. .