Войтюшенко Н.М., Остапець А.І. Інформатика і комп’ютерна техніка
Подождите немного. Документ загружается.
491
$ # ! % B -
.
$ # :! -
#, ! , ! , # -
! ! VBA. & , B# -
B B # !:
1) ! !
#;
2) -
– ! , B
B ..;
3) , -
% ;
4) !.
" #, !
: ! Visual Basic for Applications. + B #,
# % B : -
#, % ! .
10.1 ! Microsoft Word
*% VBA
$ ! # ! ,
# # # -
, B !. J-
, #:
- – , : -
, !, B , ;
- % – %, , -
%! # , ,
% ;
- %( (& – , , , A
:!, ..;
- , Y ! #, –
# # !.
492
\A -
! , # B
, A! , – , %-
% , %, A #: -
!. $ B ! -
VBA. % , !A , A !!, -
#, : -
! , A !
# , B VBA-, A %:
# # .
' #
Word !: , A % B ! % !-
, Word !% .
" ! -
#, A . $
%:! ! , A ! #,
A:! ! !- ,
!A !!.
$! ! B
, #% ! % .
#: ! , B -
, A -
(. 3).
# B % -
! VBA. ! ! -
! . $ B -
10.1. $ % -
:
- # B!
, B# # – ( -
A);
- A B# # :! ;
- :! – B, ;
- ;
- – A !, !-
– ! ;
- % Times New Roman, – 14, B! -
, ! .
493
\ !: «&», «$O », «"», « -
», «», «» % # !,
B !!; – %!;
– ! .
@ ! % B , #% #
. * , , ! # -
10.1, A % ! . $ -
Word A # !. @! -
# , !
! ! B! . $! # -
DocVariable.
!, :
%,
! o . o . & o 5* -
! o &
DocVariable o 5 ! DocVariable
'! ! B! o 5.
+ # . # ,
- #! B B! : [Alt +
F9]. B – ! [Alt + F9] (
10.2). + B B! -
B !, A . $ B
#! .
494
;$ =$ *
. :.8* – ?*
. '
'.. '
": $ !
=
@B % , A # : B-
! % B
, ! # # -
, ! :!.
@ ' J.(. %
25.10.2005
10.1 – ) J
$ –
! «&» «$O » !
! # B B!
! B! .
495
10.2 – B B!
@! % VBA- -
( % ! ) -
. , -
:
- ! – # -
-! ;
496
-. o . o '! j
- o ;.
@! # -
! '! 8.
# ( %! .dot
– « »)
'! .
J – (( ,
A # , #
%! . (B B # -
! , A !!. @! -
! (( # , A -
!! Visual Basic.
\ # Visual Basic, # -
, . @! %
B , 10.3.
10.3 – H ! !
" ! , A -
:!. @ ! !! -
# , !.
*:! Visual Basic :
497
1) % o Visual Basic
! % [Alt+F11] # . . o . : o . '-
Visual Basic ( 10.4).
2) Project #
.
3) TemplateProject, A : %, !
:.
4) . (Insert) o . UserForm – -
! !.
10.4 – Visual Basic !
@ ! :! # . $-
: ( Name) , , -
! , (
Caption) : . $ , !
: % Times New Roman -
( Font)
498
Name Caption
1. @ !
2. Tipe "
3. Data @
4 Komy &
5 FIO $O
6. Tema $ A
7. Kto $
8. FIO_kto $O
9. +_ $
10. '#A! '#A!
11.
$ – *, A :!, :!
.
% :! !:
) , A ! -
;
) ! ;
) , A : .
$ ) :! # % !
Visual Basic ! ': #
! Word . " B B ('-
: UserForm) :! Initialize. D! -
:! ! ! -! -
#.
" , A :!, -
B – B . @! B-
:! :
AddItem <” ” >
$! Komy, FIO, Tema, Kto, FIO_kto # -
B ( Text #).
\ # #! Data -
# ( ).
" Initialize :
499
Private Sub UserForm_Initialize()
Tipe.AddItem "="
Tipe.AddItem ";"
Data.Text = Format(Date, "dd.mm.yyyy")
End Sub
@ B '! -
.
&! Y A!
!. & :
Private Sub Y_Click()
Tipe.Text = ""
Data.Text = ""
Komy.Text = ""
FIO.Text = ""
Tema.Text = ""
Kto.Text = ""
FIO_kto = ""
End Sub
&! & ,
, !
#! ! # ! -
B!.
@! #!, ! B # ! -
,
CreateZap (! ! % !)
% – . Insert o . Module:
Public CreateZap As Boolean
\A CreateZap : #! False (),
# ,, !A #! True () –
& .
! ! .
" B ! , A %!.
$ ,
CreateZap #! False. & :
Private Sub ,_Click()
.Hide
CreateZap = False
End Sub
500
$ & -
# ! . $ ! B -
, , Gotovo. \A # -
, Gotovo : #! False
# B !, % Gotovo = True
B . & :
Private Sub ^__Click()
Dim Gotovo As Boolean
Gotovo = True
If Len(Tipe.Text) = 0 Then Gotovo = False
If Len(Data.Text) = 0 Then Gotovo = False
If Len(Komy.Text) = 0 Then Gotovo = False
If Len(FIO.Text) = 0 Then Gotovo = False
If Len(Tema.Text) = 0 Then Gotovo = False
If Len(Kto.Text) = 0 Then Gotovo = False
If Len(FIO_kto.Text) = 0 Then Gotovo = False
If Gotovo = True Then
.Hide
CreateZap = True
Else
MsgBox "K, 2% 2", vbOKOnly +
vbExclamation, "& 2"
End If
End Sub
$ – ' MsgBox … %! !.
# !: ! Len, A #: B-
!.
$, '! ! , -
# ! , '!-
! %. @! ! #
% .
&B % '! ThisDocument, A -
Microsoft Word ' . $ !
ThisDocument : , -
! .
+ % #, % %-
'!!! ! ! , A