Informatika_Voytushenko

B Show. $# ! CreateZap # , ! -!. \ A & ,# !, # ! , ! :

ActiveDocument.Variables (“< ' ”) = <0 ' 2 >. < ' >.< >

+ ! ! B # - # !. H , – - ! 8 ! ! # - .

\ A ! ,, -B !.

@ ! ! # ThisDocument, ! ': Document New:

Private Sub Document_New()

'' % ! ! !

Dim fld As Field.Show

If CreateZap = True Then.Hide

'$: ! # !

ActiveDocument.Variables("8 ") = .Tipe.Text ActiveDocument.Variables("5 ") = .Komy.Text ActiveDocument.Variables("&0?") = .FIO.Text ActiveDocument.Variables("8 ") = .Tema.Text ActiveDocument.Variables("& ") = .Kto.Text ActiveDocument.Variables("& ") = .FIO_kto.Text ActiveDocument.Variables("; ") = .Data.Text

' !

For Each fld In ActiveDocument.Fields fld.Update

Next

'$ ! !

ActiveDocument.Bookmarks("8 ").Select

' B ! '!

Unload

501

Else

'& # " "

Unload

ActiveDocument.Close SaveChanges:=False

End If

End Sub

$! B -% :

+Microsoft Word

.$ . # ‰

5 ! , A '! !, (& )'! .

< # # B ! % - .

& $ $3

1.\ # B !Word?

2.Š ! B ! B Visial Basic Visial Basic for Application?

3.& VBA ! ! ?

4.$ ! ?

5.\ % Word?

6. \ % ! ': Document, ! New?

7.@ ! -, A : – $! .

8.< VBA !:

502

10.2 !Microsoft Excel * % VBA

VBA Microsoft Excel !: ## : ! , -! # !, ! , ! ! , B ! -# , ! -, .

+ VBA Microsoft Excel : ! % 100 ': , A ! ! ! : . J % - ! Excel. : ! # : '! B ': -: % ! . $! ! ': , -B # % Visial Basic:

.. : . ' Visial Basic . View

.Object Browser.

J 10.5 : ': VBA, O ': .

$ ! ': : ! ! -': . ': ! : , ! # : ! ': Application # : ! '! -': . J , ! # !1 # -G 1 # '! ! , : :

Application.WorkBooks("! , ").WorkSheets("G 1").Range("

Al")

$ A ! ': '! - . # B ! ! ! ': .

+! , , ': , A

, ! , B . + ! , ! A ! # !1 , - A Excel, ! ': Application B A ,!:

WorkBooks("! , ").WorkSheets("G 1").Range("Al")

\ A # : , ! B A % :

WorkSheets("G 1").Range("Al")

503

\ A # G 1 ,B ! ! !1:

Range("Al").

' ': Excel B, ! % - ! , ! ! ! B - .

B ': . +B# Visible ( ) # ! False ( ) # % -( ': WorkSheets) !:

Worksheets.Visible = False

504

* , A -': . $ % # B - .

!ctiveWindow – : Excel; !ctiveWorkbook – - : # Excel; !ctiveSheet – - : # ; !ctiveDialog – : -# ; ActiveChart – - : # ; ActiveCell – :# # .

( B ': . +hartObjects ( ) # G 1Delete ( ), A !# G 1:

WorkSheets("G 1") .ChartObjects. Delete

@ ! % VBAMicrosoft Excel ( . 4 ) ! - ! . + Excel : ! – !1 R1C1. ' : ! # B- . + !1 ! , R1C1 – . $ R1C1 : ! :

. . & Y -# R1C1 5.

$! !1 – ! # R1C1.

@ Microsoft Excel ! - ! !1. + R1C1 ! # # B! . < : R2C1 – #! % !. – - : B ! # A # , ! % . $ B !A # . B( 10.6).

505

J :

Function 8 (8$) 85 = 8Š$ + 273

End Function

! B ! VBA ,# ! , , # % : % .

* ! # : .

1). * # # , ! # Visual Basic, A# : - .

2). $ ! Visual Basic ! # ! - # !, A # # .

$ 10.1. – @ ! ! -( 10.7) -% . & , - # ! ! !. ( B !% B : 0,30 ., ! A % 1000 !% , ! 100 ., % 1500 !% – ! -200 .).

!. + # Excel, ! ' : .

* # # % . @ '! 5, – K, & ,, . @ ! .

1.(. . : . ' Visual Basic , -# : ! VBA.

2.(. Insert ( ) . Module (( ) ! ! ! Module1.

3.$ – Properties Name'! 3 ( 10.8).

507

5.( B ( ,-), B # B #

Excel.

6.(. File . Close And Return To Microsoft Excel ! -

! # .

7. # ! % (H5), - # # -, # 5. @ - B : ! ! # : . + #-– = 5 (B5;C5;D5). )-B # .

$ – #– , ! ! - .

# 510 -! . ' - : B , # -A ( . 10.8), - : ! .

$ – + Excel - ! ! ! B ,B # % . ( B -, !10.8, ! ! . + -% , ! A - ! ! .

$ , B--! .

509

10.2.2 " % ,

€ # ! # , - ! # # -# B ! # . \ Microsoft Word, %-: ! ! , : ! Microsoft Excel. B ! ! # . % (Book.xls) : ! # ! , A - # ! ! Excel. * ! # B # . \ A # -% # , B -% , ! ! : !.

@ # # # : !% # , # ! . \ A # :# # # ! A - ! # ! ! , : ! . € A % , : # % , A % ! B . D - A B : # # .

€ : ! , ! # # ,# ! ! : , A ! % # # # % . € # : -# , A ! , , ! , . $ B -. \ A : % , ! , A : ! - # % . % B -# % # # , A # # % , ! .

+ , A ! Excel % , # , ! - ! ! ! # # - % , % . + % !:

! ! ;

;

# ;

510