Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Gabriel_02

Problemas c/ wordbookmark pelo excel

Question

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!!!

 

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148558
    • Total Posts
      644318
×
×
  • Create New...