The code below covers the basic requirement.
Set a reference to the Word 11.0 object library (Tools, References)
Sub Export_Data_To_Word_Form()
'set a reference to the Word 11.0 object library (Tools, References)
Dim appWord As Word.Application
Dim doc As Word.Document
Dim strWordDoc As String
strWordDoc = ThisWorkbook.Path & "\Report 01.doc"
Set appWord = New Word.Application
appWord.Visible = True
Set doc = appWord.Documents.Open(strWordDoc)
doc.FormFields("Field1").Result = ActiveSheet.Range("A2")
doc.FormFields("Field2").Result = ActiveSheet.Range("B2")
doc.Close True
Set doc = Nothing
appWord.Quit
Set appWord = Nothing
End Sub
For document selection, look at the GetOpenFilename Method and the FileDialog object, both in VB help with examples.
Bookmarks