Fórum Documento do Word #365855

Olá companheiros,

Espero que possam me ajudar...

Estou precisando completar um documento já existente via programação. Substituir algumas partes do texro e inserir algumas tabelas. Atravez de pesquisas no forum, encontrei alguns exemplos:

MSWord:= CreateOleObject(´Word.Basic´);

Com esta variante consigo inserir uma tabela, más não consigo sair de dentro da tabela criada para criar outra tabela e nem para continuar inseririndo texto (fora da tabela criada). Além disso, não consigo também subistituir texto: o comando ´MSWord.Content.Find.Execute(FindText := ´@002´, ReplaceWith := ´Belo Horizonte ´+FormatDateTime(´DD/MM/YYYY´, Date));´ sempre retorna um erro dizendo que o comando Content, ou Find, ou... ´not supported by automation object´.

Quanto uso a variante MSWord..CreatOleObjeto(´Word.Application´), consigo substituir texto más não consigo inserir tabelas. A mensagem de erro é a mesma descrita acima.

Quanto uso as duas variantes MSWord:= CreateOleObject(´Word.Basic´) e MSDOC:= CreateOleObject(´Word.Application´) consigo substituir texto e criar uma tabela, más a tabela é sempre criada no topo da página e não onde o cursor supostamente deveria estar e também aí após criar uma tabela não consigo sair de dentro dela para continuar processando o documento.

Preciso substituir texto em um arquivo do word já existente e inserir algumas tabelas de preço em locais pre-difinidos.

Se puderem me ajudar...

Desde já agradeço pela atenção de vocês.

Augusto Vieira
ajvieira@terra.com.br