Hi guys
I have a question about if it is possible to transfer selectively data to an existing word document with VBA?
I searched the internet but didn't find any information.
I hope you can help me with this
thank you very much
Johan
Hi guys
I have a question about if it is possible to transfer selectively data to an existing word document with VBA?
I searched the internet but didn't find any information.
I hope you can help me with this
thank you very much
Johan
Option Explicit Sub test() Dim wd As Object Dim doc As Object Const myDoc = "D:\***\****\test.docx" Set wd = CreateObject("Word.application") wd.Visible = True Set doc = wd.Documents.Open(myDoc) doc.Range(0, 0).Text = Range("a1").Value End Sub
Hi Mana
Thank you very much for your help, i think i didn't explain well sorry for that.
I have a word document and some lines in this document, i want to fill them up with data from Excel with VBA
Thanks
Johan
>i want to fill them up with data from Excel
I can't undestand.
Would you provide a concrete example?
Yes, i have a word document with placeholders and i want this placeholders to fill them up with excel data.
I want a button in excel where i can select this word file and then VBA fill the placeholders in Word with data form Excel
I hope this is possible
johan
you can use word Bookmark.
A1:data
B1:bookmark name
Option Explicit Sub test() Dim wd As Object Dim doc As Object Dim r As Object Const myDoc = "D:\***\****\test.docx" Set wd = CreateObject("Word.application") wd.Visible = True Set doc = wd.Documents.Open(myDoc) Set r = doc.Bookmarks(Range("b1").Value).Range r.Text = Range("a1").Value doc.Bookmarks.Add Range("b1").Value, r End Sub
Hi Mana
I have this code to select a certain placeholder <<...>> and select a cell in excel and paste it in word where <<>> is
but i get this error :run time error 242 object required
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
Option Explicit Sub test() Dim wApp As Word.Application Dim myFile Dim wDoc As Word.Document myFile = Application.GetOpenFilename("Word Files (*.doc*), *.doc*") If VarType(myFile) = vbBoolean Then Exit Sub If Not myFile Like "*.doc*" Then Exit Sub Set wApp = New Word.Application wApp.Visible = True Set wDoc = wApp.Documents.Open(myFile) With wDoc.Application.Selection .Find.Text = "<<Invoerveld>>" If .Find.Execute Then .Text = Range("A7") .EndOf wdWord, wdMove End If If .Find.Execute Then .Text = Range("A8") End If End With End Sub