Text Spacing in document

gurp99 · #1 03-12-2012, 02:21 PM

hello,

I am trying have text that comes from a macro field automatically aligned in the document.
After the text is added to the document, the second line of the text starts on a new line, I need the second line indented like the first line.

How can I do this?

See attachment.
thanks

macropod · #2 03-13-2012, 03:37 PM

Your code that inserts the content of the 'enclosures' box needs to use something like:
.Text = Replace(Enclosures.Text, vbcr, ", ")

gurp99 · #3 03-13-2012, 03:44 PM

Does this look coorect?

Code:

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

macropod · #4 03-13-2012, 03:57 PM

No. Instead of (""bmkEnclosureAttached"") you should have (bmkEnclosureAttached). I'd also question why you're using a Change event instead of the Update event. The change event is really only useful if you want edits on the userform to be reflected in the document as they're being typed, rather than once the typing's been completed and you exit the textbox.

gurp99 · #5 03-13-2012, 04:03 PM

I am still learning the VB language. I am more of a designer than programmer... How does this look:

Code:

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

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.

gurp99 · #7 03-13-2012, 05:21 PM

Everytime I try to edit the EnclosureAttached field, it comes up blank.. what am I doing wrong here:

see attached

macropod · #8 03-13-2012, 05:25 PM

Sorry, you need to use:
Rng.Text = Replace(txtEnclosureAttached.Text, vbCr, ", ")

gurp99 · #9 03-14-2012, 09:12 AM

This is the code I have. I have a Update and a Change event. Should I remove the change event?
and what does vbCr, ", " mean?

Code:

Private Sub txtEnclosureAttached_Update()
Dim Rng As Range
Set Rng = ActiveDocument.Bookmarks(bmkEnclosureAttached).Range
    Rng.Text = Replace(txtEnclosureAttached.Text, vbCr, ", ")

Application.ScreenRefresh
ActiveDocument.Bookmarks.Add "bmkEnclosureAttached", Rng
End Sub



Private Sub txtEnclosureAttached_Change()
Dim Rng As Range
Set Rng = ActiveDocument.Bookmarks("bmkEnclosureAttached").Range
    Rng.Text = Replace(txtEnclosureAttached.Text, vbCr, ", ")

Application.ScreenRefresh
ActiveDocument.Bookmarks.Add "bmkEnclosureAttached", Rng
End Sub

macropod · #10 03-14-2012, 02:35 PM

Quote:

Originally Posted by gurp99

This is the code I have. I have a Update and a Change event. Should I remove the change event?

Yes.

Quote:

and what does vbCr, ", " mean?

As you can see from the code, it's part of a Replace expression:
Replace(txtEnclosureAttached.Text, vbCr, ", ")
which basically says to replace any carriage returns in the 'txtEnclosureAttached.Text' with a comma followed by a space.

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