Selection.Find.Replacement.Text = "2005"
Selection.Find.Replacement.ClearFormatting
Selection.Find.Execute Replace:=wdReplaceAll
Sub primer()
With Selection.Find
.ClearFormatting '
.Text = "" '
.Execute '
If.Found = True Then '
Selection.Delete
End If
Selection.Find.Execute Replace:=wdReplaceAll '
End With
End Sub
31 Visual Basic for
Application Microsoft Office Access.
Access , . : Access, (DAO, Data Access Object), . Access , . , .
Application Microsoft Access. . Application
Forms . Form, Access.
Reports . Report, Access.
Controls Control, , , .
Modules . Module, Access.
Screen , , .
DoCmd Visual Basic/
References Reference, Access.
Access- DAO. VBA. , , , . DAO , , , .
Public Sub CommandButton1_Click()
Dim a, b, r, n As Integer
a = Int(10 * Rnd())
b = Int(10 * Rnd())
If a > b Then
Label1.Caption = a
Label3.Caption = b
Else
Label1.Caption = b
Label3.Caption = a
End If
End Sub
Public Sub CommandButton2_Click()
|
|
|
a = CInt(Label1.Caption)
b = CInt(Label3.Caption)
r = Abs(a - b)
n = CInt(TextBox1.Text)
If r = n Then
Label5.Caption = ""
Else
Label5.Caption = ""
End If
End Sub
32 Visual Basic for Application Microsoft Office PowerPoint
Power Point ( , ). :
(, );
, .. , .
PowerPoint :
Application, , Word Excel;
Presentations Presentation. , Workbook Excel;
Presentation Slides Slide ( Excel);
Slide Shapes Shape. Shape ( 22 ) , , , , , ..
Application, Presentation, Slide Shape Power Point.
Sub 1()
Documents. Add. Template:=C:/primer.doc.
Documents. Open File Name:="C:/primer.doc.
