Ir ao conteúdo
  • Cadastre-se

Douken

Membro Júnior
  • Posts

    11
  • Cadastrado em

  • Última visita

Reputação

0
  1. @RickWM o erro não é exatamente igual.: "Connection to type library or object library for remote process has been lost. Press OK for dialog to remove reference."
  2. Boa tarde. Estou a desenvolver um programa de preenchimento automático de um documento word, a partir do Excel 2007. O código é o seguinte: Dim appWORD As WORD.Application Dim DOC As WORD.Document Set appWORD = CreateObject("WORD.Application") appWORD.Visible = True Set DOC = WORD.Documents.Open("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1.doc") With DOC .Application.Selection.Find.Text = "#nr" .Application.Selection.Find.Execute .Application.Selection.Range = Doc_Number_box If Dir("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo2.doc") <> "" Then Kill "C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo2.doc" End If .SaveAs ("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo2.doc") .Close End With appWORD.Visible = False appWORD.Quit Set DOC = Nothing Set appWORD = Nothing End Sub Dantes conseguia executar esta macro sem problemas. Mas, recentemente, recebo o seguinte erro: Run time error '-2147417848 (80010108)' Automation error. Connection to type library or object library for remote process has been lost. Press OK for dialog to remove reference. Alguém me consegue ajudar? Obrigado
  3. Está muito porreiro. Mas eu pretendo algo mais complexo. Quero uma pesquisa que encontre todas as células com uma determinada palavra, mesmo que o texto inserido na caixa de pesquisa não seja exatamente igual ao da célula a procurar. Por exemplo: "Casa Forte", "Casa Fraca", "Casa Pequena". Se procurar pelo termo "casa", deverão aparecer os três resultados. Cumprimentos.
  4. Boa noite. Tenho um documento Excel com duas planilhas: uma com uma lista de contactos com os campos "nome", "telefone", "fax" e email; outra em branco onde pretendo inserir uma macro de pesquisa. É relativamente à macro de pesquisa que preciso da vossa ajuda: pretendo um código que apresente na planilha de pesquisa todos as linhas da lista de contactos com um determinado nome, de preferência sem a necessidade de formulário (utilizador escreve o termo a procurar numa célula do excel, carrega no botão da macro "pesquisar", e são exibidos todos os resultados com aquele termo). Agradeço, desde já, todo o tempo dispensado. Cumprimentos.
  5. @Gabriel.Rizzatto Antes de mais, obrigado pela ajuda... Continua a dar-me o mesmo problema. Se eu substituir o código integralmente, dá-me o run-time error "9" na linha Set cs = ActiveWorkbook.Worksheets("Data")... De certeza que este código é para aquilo que pretendo? Vou explicar melhor: Eu criei uma macro que me abre um documento Word, já preenchido. Se eu clicar no botão da macro uma segunda vez sem fechar o documento aberto, o Word pergunta-me se pretendo abrir uma cópia de leitura, uma vez que o documento original já se encontra aberto. Se eu não selecionar nenhuma opção e fechar essa janela no "x", o meu programa dá erro. Assim, eu pretendo um código que feche automaticamente o primeiro documento aberto após execuções consecutivas da mesma macro, para que este conflito não ocorra. Cumprimentos e obrigado!
  6. Só mais uma questão: Se eu executar a macro de abertura de documento word duas vezes seguidas sem fechar o primeiro documento word aberto, o Word pergunta-me se pretendo abrir um ficheiro apenas de leitura. Se eu não selecionar nenhuma opção e fechar essa janela, o programa do excel dá-me um erro, pois não programei essa possibilidade. Será que me consegue indicar um código que feche automaticamente o documento word aberto, sempre que a macro é executada segunda vez com o primeiro documento ainda aberto? Cumprimentos
  7. Bom dia. Quando coloco o seguinte código no excel VBA, para abrir um documento Word, Dim appWORD As WORD.Application Dim DOC As WORD.Document Set appWORD = New WORD.Application appWORD.Visible = True Set DOC = WORD.Documents.Open("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1.doc") obtenho o erro “aguardando que outro aplicativo conclua a ação OLE". Alguém sabe como posso solucionar isto? O Excel que estou a usar é o 2007. Antes de mais, muito obrigado pela ajuda.
  8. @Edson Luiz Branco , valeu! Resultou! Agora tenho outro problema. Quando executo a macro, documento é editado, salvado e fechado automaticamente. No final do processo, o word fica aberto, mas o documento em questão é encerrado. O problema é que se eu fechar completamente o word e voltar a executar a mesma macro dá-me o "Run-time error `462´", com o debuger a identificar um erro na seguinte linha: Set DOC = WORD.Documents.Open("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1.doc") Muito obrigado pela ajuda! Cumprimentos
  9. Bom dia. Estou a desenvolver um pequeno programa em excel, que me permite preencher documentos word a partir do preenchimento de um formulário em excel. O código do botão que permite essa funcionalidade é o seguinte: Private Sub exportdoc_Click() Dim WORD As WORD.Application Dim DOC As WORD.Document Set WORD = CreateObject(WORD.Application) WORD.Visible = True Set DOC = WORD.Documents.Open("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1.doc") With DOC .Application.Selection.Find.Text = "#nr" .Application.Selection.Find.Execute .Application.Selection.Range = Doc_Number_box If Dir("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1.doc") Then Kill "C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1.doc" End If .SaveAs ("C:\Users\miguel.martins\Desktop\PJM\PJM\Novos Modelos\Meus\Correspondência\Geral - Modelos\010 Ofício - Modelo1.doc") ´.Close End With ´WORD.Quit Set DOC = Nothing Set WORD = Nothing End Sub Contudo, ao correr a macro, obtenho o seguinte erro na linha de código a amarelo: Object variable or With block variable not set (Error 91) Alguém me consegue explicar porquê, e como poderei ultrapassar este problema? Cumprimentos e obrigado

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...