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

向Word添加两个DocVariable，并从Excel运行宏，而不是Word。如果您不知道DocVariable是什么，谷歌就是......

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

1 个答案: