/ | ||||
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) .