"Shezageek" wrote:
[Quoted Text] > > I believe you need to clarify what you are doing as follows:
> >
> > > I am creating a form with many TXT boxes and Yes/No questions. Depending on
> > > the yes/no selection from several places, I need to "Append" another document
> >
> > Will you append only one document, or one per each Yes-No box that is checked?
>
> If the "yes" box is checked, then I want to go to the end of the document, insert a new section and append another document there. There will only be one document appended per each "yes".
> > > at the end of the active document. This document is rather large and could
> > > possible end up with approximately 50 pages in it. I have each of the
> >
> > 50 pages is not really "large"
> >
> > > documents that will be inserted coded to pull in info from the TXT boxes but
> > > I can't get them to insert properly.
> >
> > What is the content of those TXT box?
> The txt boxes are name, address, phone, email. . . etc.
>
> > How do they relate to the "append" procedure? There are three questions, If they are answered "yes", then other documents need to be included in the file.
>
> > What does "I can't get them tio insert properly" mean? What is the problem,
> > exactly?
>
> I have code that I found to try, however, it doesn't work. Here is a
> portion of the form's code.
Just in order to help you help yourself, when you run code and run into
problems, you have to explain what your expectations for the code were and
the observed results. Of course, explaining what you did to achieve the
expectations is also important.
Here, you explained your expectations and what you did (the code you just
posted), but never explained the observed results. The first time you wrote
"It does not work properly" and the second time you wrote "It does not
work." Neither of which are very helpful.
By looking at your code, I suspect you were getting an error message. it is
also very helpful to mention those and post the error message text.
Try this:
Change the code
ActiveDocument.Bookmarks("EndOfDoc").Range
to
ActiveDocument.Bookmarks("\EndOfDoc").Range
The predefined bookmarks have to be prefixed by a "\".
Does that help?
> Private Sub CMDNext1b_Click()
>
> ActiveDocument.Bookmarks("BKacctmgrname").Range = Me.TXTacctmgrname.Value
> ActiveDocument.Bookmarks("BKacctmgrcode").Range = Me.TXTacctmgrcode.Value
> ActiveDocument.Bookmarks("BKacctmgrphone").Range = Me.TXTacctmgrphone.Value
> ActiveDocument.Bookmarks("BKacctmgremail").Range = Me.TXTacctmgremail.Value
> ActiveDocument.Bookmarks("BKacctmgrcitystate").Range =
> Me.TXTacctmgrcitystate.Value
>
> ActiveDocument.Bookmarks("BKacctmgrasstname").Range =
> Me.TXTacctmgrasstname.Value
> ActiveDocument.Bookmarks("BKacctmgrasstphone").Range =
> Me.TXTacctmgrasstphone.Value
> ActiveDocument.Bookmarks("BKacctmgrasstemail").Range =
> Me.TXTacctmgrasstemail.Value
>
> Dim strNewBankCust As String
>
> If newbankcustyes_CHK = True Then strNewBankCust = "Yes"
> If newbankcustno_CHK = True Then strNewBankCust = "No"
>
>
> Dim strNewTreasuryCust As String
>
> If CHKnewtreasurymgtyes = True Then strNewTreasuryCust = "Yes"
> If CHKnewtreasurymgtno = True Then strNewTreasuryCust = "No"
>
>
> Dim strTMAuthorization As String
>
> If CHKtmauthorizationyes = True Then strTMAuthorization = "Yes"
> If CHKtmauthorizationno = True Then strTMAuthorization = "No"
>
>
> ActiveDocument.Bookmarks("BKnew_bank_customer").Range.Text =
> strNewBankCust
> ActiveDocument.Bookmarks("BKnew_treasury_customer").Range.Text =
> strNewTreasuryCust
> ActiveDocument.Bookmarks("BKtm_authorization").Range.Text =
> strTMAuthorization
>
> If CHKtmauthorizationsyes = True Then
> ActiveDocument.Bookmarks("EndOfDoc").Range.InsertBreak
> wdSectionBreakNextPage
> ActiveDocument.Bookmarks("EndOfDoc").Range.InsertFile
> ("c:\rbcdocs\tmauthorization.doc")
> End If
>
> If CHKtmauthorizationsyes = True Then
> ActiveDocument.Bookmarks("EndOfDoc").Range.InsertBreak
> wdSectionBreakNextPage
> ActiveDocument.Bookmarks("EndOfDoc").Range.InsertFile
> ("c:\rbcdocs\tmtermsconditions.doc")
> End If
>
> frmUserForm1b.Hide
> frmUserForm2.Show
>
> End Sub
> >
> > What Word version? Word 2003.
|