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

8 –

.НШМЦ

2.

,

4.

.

,

ActiveDocument.Tables(2).Rows(1).Select

.

Selection,

-

5.

.

.

Selection.Paragraphs.Alignment = wdAlignParagraphCenter

Selection.Font.Bold = True

6.

.

ActiveDocument.Tables(2).Cell(1, 1).Range.Text = "

"

7.

.

.

8.

Selection.InsertRowsBelow 1

9.

.

17

10.

.

.

.

-

.

9.

InputBox(),

.

И

=InputBoб(“

”,“

”)

,

,

9.

9 –

IЧpuЭBШб()

1.

4_Edit_Tables

,

,

.

-

-

ActiveDocument.Tables(2).Cell(2, 1).Range.Text = InputBox("

", "

")

2.

4_Edit_Tables

,

,

.

,

-

.

3.

.

.

MsgBox(),

MsgBox “

”,

, “

”

4.

4_Edit_Tables

MsgBox

,

-

,

10.

-

10 –

,

MЬРBШб()

5.

.

.

.

10.

4_Edit_Tables

,

.

.

Ц

(

)

-

,

,

,

.

« »

Do

а

ы

а

а

Loop Until

4_Edit_Tables

,

-

.

-

MsgBox()

MsgBox("

?", vbYesNo, "

")

MsgBox()

vbYesNo

,

-

11.

6,

,

–

7.

,

-

MsgBox()

7.

11 –

MsgBox()

-

Dim yn As Integer, i As Integer ‘

yn = 6

‘

,

i = 1

‘

Do ‘

i = i + 1

‘

Selection.InsertRowsBelow 1

‘

Selection.Font.Bold = False

Selection.Paragraphs.Alignment = wdAlignParagraphLeft

ActiveDocument.Tables(2).Cell(i, 1).Range.Text = InputBox("

",

"

")

‘

,

ActiveDocument.Tables(2).Cell(i, 2).Range.Text = InputBox("

-

", "

")

yn = MsgBox("

?", vbYesNo, "

") ‘

-

Loop Until yn = 7

1.

4_Edit_Tables ,

-

.

-

.

.

-

.

,

,

8.

.

11.

Selection

(

)

-

4_Edit_Tables

,

.

,

-

Selection.

1.

4_Edit_Tables

.

-

,

4_0.

5, «

»

ActiveDocument,

Selection.

,

2.

.

.

.

20

12.

(

)

,

10,

-

.

,

(

)

.

.

«

»

ancel,

,

InputBox(),

“”.

.

-

1.

,

4_0

,

Cancel.

,

.

,

-

.

x

y,

,

Dim i As Integer, x As String, y As String

i = 1

б = InputBoб("

", "

")

в = InputBoб("

", "

")

Do While x <> "" And y <> "" ‘

,

-

‘

Cancel

Loop

2.

,

-

10.

.

-

.

.

Word

-

:

,

,

. Word

– Characters.

:

– Words.

– Sentences.