ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

VBA(Macro) + DELPHI 7

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
hacebe
Novato
Novato


Registrado: Quarta-Feira, 28 de Janeiro de 2009
Mensagens: 6

MensagemEnviada: Qua Jan 28, 2009 10:57 am    Assunto: VBA(Macro) + DELPHI 7 Responder com Citação

Bom dia pessoal!

Estou com um probleminha aqui no VBA utilizando DELPHI. Estou precisando substituir um texto por uma foto. O lance de inserir foto ta feito, o problema é que ele tem que ficar exatamente no local do texto no caso "CAMPO_FOTO". até agora tenho esse codigo

Código:

...

            doc.Content.Find.Execute(findText := 'CAMPO_FOTO');

            doc.Content.InlineShapes.AddPicture(filename :=  'c:\foto.jpg', LinkToFile := False, SaveWithDocument := True);

            doc.Content('CAMPO_FOTO').select;

...


alguem pode me ajudar por favor?

desde ja obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
rogerbetti
Colaborador
Colaborador


Registrado: Quarta-Feira, 2 de Fevereiro de 2005
Mensagens: 1366
Localização: São Paulo/SP

MensagemEnviada: Qua Jan 28, 2009 11:41 am    Assunto: Responder com Citação

vc está conseguindo inserir a foto? creio que vc precisa mudar alguma propriedade da foto e talvez inserir um paragrafo para a foto não ficar jogada no meio do texto
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
hacebe
Novato
Novato


Registrado: Quarta-Feira, 28 de Janeiro de 2009
Mensagens: 6

MensagemEnviada: Qua Jan 28, 2009 12:01 pm    Assunto: Responder com Citação

oie amigo!

ela insere, mas tem dois tipos, a primeira que eu coloco a posição que ele vai ficar(sobreposto), e a outra que ele insere ele na linha do texto...

eu ja tentei substituir a palavra pela foto, mas da tipos incompativeis!

Obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
rogerbetti
Colaborador
Colaborador


Registrado: Quarta-Feira, 2 de Fevereiro de 2005
Mensagens: 1366
Localização: São Paulo/SP

MensagemEnviada: Qua Jan 28, 2009 12:06 pm    Assunto: Responder com Citação

cara mexi com isso uma vez mas não me lembro dos comandos, mas tente:

- localizar palavra
- selecionar da posicao que localizar ate a final da palavra
- deletar a palavra
- inserir a imagem
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
hacebe
Novato
Novato


Registrado: Quarta-Feira, 28 de Janeiro de 2009
Mensagens: 6

MensagemEnviada: Qua Jan 28, 2009 12:07 pm    Assunto: Responder com Citação

é... tive esse pensamento
mas ja procurei a net TODA e nao achei como selecionar o que eu quero... alguns metodos como bookmarks o delphi nao reconhece Sad

obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
rogerbetti
Colaborador
Colaborador


Registrado: Quarta-Feira, 2 de Fevereiro de 2005
Mensagens: 1366
Localização: São Paulo/SP

MensagemEnviada: Qua Jan 28, 2009 12:38 pm    Assunto: Responder com Citação

tenta:

MSWord.LineUp(2, 1); //seleciona uma parte do texto

e dá um olhada nesses links pra ver se ajuda:

http://www.activedelphi.com.br/print.php?sid=215

http://forum.devmedia.com.br/viewtopic.php?p=191763&sid=5cbef2bd10b6265adfe7b467d51bc352
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
hacebe
Novato
Novato


Registrado: Quarta-Feira, 28 de Janeiro de 2009
Mensagens: 6

MensagemEnviada: Qua Jan 28, 2009 12:53 pm    Assunto: Responder com Citação

ja tentei isso antes e ele me retorna isso
"Method 'LineUP' not supported by automation object"

Obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
rogerbetti
Colaborador
Colaborador


Registrado: Quarta-Feira, 2 de Fevereiro de 2005
Mensagens: 1366
Localização: São Paulo/SP

MensagemEnviada: Qua Jan 28, 2009 1:04 pm    Assunto: Responder com Citação

pode ser versão do word ou instalação (algumas installs em ingles tem comandos diferentes)
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB