Insert quick part when cell contains a value

[winstond]

Hello,



I'm creating a userform using Word, and have created a text box for a customer's personal address. If a value is inserted in this text box, I would like to add "Personal Address:" on to the word document and include the value after this, and then a return line. If the text box is left blank, there is no need to insert anything.

Would a Quick Part be the best way to do this and if so, could someone point me in the right direction of implementing this?

I appreciate your help!
Winston

[gmaxey]

You will have to have a range target to insert the address in. Assuming you have a bookmark "bmPerAddr" then something like this in the userform execute command button code:

Dim oRng As Word.Range
  If txtPerAddr.Text <> vbNullString Then
    Set oRng = ActiveDocument.Bookmarks("bmPerAddr").Range
    oRng.Text = "Personal Address: " & vbCr & txtPerAddr.Text & vbCr
    ActiveDocument.Bookmarks.Add "bmPerAddr", oRng