View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jim Cone[_2_] Jim Cone[_2_] is offline
external usenet poster
 
Posts: 1,549
Default Excel value onto word userform

I am not the person to ask and this is not the newsgroup for Word programming help.
However, maybe I won't do any damage...

A textbox (Word or Excel) does not have a "Result" property.
Also, you need to specify the Application | Document | Userform | Textbox that
gets the cell value. So it should look something like...

MyDoc.UserForm1.txtAdd1.Value = ThisWorkbook.ActiveSheet.Range("C8").Value
--
Jim Cone
Portland, Oregon USA



"Al@n"
wrote in message
Hi
I'm trying to import an excel cell value into a textbox on a word userform.
I've managed(with the help of code found in the forums to open a document
based on a word template and get the word userform to display but
cannot get the cell value to populate the textbox on the word userform.
Example code below(Office 2003)

Private Sub cmdQuote_Click()
Dim WD As Object
Dim MyDoc As Object

Set WD = CreateObject("Word.Application")
With WD
Set MyDoc = .Documents.Add(Template:= _
"C:\Documents and Settings\Owner\Desktop\Gas Quotation.dot", _
NewTemplate:=False, DocumentType:=0)
MyDoc.Activate
MyDoc.UserForm("txtAdd1").Result = ActiveSheet.Range("C8").Value
'**********
..Visible = True
End With
End Sub

TIA
--
Al@n