, . , , - . Delphi. . , , . , Word , . Word ? | Visual Basic ( , Word 97, WordBasic Reference). Visual Basic, a Word WordBasic.
WordApplication, Application ( Word), , Delphi. , Application Options , . CheckSpellingAsYouType CheckGrammarAsYouType , , Word . Word. , :
WordApplication1.Options.CheckSpellingAsYouType:=False;
WordApplication1.Options.CheckGrammarAsYouType:=False;
, , , Word , .
Application ActiveDocument . Word Documents. , Word . Document, . Count Documents. , , Word . , ASave, APrint Apreview, , , , , , Word .
Document Documents Add Documents. Template NewTemplate. Template , . , (Normal). NewTemplate , . NewTemplate=false, .. .
|
|
Delphi ( Text) OleVariant. - , . EmptyParam OleVariant, . System.
, , :
WordApplication1.Documents.Add(EmptyParam, EmptyParam);
C:\MyTemplate\My.dot, :
Var
NewTemplate: OleVariant;
...
Template:= C:\MyTemplate\My.dot;
WordApplication1.Documents.Add(Template, NewTemplate);
, :
Var
NewTemplate: OleVariant;
...
NewTemplate:= true;
WordApplication1.Documents.Add(EmptyParam, NewTemplate);
WORD
, WORD.
1. WORD Ole, , , WORD , Ole . - . , - MICROSOFT, WORD, , WORD XP.
2. , WORD , WORD , . , .
3. , , . . WORD .
4. . 3.
3.5. WORD ( )
WORD, OLE , :
1. . , , , .
2. WORD VBA, Visual Basic Script , . , , - WORD . Ole .
3. - , , , .
|
|
3- . / , . . . , .
procedure TForm1.Find(Sender: TObject);
var
What: OLEVariant;
Which: OLEVariant;
Count: OLEVariant;
Name: OLEVariant;
Template:OleVariant;
Rmark:OLEVariant;
begin
Template:='C:\3.doc';
WordApplication1.Documents.Add(Template,EmptyParam);
What:='Example';
WordApplication1.Visible:=true;
What:= wdGoToBookmark;
Which:= unAssigned;
Count:= unAssigned;
Name:= 'Example';
WordApplication1.Selection.GoTo_(What, Which, Count, Name);
end;
, -:
Procedure Word.insert;
begin
WordApplication1.Selection.InsertAfter('');
WordApplication1.Selection.Font.Bold:=2;
WordApplication1.Selection.Font.italic:=1;
end;
, , !
, , !
procedure Word.NextCell;
begin
WordApplication1.Run('NextCell');
end;
WORD, NextCell , . , Ole " " !!! (VIRUS TECHNOLOGIES NOT FOR GAME)