我正在尝试使用 VB 宏使用我的 excel (.xlsm) 中的数据自动生成 word 文档 (.docm)。
目前我可以将部分信息从excel复制到word文档中。问题是我找不到将表格信息传递给单词书签的解决方案。
Sub Word()
Dim wdApp As Word.Application
Dim WDDoc As Word.Document
Dim BMRange As Word.Range
Dim cliente As Range
Dim CPE As Range
Dim localidade As Range
Dim numproposta As Range
Dim DIRECT, saveAsName, data As String
Dim table1 As Table
Set wdApp = CreateObject("Word.Application") 'Create an instance of word
Set WDDoc = wdApp.Documents.Open("C:\Users\PT13217294\test.docm") 'Open word file
wdApp.Visible = True
'excel ranges
'Windows(shtname).Activate
Set cliente = Sheets("Dados").Range("C10")
Set CPE = Sheets("Dados").Range("C15")
Set localidade = Sheets("Dados").Range("C13")
Set table1 = Sheets("Cálculos").Range("B5:K17")
'word's bookmark
'cabeçalho
ActiveDocument.Bookmarks("cliente4").Range.Text = cliente
'rodapé
ActiveDocument.Bookmarks("num_proposta4").Range.Text = numproposta
'corpo texto
Set BMRange = WDDoc.Goto(What:=wdGoToBookmark, Name:="cliente1")
BMRange.Text = cliente
Set BMRange = WDDoc.Goto(What:=wdGoToBookmark, Name:="Table")
BMRange.Text = table1
'Guardar word na pasta das propostas
With wdApp.ActiveDocument
saveAsName = "C:\Users\PT13217294\test.docm"
ActiveDocument.SaveAs Filename:=saveAsName
wdApp.Quit
End With
Set BMRange = Nothing
Set WDDoc = Nothing
Set wdApp = Nothing
我应该怎么做才能解决这个问题?提前致谢,
安德烈