Материал: Ивличев П.С. Практикум по информационным... Ч. 10

26

,

–

-

,

.

12 –

VBA

.

.docm

,

-

(

14).

,

-

.

.

15.

-

Project

Insert – UserForm.

,

-

13,

.

1.

.docm

.

.

,

Name (

).

-

.

-

,

27

.

Caption

(

).

2.

,

.

.

3.

BackColor

.

.

1.

Project (

),

Microsoft Word Objects

-

ThisDocument –

Document,

.

Open (

) –

-

.

,

.docm

.

,

Private Sub

Document_Open()

Show

UserForm1.

2.

UserForm1.Show.

-

.docm,

-

.

.

VBA.

17.

1.

Project (

),

Forms

28

UserForm1–

Toolbox.

2.

14.

3.

Label

-

,

.

-

Caption,

В

-

.

Font

-

10 .

В

4.

.

?.

5.

В

14 –

TextBox

-

/

.

-

,

Text1.

Value.

Text

6.

,

.

Text

.

,

.

7.

ControlTipText,

,

,

. .

-

.

29

.

.

8.

.

,

-

,

,

Style 2-fmStyleDropDownList.

.

OptionBut-

ton.

-

.

Caption,

– Font.

9.

-

.

Д ,

–

.

-

10

.

Value

.

True –

Com-

mandButton.

-

.

Caption.

-

Click.

,

.

10.

В

,

-

14.

.

11.

TabIndex

,

.

0, 1 2

-

TextBox, ComboBox

CommandButton

.

12.

TabStop

Tab.

,

False,

,

.

-

–

True.

TabStop

False,

13.

Default

CommandButton

.

-

Enter,

,

.

CommandButton1

True.

30

14.

Height

Width

,

,

,

,

-

.

15.

,

Private

Sub

Document_Open().

Run

Sub

.

-

.

,

.

,

VBA.

Tab.

.

18.

-

ComboBox.

AddItem

И

.AddItem "

"

Initialize,

,

Show).

(

,

.

1.

UserForm.

-

Initial-

ize –

Private Sub UserForm_Initialize().

,

ComboBox1

-

,

.

ComЛoBoб1.AННItОm "

”

2.

TextBox1.SetFocus

,

SetFocus

TextBox1

.

3.

.

-

.

-

(

-

).

.

VBA.

19.

,

VBA

В

.

-

Д ,

.

,

-

.

-

,

CommandButton1,

-