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

21

– Paragraphs.

1.

.

-149

.НoМm.

-149

.НoМm

,

+.

-

(

).

,

-

+

.

,

.

:

1.

(

):

– Times New Roman;

– 14

;

(

–

;

2.

):

– Arial;

;

–

;

–

;

–

;

3.

(

1):

– 10

;

–

;

4.

(

,

):

–

;

–

;

– 12

;

–

(Selection.Paragraphs.KeepWithNext = True);

5.

:

– 1,27

;

–

;

( ...):

6.

(

,

+

10 +

-

;

7.

(

):

–

;

– 12 .

(

-

ActiveDocu-

22

ment.Paragraphs),

,

(

),

-

.

-

.

"

"

,

". (

-

"

-

12).

.

"

"

,

-

"

".

(

)

.

-

,

.

-

=

.

.; .

(

)

For

= а _ а

_ а

[Step

а ]

а

ы

Next

"

,

-

",

-

.

-

(

).

(

)

,

-

(«

»

«

», «

»

«

»)

.

«

–

–

»

If

Then

лов

1

Else

в

1

в 2

2

End If

23

,

2.

2 –

Visual Basic

=

=

≠

<>

<

<

>

>

AND

OR

NOT

.

-

13.

2.

-149

.НoМm.

VBA

,

,

.

,

.

.

-

,

.

.

3.

.

.

.

.

.

:

–

-

.

,

-

.

,

,

.

SuЛ

0()

‘

Selection.WholeStory

Selection.Font.Name = "Times New Roman"

Selection.Font.Size = 14

Selection.Paragraphs.LineSpacing = LinesToPoints(1)

Dim all_par As Integer, tek_par As Integer, i As Integer ‘

all_par -

, tek_par

24

all_par = ActiveDocument.Paragraphs.Count ‘

-

tek_par = 1 ‘

Do While ActiveDocument.Paragraphs(tek_par).Range.Words(1) <> "

" And

ActiveDocument.Paragraphs(tek_par).Range.Words(1) <> "

" ‘

ActiveDocument.Paragraphs(tek_par).Range. Select ‘

-

With Selection. Paragraphs ‘

.LineSpacing = LinesToPoints(1.5)

.Alignment = wdAlignParagraphCenter

End With

With Selection.Font ‘

.Name = "Arial"

.AllCaps = True

.Bold = True

End With

tek_par = tek_par + 1 ‘

Loop

‘

Do While ActiveDocument.Paragraphs(tek_par).Range.Words(1) <> "

" And

ActiveDocument.Paragraphs(tek_par).Range.Words(1) <> "

"

...

tek_par = tek_par + 1

Loop

‘

For i = tek_par To all_par - 5

ActiveDocument.Paragraphs(i).Range.Select

If ActiveDocument.Paragraphs(i).Range.Words(1) = "

" Then

‘

VBA

,

Office

.

-

.

VBA

(UserForms).

UserForm

,

,

1.

-

.

,

,

,

.

,

-

.

-

,

-

,

,

-

.

,

,

-

,

.

–

,

-

,

,

.

14.

VBA

1.

.docm.

VBA

.

12.

VBA

.

.

View – Project Ex-

plorer.

.

View – Code

.

-

,

,

–

-

.

View – Properties Window.

.

Alphabetic

Categorized

.

:

-