Dim a, b, c, s As Single
a = CSng(UserForm1.TextBox1)
b = CSng(UserForm1.TextBox2)
c = CSng(UserForm1.TextBox3)
s = a + b + c
UserForm1.TextBox4 = s
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
27 Visual Basic for Application Microsoft Office Word.
Word:
1. Application;
2. Document ( Documents);
3. Selection;
4. Range;
5. Bookmark ( Bookmarks).
Application Microsoft Word. Word "" . Word . Application Word ( ) Documents Document, .
, , , , . Selection, Range Bookmark. .
, - Word, , . Selection ( , , ).
, Selection. Range. Range Selection , Selection ( ), Range , .
Bookmark . , (, ). Selection Range , ( Range , . , , , .
Private Sub CommandButton1_Click()
Dim y, x As Single
x = CSng(UserForm1.TextBox1)
If x <= 0 Then
y = Sin(x)
Else
y = Cos(x)
End If
UserForm1.TextBox2 = y
End Sub
Private Sub CommandButton2_Click() UserForm1.Hide
End Sub
|
|
28 Visual Basic for Application Microsoft Office Word.
Application Microsoft Word. Word "" . Word .
.
ActiveDocument Word.
ActivePrinter . , , .
AutomationSecurity . msoAutomationSecurityLow, . msoAutomationSecurityForceDisable msoAutomationSecurityByUI , .
BackgroundPrintingStatus Word .
Build Word. , Word.
Document :
ActiveWritingStyle ( , , ..). .
AttachedTemplate ( , , ..) , ( -> ).
Background Shape, ( Web-);
BuiltInDocumentProperties DocumentProperties , (, , , ..);
Content , Range, (main document story). , , , ..
, - Word, , . Selection ( , , ).
Find , Find. Replace , .
Flags , , : , .. .
Font Font, . , ->.