Hi guys
I have a question about if it is possible to transfer selectively data to an existing word document?
but i get error 424 object required
I have the following code:
Private Sub CommandButton1_Click()
Dim wApp As Word.Application
Dim wDoc As Word.Document
Set wApp = CreateObject("Word.Application")
wApp.Visible = True
Set wDoc = Application.GetOpenFilename("Word Files (*.doc*), *.doc*")
With wDoc
.Application.Selection.Find.Text = "<<Invoerveld>>"
.Application.Selection.Find.Execute
Application.Selection = Range("A7")
.Application.Selection.EndOf
.Application.Selection.Find.Text = "<<Invoerveld>>"
.Application.Selection.Find.Execute
Application.Selection = Range("A8")
End With
End Sub
I have a question about if it is possible to transfer selectively data to an existing word document?
but i get error 424 object required
I have the following code:
Private Sub CommandButton1_Click()
Dim wApp As Word.Application
Dim wDoc As Word.Document
Set wApp = CreateObject("Word.Application")
wApp.Visible = True
Set wDoc = Application.GetOpenFilename("Word Files (*.doc*), *.doc*")
With wDoc
.Application.Selection.Find.Text = "<<Invoerveld>>"
.Application.Selection.Find.Execute
Application.Selection = Range("A7")
.Application.Selection.EndOf
.Application.Selection.Find.Text = "<<Invoerveld>>"
.Application.Selection.Find.Execute
Application.Selection = Range("A8")
End With
End Sub