Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
17<br />
<strong>и</strong>мя (0, 50) = "n": <strong>и</strong>мя (0, 51) = "e" <strong>и</strong>мя (0, 52) = "a": <strong>и</strong>мя (0, 53) = "["<br />
<strong>и</strong>мя (0, 54) = "w": <strong>и</strong>мя (0, 55) = "x" <strong>и</strong>мя (0, 56) = "i": <strong>и</strong>мя (0, 57) = "o"<br />
<strong>и</strong>мя (0, 58) = "]": <strong>и</strong>мя (0, 59) = "s" <strong>и</strong>мя (0, 60) = "m"<br />
<strong>и</strong>мя (0, 61) = Chr(39): <strong>и</strong>мя (0, 62) = ".": <strong>и</strong>мя (0, 63) = "z"<br />
End Sub<br />
В<strong>и</strong>зуальное программ<strong>и</strong>рован<strong>и</strong>е в <strong>Word</strong><br />
'Процедуры формы <strong>Word</strong>, в которой есть <strong>на</strong>дп<strong>и</strong>сь, поле <strong>и</strong> кнопк<strong>и</strong> Ввод <strong>и</strong> Удален<strong>и</strong>е<br />
Sub UserForm_Activate ()<br />
Call Ввод_Click<br />
End Sub<br />
Sub Ввод_Click ()<br />
Label1 = "Ввод<strong>и</strong>те сообщен<strong>и</strong>е"<br />
TextBox1.Enabled = True<br />
End Sub<br />
Sub Удален<strong>и</strong>е_Click ()<br />
Label1 = "Сообщен<strong>и</strong>е удалено"<br />
TextBox1 = ""<br />
TextBox1.Enabled = False<br />
End Sub<br />
Sub TextBox1_Change ()<br />
Selection.Characters.Text = UserForm1.TextBox1.Text<br />
End Sub<br />
'В форме <strong>Word</strong> <strong>на</strong>ходятся кнопка <strong>и</strong> переключател<strong>и</strong><br />
Sub CommandButton1_Click ()<br />
If OptionButton1 = True Then<br />
Selection.Font.Bold = True<br />
Selection.Font.Italic = True<br />
Else<br />
Selection.Font.Bold = False<br />
Selection.Font.Italic = False<br />
End If<br />
End Sub<br />
Visual Basic for <strong>Excel</strong><br />
Модель объектов <strong>Excel</strong><br />
Конкретные ячейк<strong>и</strong>, д<strong>и</strong>апазоны, рабоч<strong>и</strong>е л<strong>и</strong>сты, электронные кн<strong>и</strong>г<strong>и</strong> <strong>и</strong><br />
т.п. являются объектам<strong>и</strong> проекта, представляющ<strong>и</strong>м<strong>и</strong> сво<strong>и</strong> классы. В модель<br />
объектов <strong>Excel</strong> входят: