Informatika_Voytushenko

$ # ! % B -.

$ # : ! - # , ! , ! , # - ! ! VBA. & , B# -B B # !:

1)! ! # ;

2)-– ! , BB . .;

3), -% ;

4)!.

" # , ! : ! Visual Basic for Applications. + B # , # % B : - #, % ! .

10.1 ! Microsoft Word* % VBA

$ ! # ! , # # # - , B !. J- , # :

-– , : - , ! , B , ;

-% – % , , - % ! # , , % ;

-% ( ( & – , , , A : !, . .;

-, Y ! # , –# # !.

491

\ 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 ! - , ! .

492

\ !: «& », «$O », «" », « - », « », « » % # ! ,B ! !; – % !;– ! .

@ ! % B , # % # . * , , ! # -10.1, A % ! . $ -Word A # !. @ ! - # , ! ! ! B ! . $! # -

DocVariable.

Š !, :

% , ! . . & 5 * -! &

DocVariable 5 ! DocVariable

'! ! B ! 5.

+# . Š # ,- # ! B B ! : [Alt + F9]. B – ! [Alt + F9] ( 10.2). + B B ! -

B !, A . $ B # ! .

493

-. . '! j- ;.

@ ! # -

J – ( ( , A # , #% ! . ( B B # -! , A ! !. @ ! - ! ( ( # , A - ! ! Visual Basic.

\ # Visual Basic, # -, . @ ! % B , 10.3.

10.3 – H ! !

" ! , A - : !. @ ! ! ! - # , !.

* : ! Visual Basic :

496

1)% Visual Basic ! % [Alt+F11] # . . . : . '-Visual Basic ( 10.4).

2)Project #

.

3)TemplateProject, A : % , ! : .

4). (Insert) . UserForm – -! !.

10.4 – Visual Basic !

@ ! : ! # . $ - : ( Name) , , -! , ( Caption) : . $ , !: % Times New Roman -( Font)

497

) ! ;

) , A : .

$ ) : ! # % ! Visual Basic ! ': # ! Word . " B B ( '- : UserForm) : ! Initialize. D! - : ! ! ! -! -# .

" , A : !, -B – B . @ ! B-: ! :

AddItem <” ” >

$! Komy, FIO, Tema, Kto, FIO_kto # - B ( Text # ).

\ # # ! Data - # ( ).

" Initialize :

498

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 . Module:

Public CreateZap As Boolean

\ A CreateZap : # ! False ( ), # ,, ! A # ! True ( ) –& .

! ! .

" B ! , A % !. $ ,

CreateZap # ! False. & :

Private Sub ,_Click().Hide CreateZap = False

End Sub

499

$ & -# ! . $ ! B -, , Gotovo. \ A # -, Gotovo : # ! False # B !, % Gotovo = TrueB . & :

Private Sub ^_ _Click()

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

500