J
James Pannozzi
Word 2000 under Windows 2000.
I successfully build a report in Word
using VBScript and insert 3 rows
near the bottom of the report
and I put some underlines in some
blank table cells.
The underlines appear, but sometimes
when I click on the scroll bar and scroll
the underlines out of the visible region of
the window, and then scroll back again,
only the top row of the underlines is visible,
i.e. the first row of underlines appears
but not the second row of underlines(?!!).
If I scroll them off screen and then
up again a second time, the second row
of underlines sometimes
equally mysteriously reappears
Is this a Word bug or need I set some
other properties of the cell??
Here is the code I use to draw the underlines
in an otherwise empty cell.
' Add extra rows for Totals
' Insert 3 blank rows and put in some double underlines in cols 2 and
(optionally) 3 or 4 ahead of the Plan Totals
objWord.ActiveDocument.Tables(X).Rows(objWord.ActiveDocument.Tables(X).Rows.
Count - 1).Select
objWord.Selection.InsertRows 3
' determine which columns and place double underlines at end
If (BenefitPropertiesArray(X-1) = "1") OR (BenefitPropertiesArray(X-1) =
"4") Then
objWord.ActiveDocument.Tables(X).Cell((objWord.ActiveDocument.Tables(X).Rows
..Count - 2),2).Range.Text = "______________"
objWord.ActiveDocument.Tables(X).Cell((objWord.ActiveDocument.Tables(X).Rows
..Count - 3),2).Range.Text = "______________"
objWord.ActiveDocument.Tables(X).Cell((objWord.ActiveDocument.Tables(X).Rows
..Count - 2),3).Range.Text = "______________"
objWord.ActiveDocument.Tables(X).Cell((objWord.ActiveDocument.Tables(X).Rows
..Count - 3),3).Range.Text = "______________"
End If
Thanks
Jim
I successfully build a report in Word
using VBScript and insert 3 rows
near the bottom of the report
and I put some underlines in some
blank table cells.
The underlines appear, but sometimes
when I click on the scroll bar and scroll
the underlines out of the visible region of
the window, and then scroll back again,
only the top row of the underlines is visible,
i.e. the first row of underlines appears
but not the second row of underlines(?!!).
If I scroll them off screen and then
up again a second time, the second row
of underlines sometimes
equally mysteriously reappears
Is this a Word bug or need I set some
other properties of the cell??
Here is the code I use to draw the underlines
in an otherwise empty cell.
' Add extra rows for Totals
' Insert 3 blank rows and put in some double underlines in cols 2 and
(optionally) 3 or 4 ahead of the Plan Totals
objWord.ActiveDocument.Tables(X).Rows(objWord.ActiveDocument.Tables(X).Rows.
Count - 1).Select
objWord.Selection.InsertRows 3
' determine which columns and place double underlines at end
If (BenefitPropertiesArray(X-1) = "1") OR (BenefitPropertiesArray(X-1) =
"4") Then
objWord.ActiveDocument.Tables(X).Cell((objWord.ActiveDocument.Tables(X).Rows
..Count - 2),2).Range.Text = "______________"
objWord.ActiveDocument.Tables(X).Cell((objWord.ActiveDocument.Tables(X).Rows
..Count - 3),2).Range.Text = "______________"
objWord.ActiveDocument.Tables(X).Cell((objWord.ActiveDocument.Tables(X).Rows
..Count - 2),3).Range.Text = "______________"
objWord.ActiveDocument.Tables(X).Cell((objWord.ActiveDocument.Tables(X).Rows
..Count - 3),3).Range.Text = "______________"
End If
Thanks
Jim