Underline a row

**5631** · 05-12-2009, 03:04 PM

I create a Word document from Access and need some rows to be underlined.
But the width of rows is always different. If a row isn't filled with characters fully it's underlined only where characters are typed. Spaces are not underlined.

So the width of an underlined row is always different.
How can I solve this problem?

**teylyn** · 05-13-2009, 09:03 PM

Hi,

there's a difference between the underline of text that you can achieve with text formatting and the underline of paragraphs, which will always go to the right hand border of the page.

Text formatting (Format - Font) will only underline the text.

Use Format - Borders and Shading to apply an underline to a paragraph.

**5631** · 05-14-2009, 02:31 AM

Thank you!

That's what I actually do. But the point is borders can be drawn only above or below a paragraph. I need it after definite rows.
That's why I have to split strings and build single paragraphs.
The other problem is that the up border of the following paragraph erases the bottom border of the current paragraph.

I do this all in VBA-code from Access and don't know the number of rows in advance.
It's very inconvenient.

**5631** · 05-31-2009, 04:47 AM

Here is the solution:

Code:

Sub SetTabUntilTheEndOfPage()
  With ActiveDocument.PageSetup
    Selection.ParagraphFormat.TabStops.Add .PageWidth - .LeftMargin - .RightMargin, 0, 3
    Selection.TypeText vbTab
  End With
End Sub