如何创建一个excel宏，将特定行的数据放入word文件？

Question

我有一张Excel床单，每月收取宿舍费用，列是姓名，日期，付款月份，金额，状态和一些备注。

我必须向每个付钱的人提供收据。那么，我如何自动完成付费给他们收据的人的任务呢？

让我们说10个我标记为付费的人，然后我需要运行一些宏，它将为每个宏生成收据，最好是在一个Word文件中。例如：{name} has paid {amount} for the month of {month} {year} Signature.jpg

之后我可以打印文件并将其剪切并提供给付费的人。

Answer 1

您可以使用此方法来执行此操作。

Sub PushToWord()

Dim objWord As New Word.Application
Dim doc As Word.Document
Dim bkmk As Word.Bookmark
sWdFileName = Application.GetOpenFilename(, , , , False)
Set doc = objWord.Documents.Open(sWdFileName)
'On Error Resume Next

objWord.ActiveDocument.variables("BrokerFirstName").Value = Range("BrokerFirstName").Value
objWord.ActiveDocument.variables("BrokerLastName").Value = Range("BrokerLastName").Value


objWord.ActiveDocument.Fields.Update

'On Error Resume Next
objWord.Visible = True

End Sub

将两个DocVariables添加到Word，并从Excel运行宏，而不是Word。如果您不知道DocVariable是什么，Google就是......