Ir para conteúdo
Fórum Script Brasil
  • 0

Exportar Dados - Excel Word!


Angelo Augusto

Pergunta

Pessoal,

estou exportando dados do excel para o word, e gostaria que na hora que fosse exportar estes dados a variavel fosse em negrito

mas não sei a sintax do codigo ...

vou colocar um pedaço do codigo aqui para vocês me ajudarem a colocar a variavel em negrito !!

Set word = CreateObject("Word.Application")

'Abre o documento

word.Documents.Open "C:\Modelo.doc"

'não mostra o documento para usuario

word.Visible = False

'Seleciona o documento inteiro

word.Documents("Modelo.doc").Select

itemmaiusculo = StrConv(CB_Item.Text, vbUpperCase)

Acho que aqui que teria que ficar mas não sei a sintax para fazer isso

' chama rotina para substituicao

Call Substitui_Var("@item", (itemmaiusculo))

Call Substitui_Var("@especificacao", (RTB_especificacao.Value) & vbCrLf & vbCrLf & vbCrLf)

Call Substitui_Var("", (Label9.Caption) & vbCrLf & vbCrLf & vbCrLf)

Call Substitui_Var("", (Label10.Caption) & vbCrLf & vbCrLf & vbCrLf)

' Salva o documento com um novo nome

word.ActiveDocument.SaveAs ("c:\Memorial descritivo.doc")

'fecha o word

word.Quit

'Libera memoria

Set word = Nothing

Editado por Angelo Augusto
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Cara, eu não sei como te ajudar, mas estou interessado no seu procedimento. Poderia me auxiliar ? Estou tentando criar uma macro para preencher alguns campos no excel e exportar esses campos para pontos específicos dentro de um modelo de documento do word, e pelo que entendi seu código faz algo parecido...

Muito obrigado

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...