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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

 

 

11

 

 

 

Selection (

4.

).

WholeStory,

-

 

 

Selection,

 

 

.

 

 

With End With

 

 

 

-

 

.

,

 

 

 

 

With End With,

 

(

 

 

Selection).

 

 

,

 

 

Font

Selection

 

 

ParagraphFormat

.

 

 

 

2.

,

4.

1_Format_Text

-

VBA

 

 

 

 

,

 

,

 

-

3.

.

 

 

 

 

 

 

 

 

 

Selection.ParagraphFormat.LineSpacing = LinesToPoints(1.5)

 

 

 

 

.

VBA.

 

 

 

 

 

,

4.

 

 

 

 

 

 

,

Run Sub

-

 

.

 

 

.

 

.

 

 

 

 

 

 

 

 

5.

 

1_Format_Text

,

-

 

.

 

 

,

,

 

.

 

 

,

 

 

(Д

 

К

).

 

 

 

 

 

 

 

 

 

 

6.

1_Format_Text

VBA.

 

 

-

 

 

 

 

-

 

.

 

,

 

-

2_Format_Text.

,

 

 

-

(wdAlignParagraphLeft),

 

,

-

(0).

 

 

,

-

 

,

 

 

.

 

 

7.

 

 

 

 

 

12

 

1

 

( -

2),

 

,

 

 

.

2

 

Word

 

(

5).

3

 

-

.

 

 

4

 

.

5

 

.

 

 

 

6

OK.

 

7

,

.

5 –

 

 

 

1.

6.

3ИInsОrtИTablОs,

 

(Ctrl+Home);

(Shift+End; Shift+ ; Shift+ …)

;

 

;

 

;

;

(Ctrl+End);

 

13

 

 

 

 

 

;

.

-

 

 

2.

 

.

 

 

.

3.

,

-

 

,

.

.

.

.docm ,

4.

6,

 

.

 

6 – .docm

2.

 

 

Visual Basic for Application

 

,

,

.

.

 

VBA.

 

 

 

VBA.

 

,

-

,

 

-

.

 

 

 

 

 

14

 

 

 

 

 

 

 

 

 

 

 

,

 

 

 

,

 

 

 

.

 

 

.

 

 

 

 

 

.

 

 

 

 

 

,

-

 

 

 

 

 

 

.

 

 

 

 

 

 

 

 

 

DIM

И

AS

 

 

1.

 

,

 

,

 

,

 

 

 

 

 

 

 

 

 

1

 

 

VBA

 

 

 

 

 

 

 

,

 

 

 

 

 

 

 

 

 

 

 

 

Integer

 

 

 

 

2

 

[-215; 215-1]

 

Single

 

 

 

 

4

 

[-2128;-2-149Ж

 

 

 

 

 

 

[2-149; 2128-1]

 

String

 

 

 

1

 

 

231

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Boolean

 

 

 

 

2

 

[True, False]

 

,

 

,

 

-

 

,

-

 

 

 

 

 

 

 

 

 

 

 

И

=

 

 

-

.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

VBA

 

 

 

-

(

(tables),

(paragraphs),

...).

 

 

 

 

,

 

 

 

.

 

7

 

 

 

 

VBA

 

 

 

 

Word.

 

 

String.

 

ActiveDocument.Tables.(1).Cell(2, 3).Range.Text

7 –

VBA

 

15

8.

 

1.

8.

4_Edit_Tables,

-

,

,

.

.

 

,

.

.

 

2.

4_Edit_Tables

VBA.

.

SuЛ 4ИEНТtИTКЛlОs()

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=2

AМtТvОDoМumОnt.TКЛlОs(2).StвlО = "

 

"

 

End Sub

 

 

 

3.

 

.

-

,

,

Selection

 

.

 

 

(

 

 

VBA

-

,

 

).

 

.

 

 

 

Источник: https://studfile.net/preview/16409032/