| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
thiago.rj
Aprendiz
Registrado: Segunda-Feira, 13 de Junho de 2011
Mensagens: 126
|
 Enviada: Seg Ago 19, 2013 8:19 am Assunto: [RESOLVIDO]DELPHI 2010: Como abrir documento do Word? |
 |
|
Mais uma vez preciso de toda ajuda possível. Como abrir uma arquivo do Word no Delphi 2010? Pesquisei e até consegui fazer no Delphi 7; mas no Delphi 2010 não tem a unit ComObj. Aguardo e agradeço.
NOTA: A empresa onde trabalho está migrando do Delphi 7 para o Delphi 2010.
Editado pela última vez por thiago.rj em Seg Ago 19, 2013 11:40 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
maikonvr
Novato
Registrado: Sexta-Feira, 28 de Dezembro de 2012
Mensagens: 57
|
| Enviada: Seg Ago 19, 2013 11:09 am Assunto: |
|
|
| Possui sim, só declarar na uses... |
|
| Voltar ao Topo |
|
|
thiago.rj
Aprendiz
Registrado: Segunda-Feira, 13 de Junho de 2011
Mensagens: 126
|
| Enviada: Seg Ago 19, 2013 11:40 am Assunto: RE: |
|
|
Nossa que vacilo rs, era isso mesmo! Agora consegui. Mas, estou com outro problema... Teria como me ajudar? No caso, não estou conseguindo acessar o texto que está no Word, para altera-lo pelo sistema.
| maikonvr escreveu: | | Possui sim, só declarar na uses... |
|
|
| Voltar ao Topo |
|
|
maikonvr
Novato
Registrado: Sexta-Feira, 28 de Dezembro de 2012
Mensagens: 57
|
| Enviada: Seg Ago 19, 2013 1:39 pm Assunto: |
|
|
Tem sim olha ai
Editado pela última vez por maikonvr em Seg Ago 19, 2013 1:43 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
|
maikonvr
Novato
Registrado: Sexta-Feira, 28 de Dezembro de 2012
Mensagens: 57
|
| Enviada: Seg Ago 19, 2013 1:42 pm Assunto: Re: RE: |
|
|
| thiago.rj escreveu: | Nossa que vacilo rs, era isso mesmo! Agora consegui. Mas, estou com outro problema... Teria como me ajudar? No caso, não estou conseguindo acessar o texto que está no Word, para altera-lo pelo sistema.
| maikonvr escreveu: | | Possui sim, só declarar na uses... |
|
Tenta aí...
| Código: |
var
Doc, WinWord : Variant;
begin
WinWord:= CreateOleObject('Word.Application');
Doc:= WinWord.Documents.Open('C:\Texto.doc');
Doc.Content.Find.Execute(FindText := '@proprietario_software@', ReplaceWith := EditEmpresa.Text);
//Disparando o documento
WinWord.Visible := True;
end;
|
Nesse caso o @proprietario_software@ é uma variável dentro do documento. |
|
| Voltar ao Topo |
|
|
thiago.rj
Aprendiz
Registrado: Segunda-Feira, 13 de Junho de 2011
Mensagens: 126
|
| Enviada: Seg Ago 19, 2013 1:53 pm Assunto: Re: RE: |
|
|
Maikonvr, muito obrigado! Funcionou! Nem sei como agradecer, vlw mesmo cara, abs
| maikonvr escreveu: | | thiago.rj escreveu: | Nossa que vacilo rs, era isso mesmo! Agora consegui. Mas, estou com outro problema... Teria como me ajudar? No caso, não estou conseguindo acessar o texto que está no Word, para altera-lo pelo sistema.
| maikonvr escreveu: | | Possui sim, só declarar na uses... |
|
Tenta aí...
| Código: |
var
Doc, WinWord : Variant;
begin
WinWord:= CreateOleObject('Word.Application');
Doc:= WinWord.Documents.Open('C:\Texto.doc');
Doc.Content.Find.Execute(FindText := '@proprietario_software@', ReplaceWith := EditEmpresa.Text);
//Disparando o documento
WinWord.Visible := True;
end;
|
Nesse caso o @proprietario_software@ é uma variável dentro do documento. |
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
