"Albert D. Kallal" <ka****@msn.com> wrote
Have the word merge code take ALL fields of the forms reocrdset, and
output
that.
In addition, have the code ALSO EXPORT any text box on the form that is
NOT
bound. This would thus allow you to build "prompt" forms, or even a form
that is not bond to a table, and still use it to merge to word. And, this
approach would also allow a "mix" of bound, and un-bound text boxes to be
used here!!
[snip] The above thus now allows you to use any un-bound text box on the form.
And,
note that all fields of the data file are still included, and EVEN
included
in the merge if they are NOT placed on the screen. So, now...just add the
above 2nd set of example code, and when you hit the merge button, all
un-bound text boxes will be included....
Albert,
That's really a neat solution (which I wouldn't have thought would work).
Unlike the full and more dynamic solution on your site, my users won't be
able to create their own documents and build their own merge queries, but I
don't think I want them to. Now I see that I could easily add in empty
fields. I use a stored query to pull data from a Document Form, tables, and
some built-in functions. Here is a big ugly one:
SELECT [off_first_name] & " " & [off_last_name] & (" "+[off_suffix]) AS
Name, off_cur_location, off_address1, off_address2,
Eval("[Forms]![DocForm]![cboAgency].[Column](1)") AS Agency, GetUserName()
AS PO, GetPOTitle() AS Title,
Eval("[Forms]![DocForm]![cboAgency].[Column](2)") AS AAddress1,
Eval("[Forms]![DocForm]![cboAgency].[Column](3)") AS AAddress2,
Eval("[Forms]![DocForm]![cboAgency].[Column](4)") AS ACSZ,
[Forms]![DocForm]![cboCourt] & " Court" AS Court,
Format([Forms]![DocForm]![txtApptDate],"dddd mmmm d"", ""yyyy") AS ApptDate,
[Forms]![DocForm]![txtApptTime] & "" AS ApptTime, off_last_name,
IIf([off_sex]="M","Mr.","Ms.") AS Salutation, [Forms]![DocForm]![txtDockets]
& "" AS Docket, Eval("[Forms]![DocForm]![cboJudge].[Column](2)") AS
JudgeName, IIf([off_sex]="M","his","her") AS HisHer FROM offender;
I then just pass in the name of the query and the name of the Word document
to the below function; no other code is involved. This is similar to my
originally posted function, but in that one I was vainly trying to duplicate
the existing empty Word fields.
================================
Public Function MergeQuery(queryName As String, _
docName As String) As Boolean
On Error GoTo handle_error
MergeQuery = False
Dim mWord As Object
Dim mDoc As Object
Set mWord = CreateObject("Word.Application")
DoCmd.TransferText acExportDelim, , queryName, "c:\merge.txt", True
With mWord
Set mDoc = .Documents.Open(docName)
.ActiveDocument.MailMerge.MainDocumentType = 0
.ActiveDocument.MailMerge.OpenDataSource Name:="c:\merge.txt", _
AddToRecentFiles:=False, Format:=0, _
Connection:="", SQLStatement:="",
SQLStatement1:=""
.ActiveDocument.MailMerge.Execute
.Application.Visible = True
mDoc.Close
End With
MergeQuery = True
exit_point:
Set mWord = Nothing
Set mDoc = Nothing
Exit Function
handle_error:
LogError Err.Number, Err.Description
GoTo exit_point
End Function
====================================
Previously, the best that I could come up with was to put <ff> marking in
the Word documents (almost all static forms, not letters) where I wanted an
empty field, and add this code to the above, which just replaces <ff> with a
blank field.
..Application.Selection.Find.ClearFormatting
Do While .Application.Selection.Find.Execute _
(FindText:="<ff>", Wrap:=wdFindContinue, Forward:=True) =
True
.ActiveDocument.FormFields.Add _
Range:=.Application.Selection.Range, Type:=wdFieldFormTextInput
Loop
My main problem is that so far, I can only add a field - I cannot then add
the formatting that the original designers of the Word Document intended
(underline, maximum width 2, uppercase, etc).
--
Darryl Kerkeslager
Power corrupts.
Absolute power corrupts absolutely.
Knowledge is power.
See
www.adcritic.com/interactive/view.php?id=5927 
