Continuous page size

  • Thread starter Thread starter Rosemary
  • Start date Start date
R

Rosemary

I have a Billing system that ouputs a Bill and a Word Document. Within the
Word Document, I need to insert verbiage for the categories selected on the
Bill. It can be from one to 29 or 30. Currently everything works, except
that there are page breaks within the verbiage that is inserted, causing gaps
within the complete Word document. I'd prefer to create the report of
categories, output to an rtf and insert it with a bookmark than have to
create bookmarks for each category that could be inserted. Not only that but
if the category number changes, I have to maintain the Template with the
bookmarks that is used to create the Word Document. Is there any way to
accomplish this? I tried setting a custom page size that was 8 1/2 by 120,
but then the Output to would not work, saying OutputTo action was cancelled.
I have my default printer set to Adobe PDF
 
Rosemary said:
I have a Billing system that ouputs a Bill and a Word Document. Within the
Word Document, I need to insert verbiage for the categories selected on the
Bill. It can be from one to 29 or 30. Currently everything works, except
that there are page breaks within the verbiage that is inserted, causing gaps
within the complete Word document. I'd prefer to create the report of
categories, output to an rtf and insert it with a bookmark than have to
create bookmarks for each category that could be inserted. Not only that but
if the category number changes, I have to maintain the Template with the
bookmarks that is used to create the Word Document. Is there any way to
accomplish this? I tried setting a custom page size that was 8 1/2 by 120,
but then the Output to would not work, saying OutputTo action was cancelled.
I have my default printer set to Adobe PDF
Click to expand...

This seems to work: Once the document has been assembled, I added the
following:
'Strip out page breaks caused by inserting the Category Rpt into Word
With Doc.ActiveDocument.Range.Find
.ClearFormatting
.Text = "^m"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll, Forward:=True,
Wrap:=wdFindContinue
End With

(Just in case anyone ever needs to do this)
 
Back
Top