IMAGEM NO VABEÇALHO DO WORD. VB.NET/ VBA
Olá pessoal
Seguinte, tenho um documento feito no word que dependendo do cliente preciso mudar o Logo no Cabeçaho do Word via Programação no VB.Net.
No corpo do word mudo qualquer coisa usando Mesclagens da parte de correspodencia. Só que o cabeçalho não consigo alterar.
Criei uma macro para ver os códigos mas não funcionou no VB.Net. Como faço? O vb.net não reconhece abaixo, um espaço antes do FIleName e tb não reconhece o wdSeekCurrentPageHeader
Tb não vou saber redimencionar o Logo.
Meu objeto é: [txt-color=#0000f0]Word = CreateObject("Word.Application")[/txt-color]
word.ActiveWindow.ActivePane.View.SeekView = word.wdSeekCurrentPageHeader
word.Selection.InlineShapes.AddPicture FileName:= _
"C:\PTAM-Cjsystem\Imagens\Logotipos\LogoOper.png", LinkToFile:=False, _
SaveWithDocument:=True
Grato qe alguém puder ajudar
Seguinte, tenho um documento feito no word que dependendo do cliente preciso mudar o Logo no Cabeçaho do Word via Programação no VB.Net.
No corpo do word mudo qualquer coisa usando Mesclagens da parte de correspodencia. Só que o cabeçalho não consigo alterar.
Criei uma macro para ver os códigos mas não funcionou no VB.Net. Como faço? O vb.net não reconhece abaixo, um espaço antes do FIleName e tb não reconhece o wdSeekCurrentPageHeader
Tb não vou saber redimencionar o Logo.
Meu objeto é: [txt-color=#0000f0]Word = CreateObject("Word.Application")[/txt-color]
word.ActiveWindow.ActivePane.View.SeekView = word.wdSeekCurrentPageHeader
word.Selection.InlineShapes.AddPicture FileName:= _
"C:\PTAM-Cjsystem\Imagens\Logotipos\LogoOper.png", LinkToFile:=False, _
SaveWithDocument:=True
Grato qe alguém puder ajudar
ve se te ajuda:
Dim objDoc As Word.Document
Dim OBJWORD As New Word.Application
objDoc = OBJWORD.Documents.Add("Arquivo.doc", newTemplate, docType, isVisible)
objDoc.Content.Application.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageHeader
"Para ir ao documento principal
objDoc.Content.Application.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekMainDocument
Dim objDoc As Word.Document
Dim OBJWORD As New Word.Application
objDoc = OBJWORD.Documents.Add("Arquivo.doc", newTemplate, docType, isVisible)
objDoc.Content.Application.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageHeader
"Para ir ao documento principal
objDoc.Content.Application.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekMainDocument
Me.Application.Selection.InlineShapes.AddPicture("C:\SamplePicture.jpg")
Ou voce pode criar uma tabela e inserir a imagem dentro da tabela:
objDoc.Tables.Item(1).Cell((1), (1)).Range.InlineShapes.AddPicture(CAMINHO)
objDoc.Tables.Item(1).Cell((1), (1)).Range.InlineShapes.AddPicture(CAMINHO)
Tópico encerrado , respostas não são mais permitidas