Writing vba variables from Excel cells directly to Word bookmarks

[Cudd]

My apologies in advance if this is topic has been covered (perhaps multiple times) on this board. I am not quite sure how to phrase the question in succinct search terms.

I have a set of user forms in Excel that prompt for various bits of data, store them in variables, and then writes them to subsequent cells in worksheet.

I am then trying to craft automation code that will write that data to a Word doc. Current I am accomplishing this by selecting a cell, copying, and "paste special" into various bookmarks in Word, but I want to find a more direct approach.

I would like to be able to directly write the value of a variable that I have defined in VBA code from my Excel workbook to a subsequent bookmark in Word. (No cells as a intermediary)

I am trying to avoid using an Excel cell as a go between.

 

[Case_Germany]

Hi,

a simple example. You must still adapt:

• path and file name
• the names of the text marks
• the names of the variables

Sub Test()
    Dim wdApp As Object
    Dim strTMP1 As String
    Dim strTMP2 As String
    Dim strTMP3 As String
    strTMP1 = "Text mark 1"
    strTMP2 = "Text mark 2"
    strTMP3 = "Text mark 3"
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application")
    On Error GoTo 0
    With wdApp
        .Visible = True
        .Documents.Open "C:\Temp\Test.doc" 'adapt
        .ActiveDocument.Bookmarks("Textmark1").Range = strTMP1
        .ActiveDocument.Bookmarks("Textmark2").Range = strTMP2
        .ActiveDocument.Bookmarks("Textmark3").Range = strTMP3
    End With
    Set wdApp = Nothing
End Sub

Case_Germany

 

[Cudd]

Hi,

a simple example. You must still adapt:

• path and file name
• the names of the text marks
• the names of the variables

Sub Test()
    Dim wdApp As Object
    Dim strTMP1 As String
    Dim strTMP2 As String
    Dim strTMP3 As String
    strTMP1 = "Text mark 1"
    strTMP2 = "Text mark 2"
    strTMP3 = "Text mark 3"
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application")
    On Error GoTo 0
    With wdApp
        .Visible = True
        .Documents.Open "C:\Temp\Test.doc" 'adapt
        .ActiveDocument.Bookmarks("Textmark1").Range = strTMP1
        .ActiveDocument.Bookmarks("Textmark2").Range = strTMP2
        .ActiveDocument.Bookmarks("Textmark3").Range = strTMP3
    End With
    Set wdApp = Nothing
End Sub

Case_Germany

Thank you!