Inserir imagem/logo/caixa de texto no cabeçalho do word.

Bom dia Amigos do Fórum!

gostaria da ajuda de vocês para realizar a inserção, no cabeçalho de um documento do Word, de imagens, logos caixa de texto.
essa imagens seriam selecionadas no dispositivo do usuário.

como localizar as imagens eu já encontrei aqui no fórum como fazer, pesquisando em qualquer pasta do computador.
porem não consegui implementar a exportação da imagem selecionada para o cabeçalho do documento Word.

a ideia é permitir que o usuário personalize seu documento conforme sua necessidade, através de um formulário do aplicativo.

eu já implementei a exportação do corpo do texto do documento utilizando indicadores, porem no cabeçalho não consigo fazer.

gostaria de inserir a caixa de texto que será preenchida com o texto digitado no formulário pelo usuário e inserir a logo que será buscada pelo usuário, via formulário.




Ficaria muito agradecido se pudessem me orientar se é possível fazer isso e como fazer.

Gerson.

Bom dia!

então, ninguém sabe, não é possível ou não houve interesse dos colegas do fórum?

Bom dia,

geremias escreveu:então, ninguém sabe, não é possível ou não houve interesse dos colegas do fórum?

Apenas o "não é possível" está errado. Todas as outras alternativas podem estarem corretas.

Acrescento mais uma: estamos em um Fórum sobre Access, os colegas desta casa sabem se dedicam mais ao Access.

Seu tópico estava na sala errada: Microsoft Access (Duvidas)Módulos e VBA, perceba que a sala se refere a Access.

Alterei para a sala Assuntos variados por não ser sobre Access.

Espero que alguém possa lhe ajudar por aqui. No entanto em um fórum que trate de Word, talvez obtenha mais fácil sua
resposta.

E talvez o que queira possa ser obtido pelo Access, daí sim terá muitos aqui com expertise no assunto para lhe ajudar.

Boa sorte

Olá Geremias,
Qual a necessidade de gerar o documento no Word, pois é possível criar este documento no próprio Access.
Já tinha pensado nesta possibilidade?

Att,
FIM

Olá Alexandre! então o principal motivo é que já tenho o documento Word onde encontram-se diversas informações (textos fixos) e outros vindos de diversas tabelas e formulários do Aplicativo em Access para o documento através de Indicadores. E pq para fazer do zero pelo relatório do access seria muito trabalhoso, ajustar parágrafos, espaçamento, etc.

mas agradeço o interesse.

Gerson.

Ola Marcelo!

Apenas o "não é possível" está errado. Todas as outras alternativas podem estarem corretas.
Acrescento mais uma: estamos em um Fórum sobre Access, os colegas desta casa sabem se dedicam mais ao Access.
Seu tópico estava na sala errada: Microsoft Access (Duvidas)Módulos e VBA, perceba que a sala se refere a Access.
Alterei para a sala Assuntos variados por não ser sobre Access.

agradeço o contato apesar de não concordar de que não se trata de duvida sobre access já que meu aplicativo foi todo desenvolvido no access e a duvida seria de como fazer uma integração com o documento do word via VBA do access, para o documento de saída.

mesmo assim agradeço pelo interesse.

Gerson.

Vamos lá.
vou tentar me explicar melhor

Basicamente eu uso esse código para carregar as informações para o Documento do Word chamado “Contrato.doc” onde estão os bookmarks que receberam as informações do aplicativo.

Código:

Dim DocWord As Object
Set DocWord = CreateObject("Word.Application")
With DocWord
.Visible = False
.Documents.Add Template:=CurrentProject.path & "\Contrato.doc", NewTemplate:=False, DocumentType:=0

.ActiveDocument.Bookmarks("Texto1").Select: .Selection.Text = Me!txtNomeLocador
.ActiveDocument.Bookmarks("Texto2").Select: .Selection.Text = Me!txtCPFLocador
.ActiveDocument.Bookmarks("Texto3").Select: .Selection.Text = Me!txtRGLocador
.ActiveDocument.Bookmarks("Texto4").Select: .Selection.Text = Me!txtLocatario
.ActiveDocument.Bookmarks("Texto5").Select: .Selection.Text = Me!txtCPFLocatario
.
.
.
.
.
.
.
.ActiveDocument.SaveAs CurrentProject.path & "\" & Format(Me.IdCons, "000000") & ".doc"
.ActiveDocument.Close
End With
DocWord.Quit
Set DocWord = Nothing
    
Dim nArquivo As String
nArquivo = CurrentProject.path & "\" & Format(Me.IdCons, "000000") & ".doc"
Call ShellExecute(0, vbNullString, nArquivo, vbNullString, vbNullString, 1)


Até aí ok, funcionando sem problemas.
A ideia seria poder dar a facilidade de o usuário poder personalizar o documento inserindo, pelo access, informações no cabeçalho e/ou rodapé do documento.
Eu teria um form onde o usuário selecionaria a Imagem ou logo criado por ele e colocaria no cabeçalho do documento. A parte de como localizar o caminho da imagem eu achei aqui no fórum um exemplo que atendeu muito bem para fazer isso.
Entretanto a dificuldade está em implementar o código VBA para inserir essa imagem no local correto dentro do cabeçalho do documento.
Para que fique como na imagem de exemplo Genérico) que anexei:

Do lado esquerdo a logomarca da empresa/escritório/pessoa, no centro uma caixa de texto ou bookmark para receber o texto personalizado do documento (IMOBILIÁRIA DO PASCOAL – SEU IMÓVEL ESTÁ AQUI) ou logotexto personalizado e a direita segunda logomarca ou ainda numeração de páginas.
Algo assim.

A dificuldade que encontro aqui é exatamente como indicar via VBA que o conteúdo a ser inserido deve ser no Cabeçalho do documento.
como disse inserir informações e imagens no corpo do texto já esta implementado via código.
já vi, em sites específicos de word como criar uma macro, pelo próprio word, mas não consegui fazer funcionar pelo VBA do Access.
vejam:

Código:

Sub TEXT()
'
' TEXT Macro
'

    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
     Selection.Font.Name = "Shonar Bangla"
    Selection.Font.Size = 17
    Selection.Font.Bold = False
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
    Selection.TypeText TEXT:="Alessandro Paes Leme - WORD"
    Selection.TypeParagraph
    
    Selection.Font.Name = "Times new roman"
    Selection.Font.Size = 9
    Selection.Font.Bold = False
    Selection.Font.Italic = True
    Selection.TypeText TEXT:="e-mail:teste.alessandro@gmail.com"
    Selection.TypeParagraph
    Selection.TypeText TEXT:="https://www.youtube.com/user/alessandropaesleme"
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Borders(wdBorderTop).Visible = True
    'Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Font.Italic = False
    
    Selection.HeaderFooter.Shapes.AddTextbox(msoTextOrientationHorizontal, 80, 30, 60, 60).Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.Collapse
    Selection.InlineShapes.AddPicture FileName:="D:\VBA\image\luz.jpg"
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.Select
    Selection.ShapeRange.IncrementLeft -5
    Selection.ShapeRange.IncrementTop 1.75
    Selection.EndKey unit:=wdStory
    
  
End Sub

espero que tenha conseguido explicar melhor o que preciso.

agradeço a ajudo dos colegas do fórum.

Gerson.