Hello All,

I am looking at transferring Data from a SW Drawing to Microsoft Word. I have the right connection (Document opens properly):

Dim wordApp As Word.Application
Dim wordDoc As Word.Document
    Set wordApp = New Word.Application
    With wordApp
        .Visible = True
        Set wordDoc = .Documents.Open("C:\Documents and Settings\Product review\New Product verification.doc", , False)

My Problem is trying to send Data such as Dimensions and Weight Properties to PreSet Tables that are stored within the Template.

I thought about locating text such as this:

With Selection.Find
    .Forward = True
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Wrap = wdFindContinue
    .Execute FindText:="Dimension Name (-1)"

But I keep getting errors with the "With Selection.Find"

Anyone have any suggestions or experience with linking SW and Microsoft Word?

Any help would be greatly appreciated.

Thanks

Randy