[AndyC812]

That's outstanding, thanks for the effort. So, I would need a different
version of my report for 2007, 2003 and Mac? I have users who are in each
environment.

This macro would be run from the Word side? Is that correct? How does the
macro know what worksheet to look for the data in?

Thanks again, Doug, I really appreciate it. I will also check on the Excel
boards. I really would rather this be totally driven from the Excel side of
the interface.

"Doug Robbins - Word MVP" wrote:

The following code, written for use with Word 2007 and an Excel 2007 data
source requires:

1. In the Visual Basic Editor - a reference must be set to the Microsoft
Office 12.0 Access database engine Object Library

If using earlier versions of Office, the reference should be set to
the Microsoft DAO 3.6 Object Library and the following line of the code

Set db = OpenDatabase(DataSource, False, False, "Excel 12.0;
IMEX=1;")

must be replaced with

Set db = OpenDatabase(DataSource, False, False, "Excel 8.0;
IMEX=1;")

I do not know the equivalent of these setup steps with a Mac. If you
need assistance with that aspect of it, I would suggest that you post to one
of the Microsoft.Public.Mac.Office newsgroups.

2. In the Excel spreadsheet that is selected when the code is run, there
is a two column list with "field names" in the first column and the
corresponding values in the second column. It assumes that the first row is
a header row - probably containing the column titles "field name" and
"value" (but what is actually in the cells of that row does not really
matter. The list, including the header row must be named "DataItems"

When the code runs, it will create a document variable for each record in
the datasource with the name of the variable being the item in the first
column of the spreadsheet and the value of the variable being the item in
the second column of the spreadsheet.

To facilitate the insertion of the Docvariable fields in the document, I
would create a userform with a listbox that was populated with the field
names from the first column of the spreadsheet and a button that when
clicked would insert a docvariable field into the documnet for the field
that was selected in the listbox. It would in fact be possible to construct
a user interface for this that had virtually the same functionality as the
mail merge interface.

Dim Msg, Style, Title, Response
Dim i As Long
Dim j As Long
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim varname As String
Dim varvalue As String
Dim fd As FileDialog
Dim DataSource As String
Dim avar As Variable
For Each avar In ActiveDocument.Variables
avar.Value = " "
Next avar
'Display the file selection dialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.Title = "Select Data Source"
.InitialFileName = ""
If .Show = -1 Then
DataSource = .SelectedItems(1)
Else
Exit Sub
End If
End With
Set fd = Nothing
Msg = "Please ensure that Excel is closed before Continuing. Do you want to
continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "Refresh Data" ' Define title.
' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' User chose Yes.
' Open the file containing the Data
Set db = OpenDatabase(DataSource, False, False, "Excel 12.0; IMEX=1;")
Set rs = db.OpenRecordset("SELECT * FROM `DataItems`")
With rs
.MoveFirst
For i = 0 To .RecordCount
ActiveDocument.Variables(Format(.Fields(0).Value)) =
..Fields(1).Value
.MoveNext
Next i
End With
' Cleanup
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Else
Exit Sub
End If


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"AndyC812" wrote in message
...
OK, so you think this will also fix my problem with Mac reports also? So
let
me see, I need to transpose my data tab, headers in A and data in B. Then
I
need to replace all of the merge fields in my report documents with
docvariable fields. Then I need to write a VBA procedure that will read
the
header, data pairs and send them to the correct Word template. Is that
all?
:-) Would it be asking too much for some sample code to get me started?
I
really appreciate you sticking with both of my questions!

-Andy

"Doug Robbins - Word MVP" wrote:

Yes. In fact it must be done with VBA.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"AndyC812" wrote in message
...
Docvariable fields! That sounds promising. I'll read up on those.
Could
I
use VBA to also drive the report generation in Word? I would like to
be
able
to push a button in the Excel file and have a "merged" report pop up in
Word
based on the field data in the spreadsheet.

"Doug Robbins - Word MVP" wrote:

In that case, you could have the "field names" in one column and the
data
for each "field" in the cells of the adjacted column and then you
would
not
be limited by the number of columns available.

Of course, you would then have to use something other than mailmerge
to
create the report and the way that I would do it would be to use
Docvariable
fields in the document in place of merge fields and use VBA to iterate
through the rows of the spreadsheet, creating variables in the
document
with
the name of the variables being the "field names" from the first
column
and
the values of the variables being set to the data from the
corresponding
cells in the second column.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"AndyC812" wrote in message
...
Just one report. Each spreadsheet generates one LONG reord of data
based
on
user input to the other worksheets.

"Doug Robbins - Word MVP" wrote:

Are you preparing multiple reports from the data or is it just one
report?

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of
my
services on a paid consulting basis.

Doug Robbins - Word MVP

"AndyC812" wrote in message
...
My application has multiple tabs and generates a 7-9 page report
in
Word
using 250 merge fields. Not all the fields are used in all the
reports,
but
I'm running out of room. Others have suggested CSV also, but can
I
automate
it as well (generate the CSV from Excel and "Send it" to the
proper
merge
template and do a "Merge to New Document" and perhaps even rename
the
resulting file.

Thanks!

"Doug Robbins - Word MVP" wrote:

I find it hard to imagine a mail merge that needs that many
fields.
However, if you do need to exceed the 255 column limit of Excel,
you
can
use
a .csv file as the data source.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself
of
my
services on a paid consulting basis.

Doug Robbins - Word MVP

"AndyC812" wrote in message
...
I have created an application in Excel that collects data for
eventual
merging into a Word mail merge document. It is so large that
I
am
running
out of columns in Excel for new merge fields (I am using 250
of
possible
255). My question - is there a better way to get my data
fields
from
Excel
into Word (CSV file, XML?) ? Can this be automated?

Any tips would be appreciated!

Thanks!
Andy