[AccessD] Select Range of Records ...Word from Access

Michael R Mattys michael.mattys at adelphia.net
Thu Aug 21 01:25:00 CDT 2003


If you open a recordset and do

For i = 0 to rst.RecordCount
    if i mod 600 = 0 then
        .documents.add
    end if
next

it should work...

Michael R. Mattys
www.mattysconsulting.com


----- Original Message -----
From: "William Hindman" <wdhindman at bellsouth.net>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, August 21, 2003 2:07 AM
Subject: Re: [AccessD] Select Range of Records ...Word from Access


> ...ok ...I thought that was the question I'd originally asked ...how do I
> "throw" 600 records into each doc? :)
>
> William Hindman
> So, then, to every man his chance -- to every man, regardless of his
birth,
> his shining golden opportunity -- to every man his right to live, to work,
> to be himself, to become whatever his manhood and his vision can combine
to
> make him -- this, seeker, is the promise of America.
> -- Thomas Wolfe
>
>
>
> ----- Original Message -----
> From: "Michael R Mattys" <michael.mattys at adelphia.net>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, August 21, 2003 2:04 AM
> Subject: Re: [AccessD] Select Range of Records ...Word from Access
>
>
> > I don't know what you've got going into
> > each record, but if you were to throw 600
> > records into each document ... you wouldn't
> > run into a problem with either Word or the printer
> >
> > Maybe?
> >
> > Michael R. Mattys
> > www.mattysconsulting.com
> >
> >
> > ----- Original Message -----
> > From: "William Hindman" <wdhindman at bellsouth.net>
> > To: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > Sent: Thursday, August 21, 2003 1:11 AM
> > Subject: Re: [AccessD] Select Range of Records ...Word from Access
> >
> >
> > > Michael
> > >
> > > ...you say that as if you thought dumb and dumber here had a clue as
to
> > how
> > > I'd pull that off  ...maybe its just that at 1AM my brain refuses to
> > engage
> > > in rational thought :)
> > >
> > > ...of course, many would say that's true even in the middle of the day
> :)
> > >
> > > William Hindman
> > > So, then, to every man his chance -- to every man, regardless of his
> > birth,
> > > his shining golden opportunity -- to every man his right to live, to
> work,
> > > to be himself, to become whatever his manhood and his vision can
combine
> > to
> > > make him -- this, seeker, is the promise of America.
> > > -- Thomas Wolfe
> > >
> > >
> > >
> > > ----- Original Message -----
> > > From: "Michael R Mattys" <michael.mattys at adelphia.net>
> > > To: "Access Developers discussion and problem solving"
> > > <accessd at databaseadvisors.com>
> > > Sent: Thursday, August 21, 2003 1:07 AM
> > > Subject: Re: [AccessD] Select Range of Records ...Word from Access
> > >
> > >
> > > > Of course, using this you could also add
> > > > a new document every 31 mb also ...
> > > >
> > > > Michael R. Mattys
> > > > www.mattysconsulting.com
> > > >
> > > >
> > > > ----- Original Message -----
> > > > From: "Michael R Mattys" <michael.mattys at adelphia.net>
> > > > To: "Access Developers discussion and problem solving"
> > > > <accessd at databaseadvisors.com>
> > > > Sent: Thursday, August 21, 2003 12:17 AM
> > > > Subject: Re: [AccessD] Select Range of Records ...Word from Access
> > > >
> > > >
> > > > > Bill,
> > > > >
> > > > > Having read this, it seems to me that you aren't
> > > > > really using a template at all. If you save the doc
> > > > > as .dot, this may help you for every 4 records:
> > > > >
> > > > > ---Posted by Dev Ashish---
> > > > >
> > > > > Opening a new Word document based on a
> > > > > template through Automation
> > > > >
> > > > >     To open a new Word document based on an
> > > > >     existing template, we need to specify a
> > > > >     value for the Template argument of the
> > > > >     Add method of the Documents collection.
> > > > >
> > > > >     If the template file (.DOT) is saved in
> > > > >     the UserTemplates path,  we can use the
> > > > >     pre-defined contant wdUserTemplatesPath.
> > > > >     Otherwise, we will need to supply the
> > > > >     complete path to the template file.
> > > > >
> > > > > '****** Code Start ********
> > > > > Private mobjWordApp As Word.Application
> > > > >
> > > > > Private Sub Command1_Click()
> > > > > Const conTEMPLATE_NAME = "\Templates\merge.dot"
> > > > >
> > > > >    Set mobjWordApp = New Word.Application
> > > > >    With mobjWordApp
> > > > >       .Visible = True
> > > > >       .WindowState = wdWindowStateMaximize
> > > > >       .Documents.Add Template:=(.Options.DefaultFilePath( _
> > > > >                wdUserTemplatesPath) & conTEMPLATE_NAME)
> > > > >    End With
> > > > > End Sub
> > > > > '****** Code End ********
> > > > >
> > > > > Michael R. Mattys
> > > > > www.mattysconsulting.com
> > > > >
> > > > >
> > > > > ----- Original Message -----
> > > > > From: "William Hindman" <wdhindman at bellsouth.net>
> > > > > To: "Access Developers discussion and problem solving"
> > > > > <accessd at databaseadvisors.com>
> > > > > Sent: Wednesday, August 20, 2003 10:56 PM
> > > > > Subject: [AccessD] Select Range of Records ...Word from Access
> > > > >
> > > > >
> > > > > > ...ok ...just don't ask how I get into these things ...and if
this
> > > seems
> > > > > > like a JC post, I really don't want to hear about it :(
> > > > > >
> > > > >
> > > > > _______________________________________________
> > > > > AccessD mailing list
> > > > > AccessD at databaseadvisors.com
> > > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > > Website: http://www.databaseadvisors.com
> > > >
> > > > _______________________________________________
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com
> > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > >
> > >
> > > _______________________________________________
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> >
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



More information about the AccessD mailing list