ola bom dia, sou nova com o VBA e estou a tentar automatizar uma tarefa que faço regularmente. o meu objectivo é:
'1) Abrir o documento Word;
'2) procurar os marcadores no word;
'3) inserir o valor da celula do excel com o mesmo nome do marcador do Word.
'--------------------------------------------------------------------------
'Sub WordBookmarks()
'Dim strDoc As String
'Dim wdApp As Word.Application
'Dim wdDoc As Word.Document
'Dim xlRange As Excel.Range
'strDoc = Range("C:\Users\jc\Desktop\Criar_Template\Template.docx").Value
'Set wdApp = New Word.Application
'With wdApp
'.Visible = True
'.WindowState = wdWindowStateMaximize
'End With
'With wdApp
'.Documents.Open (strDoc)
'For Each n In ActiveDocument.Bookmarks
'.Bookmarks.Item(titulo).Range.InsertAfter Application.Range(titulo)
'Next
'End With
'End Sub
acontece que o codigo não encontra o ficheiro Template doc! não entendo porquê. Pode ajudar?
Pergunta
joanna.cross
ola bom dia, sou nova com o VBA e estou a tentar automatizar uma tarefa que faço regularmente. o meu objectivo é:
'1) Abrir o documento Word;
'2) procurar os marcadores no word;
'3) inserir o valor da celula do excel com o mesmo nome do marcador do Word.
'--------------------------------------------------------------------------
'Sub WordBookmarks()
'Dim strDoc As String
'Dim wdApp As Word.Application
'Dim wdDoc As Word.Document
'Dim xlRange As Excel.Range
'strDoc = Range("C:\Users\jc\Desktop\Criar_Template\Template.docx").Value
'Set wdApp = New Word.Application
'With wdApp
'.Visible = True
'.WindowState = wdWindowStateMaximize
'End With
'With wdApp
'.Documents.Open (strDoc)
'For Each n In ActiveDocument.Bookmarks
'.Bookmarks.Item(titulo).Range.InsertAfter Application.Range(titulo)
'Next
'End With
'End Sub
acontece que o codigo não encontra o ficheiro Template doc! não entendo porquê. Pode ajudar?
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
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.