?????? ?? ??? ?? ??? ???? ?????. DWG, DXF ??? ??? ??, BMP, TIF, JPG ??? ?? ??, TXT. DOC ??? ??? ??, STEP ?? ? ?? ??? ?????.

? ??? ??? ?? ??? ??? ?? ?? ??? ??? ??????.

? ????? ?? ??? ?? ? ????? ?? Word ?? ?? ??? ???? ??? ? ???, ?? ??? ??? ??? ? ????.

Word ??? ?? ?? ??? ????? ??? ?? Word ?? ??? ? ??? Word ???? Word ?? ???? ??? ??? ??? ???? ????.

ActiveX ?? ??? ???? VB ?? Word ???? ??? ??? ? ????.

? ??? ?? ??? ??? ??? ?? Word ??? ???? ??? ??? ????, ?? ??? ????? ???? ???.

? ???? ??? ?? ??? ?? ??? ??? ??? ??? ? ???, ?? ????? ?? ??? ??? ?? ? ????.

? ??? ? ? ??? ??????.

?? ?? ?? ?? ??? ???? ?????.

?? ??? ???? ??, ??, ?? ??, ??? ???? ??? ? ??.

??? ?? ??? ???? ?? ??? ??? ? ?? ?????.

??? ?? ??? ??? ???? ????.

1 VB ?? Word ?? ??

1.1 ActiveX ?? ?? ??

ActiveX ??? ??? ? ?? ?????? ??????. ActiveX ??? ?????? ?? ???? ?????.

VB ?? ????? ?? ??? ??? ? ????. Microsoft Office ?? ????? ??? ??, ? ?????? ??? ?? ??, AciveX ??? AciveX ???? ??? ?? ????.

? ????? ???? ????? ??? ? ??.

ActiveX ??? ??, ??? ?? ????? ???? ??? ? ????.

ActiveX ??? ???? ?? ??? ????? ??? ? ?? ??? Microsoft Excell, Microsoft Word ? Microsoft Accccess ? VB ????? ?? ??? ? ?? ??? ?????.

? ??? ???? ??? ?? ?????? Excell ?? ??? ???, Word ??? Accces, ??????? ??, ??? ??? ??? ? ??.

1.2 VB Word ??? ???? ??

ActiveX ??? ??? ??? ?? ??? ???? ??? ????.

VB ?? ????? ?? ??? ???? ?? ? ??? ?? ??? ???? ?? ?? ??? ??? ? ??? ??? ??? ? ?? ??? ?? ? ??? ??? ???? ??.

VB ?? Word ??? ???? ??? ??? ????.

(1) ??? ?? ??? ?????.

'?? '????' ?? '?????' Microsoft Word 8.0 Object Librarry '??? ?????.

(2) ???? ?? Word ?? ??? ???? ? ??? ???? ??? ??? ??.

Dim wdAppl As Word.Application ? Word ?? ???? ?? ?? ??.

Set wdAppl = New Word Application ? ??? ??? ? ? ??? ?????.

?? ?? ?? ?? ?? ? ?? ?? ? ?? wdApppl, ?? ?? ? ??? ????.

??? ??? ?? ??? ???? Object ?? ??? ???? ??? ?? ????.

?? ?? Word ?? ??? ?? Object ??? ?? wdApp2

Dim wdApp2 As Object ?? ???

Set wdApp2 = Create0bject (# Word.Application)

????? ?? ?? ?? ?? (wdApp2) ? ??? ?? ?? (wdAppp 1) ? ??? ????.

? ?? As Object ? VB ? ?? ?? ? ??? ??? ??? ??? ??? ? ??.

? ???? VB ? ??? ?? ???? ???? VB ? ?? ?? ??? ??? ??? ??? ??? ? ??.

(3) Word ??? ??? ??? ????.

Word ??? ?? ??? ???? ? ?? ??? ??? ??? ??? ? ??.

Word ?? ??? ???? ??? ??? ?? ???? ??? ??? ??.

??? ???? ??? ????? ??? ???.

Office ?? ????? ?? ActiveX ??? ?? ???? ??? ?? ?? ??? ????, ? ???? ?? ??? ?? ??? ?? ????? ???? ??? ??? ????.

?? ?? Microsoft Offfice ?? ????? ??? Application ??? ???? ? ?? ??? ???? ?? ????? ?? ??? ??? ? ???, ? ??? ??? ??? ??? ??? ? ??.

?? ?? Application ??? ?? ?? Selection Typaragraph ???? Word ??? ?????.

??:

wdApp 1.Selection.Typellaragraph

???? ??, I, Word ??? ??? ??? ???? Word ??? ?? ???? ??? ????? Word ? ?? ???? ???? ???? ?? Word ??? ?? ??? ??? ? ????.

Word ? ??? VBA (Visual Basic for Applications) ? ??? ??? ??? ?????.

??? ???? "Visual Basic ???" ?? ??? ??? ????? VB ?????? VBA ? VB ? 1???? ??? ??? ??? ?? VB ?????? Word ??? ?? ????? ????.

??? ?? ????? ???? ?? ????, ?? ????? ???? ????? ??? ? ????.

?? ?? ??? ?? ???? ????? ??, ??? ?? ?? ????? ?? ??? ??? ? ????.

? ??? ????? ???? ???? ??.

? ???? ?? ?, ?? ??? ?? ??? ?? ??? ??? SFO ?? ?? ??? ??????. ? ??? ??? ?? ??? ??? ??? ??? ?????.

??? ??, ??? ??? ?? ???? ??.

????? '??' ??? '??' ??? ???? 'Microsoft Scripting Runtime' ? ?????.

FSO ??? ???? ?? ??? FileSystemObject ?? ???? ??? ? ????.

Dim fso As New FileSystem

2 ???? ?? ? ??

2.1 ? ?? ?? ??

(1) ?? ?? ?? ???

??? ?? ???? ??? ????.

? ??? ??? ?? ???? 2? ??? ?? ?????.

?? ??? 3? ????, ? ?? ??? 3? ?? ???.

???? ?? ? ?? ?? ? ? ? ?? ?? ? ?? ?? ?? ? ?? ? ? ??? ?? ?? ? ?? ?? ? ???? ??? ?? ? ??? ? ??.

??? ?? ??? ???? ????? ?? ??? ?????.

?? ??? ?? ??? 22 u275, 220? ??? ?? ??, 275? ??? ?? ??, ? ??? ??? 220 u275.

(2) Word ?? ?? ?? ??

?????? ?? ?? ?? ????? ??? ? ????. ??? ?? ??? ?? ????? ????? ?? ????? ????, I ??? ???? ?? ????? ?? ?? ??? ?? Word ?? ??? ???? ??? ? ????.

??? ???? ???: ?? Word ????? ??? ? ???, ????? ??? ??? ???? ??? ???, ??? ? Word ??? ????, ??? ??? ??? ?? Word ??? ???? ????, ??? ??? ??? ??? ????, ?? Word ??? ??? ??? ??? ????, ????? Word ??? ????, Word ??? ????.

? ?? ??? ?? ??? ?? ?? ?? ??? ??? ??? ? ??.

??? ????? ?? ??? ??? ?? ? ???, ?? ??? ??? ??? ????? ??? ? ????.

2.2? ?? ?? ??

?? ??? Word ??? ???? ??? ??? ?? ? ??: ???, ???, ???.

Word ?? ??? ???? ?? ?? ???? ?? ?? ?? ?? ???? ???? ??? ???.

(1) ???.

?? 2?? ???? ?? ? ??? ?? ???? ???? ???.

13.6 *6.7cm, 24?, JYG ??? ?? A ? ????? Word ??? ??? ? 36KB???.

? ???? ?? ??? Word ??? ???? ??? ??? ? ??? ?? ??? ????? ??.

???? VB ?????? Selection ??? lnlineShapes AddPicture ???? ????.

(2) ???.

?? ?? ??? ? ???? Word ??? ??? ? ??.

?? A ? ????? Word ??? ??? ? 4061KB? ??? ??? ? ????.

??? ??? ??? ???, ?? ? ??? Word ???? ???? ??? ???? ? ???, ?? ???? ??? ????? ??? ? ??.

?? ?? ??? ??? ?? ?? ??? ??? ?? ? ?? ?? ??? ??? ? ????.

??? ??? VB ?????? Selection ?? lnlineshapes AddOLEObject ???? ??????.

(3) ??.

? ??? ???? ??? ??? ????? Word ??? ??? ? ???? ??? ???.

????? ?? ??? ?? ??? Word ??? ?????.

?? A ? ????? Word ??? ??? ? 394KB? ??? ??? ? ????.

PDF, DOC ? ??? ???? ? ?? ??? ??? ???? ? ???? ??? ? ???, ??? Word ??? ?????. Word ??? ??? ?? ???? ??? ??????.

??? ?? ??? Word ??? ???? ??? ??? ??.

???? ??? VB ??????? Selection ??? lnlineshapes AddOLE0dject ???? ????, ?? Link1olile (True) ? ?????.

??? ???? ????? ?? DisplayAsleon ? True ? ?????.

3 ???

? ?? VB ?? ????? ?? Word ??? ???? ??? ??? ???? ??? ????.

? ??? ??? ??? ?? ?? ?? ? ??? ??? ???? ??? ???? ????.

VB ? Excell, Access ? ?? Office ?? ????? ??? ?? ?? ??? ??? ? ??.

??? ?????? Office ??? ???? ????? ?? ?????.

?? Delphi ? ??? ??? ??? ??? ?? ??? ?? ? ??? VBA ? ??? ?? ??? Pascal ??? ???? ??? ??.