Substituir caracter no word via delphi

11/07/2003

0

Gostaria de saber como substituir um texto de uma célula no word por outro texto via ole ?
Na verdade não é um texto que quero substituir, e sim um símbolo numérico do word. Então não dá p/ usar nada que procure a letra no documento, porque é um simbolo numérico (7/8, sete oitavos). E não tem como inserir esse símbolo no delphi, p/ mandar ele procurar.

Para inserir um texto em uma célula específica da tabela é :

Var
Word, Contrato, Doc : Variant;
begin
Cursor := crHourGlass;
Word := CreateOleObject(´Word.Application´);
Word.Visible := True;
Contrato := Word.Documents;
Doc := Contrato.Open(´C:\Startway\Teste.doc´);
Doc.Tables.Item(1).Cell(2,3).Range.Replace(´x´);
end;

Por exemplo, quero pegar o que está na célula(2,3) e substituir por w.

Obrigado.


Andreyrf

Andreyrf

Responder

APRENDA A PROGRAMAR DO ZERO AO PROFISSIONAL

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar