AX Word操作

AX Word操作

发表于2007-11-8 0:30:03

void job()
{
    #define.wdLine(5)
    #define.wdCharacter(1)

    COM word = new COM("Word.Application");

    COM documents;
    COM document;
    COM selection;
    str        _filename;
    int        intTmp;
    int k=0;

     ;

    _filename = "d://test.doc";

    word.Visible(true);
    word.DisplayAlerts(False);

    Documents = word.Documents();
    Documents.open(_filename);

    selection = word.Selection();
    selection.movedown(#wdLine,4);
    selection.moveleft(#wdCharacter,5);
    selection.typetext("hello");

    selection.MoveRight(#wdCharacter,25);
    selection.typetext("world");

 

/*
    Selection.MoveDown Unit:=wdLine, Count:=4
    Selection.MoveLeft Unit:=wdCharacter, Count:=5
    Selection.TypeText Text:="hello"
    Selection.MoveRight Unit:=wdCharacter, Count:=25
    Selection.TypeText Text:="world"
    Selection.MoveRight Unit:=wdCharacter, Count:=14
    Selection.TypeText Text:="AB"
    Selection.MoveRight Unit:=wdCharacter, Count:=17
    Selection.TypeText Text:="Computer"
    Selection.MoveRight Unit:=wdCharacter, Count:=22
    Selection.TypeText Text:="2007-11-15"
    Selection.MoveRight Unit:=wdCharacter, Count:=13
    Selection.TypeText Text:="asd"
*/
}