estou usando o seguinte código para exportar pra Word
Minha dúvida é como faço para exportar e salvar como um nome que o usuário vai especificar em um TextBox?
E também como inserir uma figura em JPG?
'General declarations
Dim objWord As Word.Application
Private sel As Word.Selection
Private Sub cmdExportar_Click()
Dim objdoc As Word.Document
Set objWord = New Word.Application
objWord.Visible = True
'Cria novo documento
Set objdoc = objWord.Documents.Add
' faz ele um documento ativo
objdoc.Activate
'adiciona um texto no documento
objdoc.ActiveWindow.Selection.InsertAfter "PROPOSTA DE VENDA"
objdoc.ActiveWindow.Selection.InsertParagraphAfter
objdoc.ActiveWindow.Selection.InsertAfter "GRAFMOL"
objdoc.ActiveWindow.Selection.InsertParagraphAfter
'FORMATA O TEXTO SELECIONADO EM NEGRITO
objdoc.ActiveWindow.Selection.Font.Bold = True
'Desfaz a seleção do texto
'objdoc.activewindowSelection.EndOf
'fecha o word e salva
objdoc.SaveAs "C:PJ System 2.0Exportar
