Text Spacing in document

macropod · #6 03-13-2012, 05:00 PM

Yes, that looks OK, though you don't need the With .. End With structure given you're only doing one thing with the range:

Code:

Private Sub txtEnclosureAttached_Update()
Dim Rng As Range
Set Rng = ActiveDocument.Bookmarks(bmkEnclosureAttached).Range
Rng.Text = Replace(Enclosures.Text, vbCr, ", ")
Application.ScreenRefresh
ActiveDocument.Bookmarks.Add bmkEnclosureAttached, Rng 
End Sub

You also don't need the 'Application.ScreenRefresh' unless it's important to be able to see the document update.

PS: Please use code tags when posting code - you can find them on the Advanced tab.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Bug in PPT 2007 - Font and line spacing in text boxes	Amateur	PowerPoint	0	09-01-2010 03:34 AM
How do I import text columns with specified spacing between words w/o losing format?	Fucius	Word	0	08-09-2010 06:23 PM
Import Text from File - Line Spacing	marshalx	Word	2	10-28-2009 02:37 AM
Print spacing in Word document	veekay99	Word	16	04-21-2009 01:18 AM
How to link text from one document to another	nospamforyou	Word	0	10-09-2008 09:14 AM