Douken
Membro Júnior-
Posts
11 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
Tudo que Douken postou
-
@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."
-
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
-
Obrigado! Valeu! Cumprimentos!
-
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.
-
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.
-
EXCEL VBA - Comando para abrir documento do word.
Douken respondeu ao tópico de Douken em Microsoft Office e similares
@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! -
EXCEL VBA - Comando para abrir documento do word.
Douken respondeu ao tópico de Douken em Microsoft Office e similares
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 -
EXCEL VBA - Comando para abrir documento do word.
Douken respondeu ao tópico de Douken em Microsoft Office e similares
Ups! Sem comentários! Valeu! Cumprimentos! -
EXCEL VBA - Comando para abrir documento do word.
Douken postou um tópico em Microsoft Office e similares
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. -
excel vba - preenchimento de documentos word
Douken respondeu ao tópico de Douken em Microsoft Office e similares
@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 -
excel vba - preenchimento de documentos word
Douken postou um tópico em Microsoft Office e similares
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