Word e delphi

Question

Alguem pode me dar uma rotina basica com os servidores do word para abrir um documento do word, inserir uma linha mudar uma fonte, isto porque no WINDOW XP o createoleobject(�word.basic�) n�o funciona...

Aroldo Zanela · Answer

Colega,

Declare ComObj e ActiveX na lista de uses:

var Doc: Variant; 
begin 
  Word2k := CrieObjeto(�Word.Application�); 
  Word2k.Documents.Open(�c:\NomeArquivo.doc�); 
  Word2k.Visible := true; 
end; 

.... 
function CrieObjeto(const ClasseNome: String): IDispatch; 
var Classifique_Id: TGUID; 
    Desconhecido: IUnknown; 
begin 
  Classifique_ID:=ProgIdToClassId(ClasseNome); 
  if Succeeded(GetActiveObject(Classifique_ID, nil, Desconhecido)) then 
    OleCheck(desconhecido.QueryInterface(Idispatch, Result)) 
  else 
    Result:=CreateOleObject(ClasseNome); 
end;

F�rum Word e delphi #165771