.


:




:

































 

 

 

 


Visual Basic for Application




/
  UserForm () Name () Caption () Font () Heigt () Width () Show () Move () Load ()
  CommandButton ( ) Name () Caption () Font () Heigt () Width () Move () Click ()
  TextBox ( ) Name () Caption () Font () Heigt () Width () Move () DbClick ( )
  Label () Name () Caption () Font () Heigt () Width ()    

 

, , .

(Properties) .

:

. =

. Wiht End With :

With

.1 = 1

.2 = 2

. N = N

End With

- , , . , . , :

. 1:= , 2:=

, Ms Word Open, : Documents ().Open FileName:=C:\ \.docx

, . (, ) . , , ..

, .. . ( ). :

_ ()

. , , , - ..

, . , Sub End Sub. , , .

:

1) (), , ;

2) , ;

3) (, , , ..);

4) , , VBA.

 

VBA Basic ( 1).

VBA :

- ( , , );

- , .

 

VBA References : Microsoft Word Object Library, Microsoft Excel Object Library . Object Browser , .

VBA :

Dim objWord As Word.Application

Set objWord = New Word.Application objWord Word

Dim XL As New Excel.Application XL Excel

:

XL.Workbooks.Open App.Path & "\MyBook.xls"

Set objDoc = objWord.Documents.Open (App.Path &_ "\HI.doc")

:

Dim objDoc As Word.Document

Set objDoc = objWord.Documents.Add

, Visible True; , Visible Falshe:

ObjWord.Visible = True

XL.Visible = False

Close Quit:

ObjDoc.Close False

ObjWord.Quit False FALSE Word, . , Word

( )

XL.ActiveWorkbook.Close

Save, Save as. Save , .. :

If objDoc.Saved = False Then objDoc.Save

Saved ,

.

XL.ActiveWorkbook.Save '

XL.ActiveWorkbook.SaveAs "C:\MyNewWorkBook.xls" '

:

WordApp.ActiveDocument.Characters.Count '

'

'(, ,,

'.)

WordApp.ActiveDocument.Characters(14).Text '

'

WordApp.ActiveDocument.Characters(14).Text="" '

:

1) Shape (, Dim Line1 As Word.Shape), ;

2) Shape.

, , , . , , , .

, , , . , .

, , , .

 

:

Ø Visual Basic

Visual Basic

Visual Basic

. 85. VBA, Ms Word.

Ø

Visual Basic Insert; UserForm

InsertUserForm

. 86. VBA .

Ø Visual Basic

;

: Visual Basic View; Tools

ViewTools

Ø

( );

Ø

; Microsoft Windows

. 87. .

Ø

Visual Basic View, Properties Windows,

ToolseProject Properties

. 88. .

Ø

Visual Basic Tools, Project Properties,

ToolseProject Properties

. 89. .

Ø

UserForm (Code)

. 90. .

Ø

UserForm (Code) ,

. 91. , .

Ø

Visual Basic Project-Project , Module1 (Code)

. 92. .

1. , .

2. , .

 

:

1) , ;

2) ;

3) ;

4) , ;

5) ;

6) ;

7) ;

8) ;

9) ;

10) ;

11) ;

12) ;

13) , ;

14) , , ( );

15) ;

16) ( );

17) , , , ;

18) , ;

19) , ;

20) ;

21) , ( );

22) , , , ;

23) Word;

24) , , ;

25) ;

26) , ;

27) ;

28) 5 , ;

29) ;

30) .

 





:


: 2016-10-30; !; : 643 |


:

:

, .
==> ...

795 - | 770 -


© 2015-2024 lektsii.org - -

: 0.052 .