vba: Textbox value to a MS word text

[Xlacs]

Hello Everyone!

I have this simple problem and I'm wondering if there is a way to get a textbox value to a Ms word template.
For example my textbox contains the current date and I wanted to get that value to my ms word.

I wanted to replace my MS word #Date# to the textbox value and so on..

I have provided a screenshot and code.

Hoping someone can help me solve this one. Thank you!

FilePath = "D:\" & Me.ComboBox1 & "_" & Me.TextBox4 & ".pdf"
On Error Resume Next
Kill FilePath
DocFile = "D:\PHOTO\Sample.docx" 'Template File
Dim WordApp As Word.Application
Dim WordDoc As Word.Document



Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open(DocFile, False)
Word.Application.Visible = True

With WordDoc.Content.Find
    .Text = "#" & Me("Label").Caption & "#"
    .Replacement.Text = Me("Textbox").Value
    .Execute Replace:=wdReplaceAll
End With


WordDoc.ExportAsFixedFormat OutputFileName:=FilePath, ExportFormat:=wdExportFormatPDF
WordDoc.Close saveChanges:=False
WordApp.Quit
Set WordApp = Nothing
Set WordDoc = Nothing

MsgBox "Success!"

 

[kokano90]

With WordDoc.Content.Find .Text = "#" & Me("Label").Caption & "#" .Replacement.Text = Me("Textbox").Value .Execute Replace:=wdReplaceAll End With

With WordDoc.Content.Find
    .Text = "#" & left(Me("Label").Caption,len(Me("Label").Caption)-1) & "#"
    .Replacement.Text = Me("Textbox").Value
    .Execute Replace:=wdReplaceAll
End With

 

[Xlacs]

With WordDoc.Content.Find .Text = "#" & left(Me("Label").Caption,len(Me("Label").Caption)-1) & "#" .Replacement.Text = Me("Textbox").Value .Execute Replace:=wdReplaceAll End With

Thank you.

But it seems nothing has changed.

 

[smozgur]

@Xlacs - please do not mark a post as a solution if it doesn't contain an answer or a method that solves the problem in order to help future readers.

Regarding your question. I would stay away from Replace&Find in such cases, instead, I would select the #Date# section on the Word document and create a bookmark with a certain name, then access its range to set the text property easily.

Select a range and add a Bookmark in Word

1. Select #Date# range on the Word document.
2. Click Insert tab on Ribbon and click Bookmark.
3. Enter the bookmark name, "datefield" (or whatever you like).
4. Click Add, then the Bookmark dialog is closed.

Now you have a named range in the Word document that you can use instead of struggling with Find&Replace.

Replace the folllowing code section in the original code in Excel:

With WordDoc.Content.Find
    .Text = "#" & Me("Label").Caption & "#"
    .Replacement.Text = Me("Textbox").Value
    .Execute Replace:=wdReplaceAll
End With

With the following line:

WordDoc.Bookmarks("datefield").Range.Text = Me("Textbox").Value

And test it to see if it will work as you need.

 

[Xlacs]

Thank you! Much easier method.. =)

 

[Xlacs]

@Xlacs - please do not mark a post as a solution if it doesn't contain an answer or a method that solves the problem in order to help future readers.

Regarding your question. I would stay away from Replace&Find in such cases, instead, I would select the #Date# section on the Word document and create a bookmark with a certain name, then access its range to set the text property easily.

View attachment 58093

Select a range and add a Bookmark in Word

1. Select #Date# range on the Word document.
2. Click Insert tab on Ribbon and click Bookmark.
3. Enter the bookmark name, "datefield" (or whatever you like).
4. Click Add, then the Bookmark dialog is closed.

Now you have a named range in the Word document that you can use instead of struggling with Find&Replace.

Replace the folllowing code section in the original code in Excel:

With WordDoc.Content.Find
    .Text = "#" & Me("Label").Caption & "#"
    .Replacement.Text = Me("Textbox").Value
    .Execute Replace:=wdReplaceAll
End With

With the following line:

WordDoc.Bookmarks("datefield").Range.Text = Me("Textbox").Value

And test it to see if it will work as you need.

Hi, just wondering, I do have a listbox in userform.

When I used the above codes, only the first text of first column is showing. Any idea why?