MS Word , . - , . , 䳿, , - , .
:
- , .
- ' , , .
- .
- .
MS Word : Visual Basic.
> > . ³ . : : MS Word . MS Word -
normal.dot.
, ' , , Example. ij ' Word: . , ( Example ). 䳿, . ' .
, . , . , ' , .
: . , . , , . . . , .
䳿 Example, , :
1. .
2. .
3. > , Wingdings , ,: , .
4. .
|
|
5. .
ϳ . >> , , , Example, , , , , .
, S Wrd . , , , . ( - ), MS Wrd .
, , . > .
, > - . MS Wrd . , .
, , , , . : , .
, , > > ' Example, , . Visual Basic ( VB), ' Example.
:
Sub Example()
' Example
' 06.02.06 Trusov
' &chr(10) 1 -
Selection.TypeText Text:=" "
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.InsertSymbol Font:= "Wingdings", _
CharacterNumber:=-4038, Unicode _
:=True
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
Sub, ' . . , ' . , . "".
, - , . (). VBA.
' "" "" (_),
Visual Basic " " , . "" . ( ), . .
|
|
, . , " Sub", "End Sub" VBA . , , .
, MS Office. File > Save.
2.
MS Word ' ( "_ -").
1. .
, , , Arial 14- . Word , . :
1. .
2. - .
3. >> ' _; , , : Arial, Bold 14 ; .
4. , Arial.
5. 14.
6. .
7. .
³ - Word _ > > , .
, , . , , . - - , > > , ' , , , .
2. ̲.
- , , -. , , , , , .
. _ , , . - _, _.
:
1. - Enter.
2. >> ' ; , , : ϳ - .
|
|
3. , , Ctrl+Alt+, .
4. ϳ _, ( ) Enter.
5. .
Ctrl+Alt+, . Enter.
3. ϳ .
, , . ϳ . :
1. _, Arial .
2. _, Arial 0,5 _.
3. -- ' _; , , : , .
4. , , Ctrl+Alt+N, .
5. ϳ - ; , , .1. , .
6. ' .1., ; _ Enter.
7. .
Word , . 4-5 ClipArt ( >>, , ). , Ctrl+Alt+N.
4. .
. VBA . End Sub, , Sub <'> (), . . VBA , . , Enter Sub End Sub. , ' .
VBA, , .
1. ', , .
2. Alt +F11 VB.
3. Project Explorer , .
|
|
4. Insert > Module . .
5. Properties - Module 1 , ', , FirstProg.
6. , FirstProg (d) , Enter :
Sub Hello ()
MsgBox, !!!
MsgBox MS Word
End Sub
File, (, Alt+Q) Hello. ³ (Message Boxes), ', .
7. , MsgBox : , ; , . , :
Sub Hello ()
MsgBox, !!!,,
MsgBox MS Word,,
End Sub
8. Hello .
, Hello FirstProg , - . , , , , , Normal.dot. FirstProg Normal.dot .
9. :
>> _(), Hello, FirstProg Normal.dot.
10. > , , Normal.FirstProg.Hello , , Word, , . ϳ ' ( ), , .. .
11. , , .
, Example. - , , ', ' , , _ . ' , .
, , Normal.NewMacros.Example , , . , , . ij , ( ) _, , _. .
:
1. , , ', .
2. Project Explorer VB, File > Remove < ' > () .
3. .bas ( VBA Visual Basic) Project Explorer VB, .bas, File > Import File .
Ͳ .
1. ?
2. ?
3. ?
4. VBA?
5. MS Word?
6. MS Word?
4.4 (2 .)
MS Excel .
|
|
1. ˲.
, . , .
1. MS Excel .
2. - (, 7) .
3. 1 .
4. Format, , .
1. ' , ( ). .
2. , , > , , .
3. (, ).
4. (, ).
5. .
Visual Basic , Module1 Modules. , , . ³ "" . ' 7.
ActiveCell.Offset(6,1).Range("A1").Select
'. ' ActiveCell (A1). Offset(6,1) 6 , 7. Range("A1") . Offset 7. , Range . , Select .
Selection.NumberFormat, . 䳿 . ϳ : , . .
, , 6 1 . . , '. .
1. "" ( "") .
2. .
3. .
4. , ', .
5. . Format .
6. , , _.
, . ( < Alt+F8 >). . .
, , . , .
2. VBA
, . , ( ), . VBA , 䳿. For/Next, Do Loop For Each/Next. For/Next, . :
For = To [ Step ]
Next [ ]
' . For "" ( ' s), . "" . "" ,
. "" s 1 15 2 , , 1, 3, 5, 7, 9, 11, 13, 15:
For s = 1 To 15 Step 2
, s
Next
"" , ', Step 1 .
MS Excel, .
1. MS Excel .
2. Alt+F11 VBA.
3. InsertModule . .
4. Properties Module 1 , ', , ForNext.
5. :
Sub Demo_ForNext()
For s = 1 To 4
Cells(1, s).Value = " " & s
Next
End Sub
6. (, Alt+Q) Demo_ForNext.
.
Ͳ .
1. Selection Number Format?
2. "" ?
3. ?
4. ?
5. MS Excel?
.
MS Outlook-2000.
1
.
1. MS utlook.
2. utlook.
ʲ MS UTL
Microsoft utlook , . , , - , - . , , ..
icrosoft utlook , , , , , .
utlook , . , , , utlook, . utlook , , . utlook (.1).
. 1. Outlook.
utlook, ', . ' . ֳ ' ' : utlook, , .
, utlook, : , , , , .
, . ֳ , . : , , , , , - 䳿. . utlook : , , , , (.2).
.2.
, . , . ϳ 쳺 , , ' , .
.
, .
utlook , .
, , ' . .
, ' . , ' .
.
, , , , . .
- , . .
. .
䳿 utlook:
;
;
, , , ;
;
;
;
' .
1. MS UTLOOK
1. utlook
utlook. . utlook .
1. utlook ̳osoft Office : > > ̳rsoft Outlook
2. (.1). . ?
3. -. .1.
:
;
;
' .
4. utlook. , . , ' . , utlook utlook , , , , .
5. . , ' . , , .
6. . . , , .
7. ' :
' ,
' utl,
'.
' , .
:
';
' , , , '.
̳, ', 䳿 (.3).
. 3.
8. ' (.. - Favorites ) . :
';
;
utlook.
. utlook ', . , .
³ utlook . (, ), . '. , , .
2. ˲ ² ֲ ""
, , . , utlook, .
. : , , , , , - 䳿. utl . , - . , , .
' : ', , , - , , , 糿. . , , .
' , ' , .
1. ""
" ".
.
1. ³ . " ".
2. ³ " " (. 4).
. 4. " "
3. . , . , . (. 5). , ' ' .
.5 .
4. . . , .
5. 䳿, ' : , .
6. ³ . , . . 5 - .
7. , .
8. . :
> ; , , ' , ;
, , , .
9. , , , .
10. , > :
.
2. ²
. , : , , , , (). utlook .
, utlook . utlook ,
. . ' .
1. ³ . , .
2. , . . ³ (.7).
. 7. ³ .
3. .
4. . (. 8). ', .
5. . 쳺 .
6. . ? - . ϳ .
. , . , . Word.
3. , utlook
utlook , , , , . , , , utlook . , .
:
1. utlook.
2. .
3. (.8).
.8 ³ .
4. , , utlook , utlook.
5. .
6. , .
4. ""
"" '.
: , ; - ; . ' . - , , , , - . . , , . utlook - . , , . , , , , , . utlook , . :
' ;
;
;
;
.
, 䳿, . , . . .
̲
ò
1. ³ .
2. . ³ (. 9)
. 9. ³ "".
3. -
4. . ' .
5. ' . :
;
(. 9);
;
, , .
6. ' . ³ , ' .
7. .
8. . . . .
1. Outlook.
2. , ?
3. ""
4. "" Outlook? ?
5. ?
6. ?
7. ?
˳
1. .., .., .. : . .: , 2002. 416 . .: 274 309.
2. . Office 2000. - : .- "", 2002. - 576 . .: 414 471.
2
.
4. .
5. utlook.
1.
utlook , . .
, . , .
utlook :
1. ;
2. ;
3. .
, .
utlook . . utlook.
.
. . , , , .
1. .
2. (. .10).
.10
3. .
4. , . .
. !
5. .
6. .
7. . . :
, , ;
: fm.ua ;
: ml.ru ;
( ) , , ;
: ;
, ; , .
8. . . , , .
9. . ( ) .
10. .
3.
. , , , . , , . , , .
utlook , : , , , , (.2).
, - . . : , , .
, , . , , , , ; ( ) ( ). , , , .
, , . . , . , , , , .
, , . .
: -, , , . , (, - ), , . . , , , , . , , , , .