Jump to content
Fórum Script Brasil

Gabriel_02

Membros
  • Content Count

    1
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Gabriel_02

  1. Olá povo inteligente! preciso de ajuda Estou desenvolvendo uma planilha do Excel muito automática para um condomínio e estou na parte de fazer os recibos dos pagamentos. Nessa parte (o que eu pensei) ela deve fazer uma copia de um recibo "modelo" na área de trabalho do síndico e depois preencher as informações dos valores da planilha, no texto base e salvar. Com a ajuda da internet desenvolvi esse código utilizando indicadores no word nos pontos de inserção dos valores! Contudo, estou encontrando dificuldade pois cada vez que eu vou executar aparece o erro 424 (O objeto é obrigatório) apontando a linha em negrito! já tentei varias versões mas estou sem ideias de como consertar este problema! __________________________________________________________________________________________________________________________________________________________________________________________________ Sub recibo() 'Determinar nome do desktop' Dim caminho_recibo As String caminho_recibo = VBA.Environ("USERPROFILE") 'Copiar modelo em novo documento (para preservar o outro e ser usado novamente)' VBA.FileCopy caminho_recibo & "\Documents\Modelos Personalizados do Office\Recibos.docx", _ caminho_recibo & "\DESKTOP\Recibos Janeiro.docx" 'Abrir o novo documento' Dim Word As Object Set Word = CreateObject("Word.Application") Word.Documents.Open caminho_recibo & "\DESKTOP\Recibos Janeiro.docx" Word.Visible = True 'Declarações de objetos' Dim sindico As String Dim proprietário As String Dim cpf As String Dim valor As String Dim valorext As String Dim mes_ano As String Dim dia_mes_ano As String 'Declaração de valor do objeto' sindico = ThisWorkbook.Sheets(1).Range("H5").Value proprietário = ThisWorkbook.Sheets(1).Range("D6").Value cpf = ThisWorkbook.Sheets(1).Range("E6").Value valor = ThisWorkbook.Sheets(1).Range("G26").Value valorext = ThisWorkbook.Sheets(1).Range("H26").Value mes_ano = ThisWorkbook.Sheets(1).Range("F23").Value dia_mes_ano = ThisWorkbook.Sheets(1).Range("F24").Value 'Mandar valores para word' Copy2word "SindicoField", sindico Copy2word "PropField", proprietário Copy2word "CpfField", cpf Copy2word "ValorFiel", valor Copy2word "ValorExtField", valorext Copy2word "Mês_e_anoField", mes_ano Copy2word "dia_mês_e_anoField", dia_mes_ano doc.Close wd.Quit End Sub Sub Copy2word(BookMarkName As String, Text2Type As String) 'Determinar função copy2word' wd.Selection.GoTo What:=wdGoToBookmark, Name:=BookMarkName wd.Selection.TypeText Text2TypeSub End Sub __________________________________________________________________________________________________________________________________________________________________________________________________ *A biblioteca do word está conectada *E também se alguém conhecer uma maneira melhor de transmitir dados que estão no excel para word, sou todo ouvidos (os dados não estão na mesma lista, tabela e alguns não estão nem na mesma planilha e no word é um formato de texto com os valores no meio) Desde já, Muito Obrigado!!!
×
×
  • Create New...