Insert quick part when cell contains a value

		Microsoft Office Forums > Microsoft Word > Word VBA
Insert quick part when cell contains a value

FAQ

Thread Tools

Display Modes

09-30-2014, 11:45 AM

gmaxey

Windows 7 32bit Insert quick part when cell contains a value

Office 2010 (Version 14.0)

Expert

Join Date: May 2010

Location: Brasstown, NC

Posts: 1,617

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:

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

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replace text with Quick Part using VBA	dmarie123	Word VBA	10	09-18-2014 01:03 AM
Custom Header Gallery Quick Part Displays > in 2007 but not 2010	sleake	Word	4	10-23-2013 07:10 AM
How to Rename a Quick Part	sleake	Word	14	10-14-2013 09:21 AM
Copying part of a cell to a new cell	paulw793	Excel	7	01-27-2012 10:46 AM
Date display in Mod quick part header	Jrul John	Word	1	08-02-2010 12:17 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 11:05 PM.