Question

我使用非常简单的Excel电子表格编写提案。涉及到几个领域，也许还有一些IF语句 - 即项目所在的州将影响成本......非常基本的东西。

使用此Excel电子表格，我从模板生成Microsoft Word文档，但手动，不断按CTRL + F并手动键入数字。如何自动填充所述Word文档 - 我希望能够完成我在Excel中的提议，然后点击一个按钮，并准备好一个word文档，以便通过电子邮件发送给客户。

能够从excel电子表格在同一位置生成新的word文档会很高兴。

Answer 1

更新Word中的书签;由Excel控制：

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) 

For Each bmk In doc.Bookmarks 
If bmk.Name = "BrokerFirstName" Then bmk.Range.Text = Range("B1").Value 
If bmk.Name = "BrokerLastName" Then bmk.Range.Text = Range("B2").Value 
Next 

objWord.Visible = True 

End Sub

如果您不知道这是如何运作的，请使用Google GoVariable＆＃39;做一点Google搜索。

祝你好运!!

从EXCEL中提取到MICROSOFT WORD

1 个答案: