Passing a Word variable to Excel in Office 2010

[Strider71]

Hey guys, I'm trying to pass a variable from Word to Excel. Basically I have a Word document with a plain text content control in it. I'll have users populate this field. I know how to create a reference to that content contol in Word VBA that'll tell me what's in that content control
(eg.

MyWordVar = ActiveDocument.ContentControls(1).Range.Text

).
What I can't figure out is how to pass the value of "MyWordVar" to a variable in Excel.
Would anyone have any thoughts on how to do that?
It would be much appreciated!
Thanks.

 

[tybaltlives]

Can you do something like, CELLS(row, column)=MyWordVar

That will paste the word variable into whatever cell you want in the excel spreadsheet.

 

[Strider71]

Can you do something like, CELLS(row, column)=MyWordVar

That will paste the word variable into whatever cell you want in the excel spreadsheet.

Thanks for replying,tybaltlives!

I've tried several combinations of this, but I just can't get it right though. I've even tried to have Excel run the word subroutine, but it doesn't pass the variable over to Excel. For the Word sub I have:

Public MyWordVar
Sub test()    
    
    MyWordVar = ActiveDocument.ContentControls(1).Range.Text
    
End Sub

And the Excel sub:

Public myExcelVar As String
Sub passtest()
    
    
    Dim wordApp As Object
    Set wordApp = CreateObject("Word.Application")
    wordApp.documents.Open Filename:="E:\Wordtest.docm"
    wordApp.Visible = True
    wordApp.Run "!module1.test"

    'I've tried things like these:
    myExcelVar = MyWordVar  'Or ...
    myExcelVar = ActiveDocument.ContentControls(1).Range.Text  'Or...
    Activesheet.Cells(1,1) = MyWordVar
    
End Sub

But it just doesn't pass it through to Excel.

 

[tybaltlives]

Try this link. Importing: WORD to EXCEL

Sorry I didn't grasp your original question. But that link leads to another board where someone else provides code to do what you want. Good luck.

 

[Strider71]

That helps, thanks very much!