Word 2000 Macro not working properly w/merge

I think you may have lost me here, I replace all of the code and put the path
the excel file is stored in?

"Graham Mayor" wrote:

Oops! You'll need to retain the line
sPassword = "" 'insert form password, if applicable, between quotes

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I believe that this function was introduced with Word 2002. You can
by-pass it by changing the lines

Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
sPassword = "" 'insert form password, if applicable, between quotes
With fDialog
.Title = "Select Folder to store the documents and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
DocDir = fDialog.SelectedItems.Item(1)
If Right(DocDir, 1) "\" Then DocDir = DocDir + "\"
End With

for

DocDir = "c:\path\"

where C:\Path is the folder that you would have selected had you been
able to


Brian wrote:
here is where i get the error user defined type not definted
Dim fDialog As FileDialog

"Brian" wrote:

I'm getting an error in this line of code, states it's undefined

Dim fDialog As FileDialog

"Brian" wrote:

the code in that link doesn't work, I'm getting some complier
errors, and I'm not very familiar w/programming to try to fix it.


"Doug Robbins - Word MVP" wrote:

See the article "Combining FormFields and Mail Merge" on the
following page of fellow MVP Graham Mayor's website:

http://www.gmayor.com/Form_Fields_and_Mail_Merge.htm

If that information is of use to you, please do consider
contributing to the maintenance of that website to ensure its
continued availability.


--
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, originally posted via
msnews.microsoft.com "Brian"
wrote in message
...
I'm creating a word merge into a new doc. I have text fields that
aren't merging, so I looked for help and found this macro on MS
support that's suppose to fix it and have the merge retain any
text fields. http://support.microsoft.com/kb/211308/
I put it all in, and it works except on the 2nd page of the doc
it leaves the place holders. The doc is only two pages after the
merge, 3 before the merge, anyone know why the it creates text
fields on the first page, but not
on the second page?

Not necessarily where the Excel code is stored, but the path to where you
want the output of (what was originally a) mail merge operation to be
stored. When the macro is run, it creates a separate document for each
record in the data source and what those documents will be saved in the
folder specified by the DocDir = "C:\Path" statement.

--
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, originally posted via msnews.microsoft.com
"Brian" wrote in message
...
I think you may have lost me here, I replace all of the code and put the
path
the excel file is stored in?

"Graham Mayor" wrote:

Oops! You'll need to retain the line
sPassword = "" 'insert form password, if applicable, between quotes

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I believe that this function was introduced with Word 2002. You can
by-pass it by changing the lines

Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
sPassword = "" 'insert form password, if applicable, between quotes
With fDialog
.Title = "Select Folder to store the documents and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
DocDir = fDialog.SelectedItems.Item(1)
If Right(DocDir, 1) "\" Then DocDir = DocDir + "\"
End With

for

DocDir = "c:\path\"

where C:\Path is the folder that you would have selected had you been
able to


Brian wrote:
here is where i get the error user defined type not definted
Dim fDialog As FileDialog

"Brian" wrote:

I'm getting an error in this line of code, states it's undefined

Dim fDialog As FileDialog

"Brian" wrote:

the code in that link doesn't work, I'm getting some complier
errors, and I'm not very familiar w/programming to try to fix it.


"Doug Robbins - Word MVP" wrote:

See the article "Combining FormFields and Mail Merge" on the
following page of fellow MVP Graham Mayor's website:

http://www.gmayor.com/Form_Fields_and_Mail_Merge.htm

If that information is of use to you, please do consider
contributing to the maintenance of that website to ensure its
continued availability.


--
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, originally posted via
msnews.microsoft.com "Brian"
wrote in message
...
I'm creating a word merge into a new doc. I have text fields that
aren't merging, so I looked for help and found this macro on MS
support that's suppose to fix it and have the merge retain any
text fields. http://support.microsoft.com/kb/211308/
I put it all in, and it works except on the 2nd page of the doc
it leaves the place holders. The doc is only two pages after the
merge, 3 before the merge, anyone know why the it creates text
fields on the first page, but not
on the second page?

I'm not sure i understand what you mean here.

"Doug Robbins - Word MVP" wrote:

Not necessarily where the Excel code is stored, but the path to where you
want the output of (what was originally a) mail merge operation to be
stored. When the macro is run, it creates a separate document for each
record in the data source and what those documents will be saved in the
folder specified by the DocDir = "C:\Path" statement.

--
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, originally posted via msnews.microsoft.com
"Brian" wrote in message
...
I think you may have lost me here, I replace all of the code and put the
path
the excel file is stored in?

"Graham Mayor" wrote:

Oops! You'll need to retain the line
sPassword = "" 'insert form password, if applicable, between quotes

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I believe that this function was introduced with Word 2002. You can
by-pass it by changing the lines

Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
sPassword = "" 'insert form password, if applicable, between quotes
With fDialog
.Title = "Select Folder to store the documents and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
DocDir = fDialog.SelectedItems.Item(1)
If Right(DocDir, 1) "\" Then DocDir = DocDir + "\"
End With

for

DocDir = "c:\path\"

where C:\Path is the folder that you would have selected had you been
able to


Brian wrote:
here is where i get the error user defined type not definted
Dim fDialog As FileDialog

"Brian" wrote:

I'm getting an error in this line of code, states it's undefined

Dim fDialog As FileDialog

"Brian" wrote:

the code in that link doesn't work, I'm getting some complier
errors, and I'm not very familiar w/programming to try to fix it.


"Doug Robbins - Word MVP" wrote:

See the article "Combining FormFields and Mail Merge" on the
following page of fellow MVP Graham Mayor's website:

http://www.gmayor.com/Form_Fields_and_Mail_Merge.htm

If that information is of use to you, please do consider
contributing to the maintenance of that website to ensure its
continued availability.


--
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, originally posted via
msnews.microsoft.com "Brian"
wrote in message
...
I'm creating a word merge into a new doc. I have text fields that
aren't merging, so I looked for help and found this macro on MS
support that's suppose to fix it and have the merge retain any
text fields. http://support.microsoft.com/kb/211308/
I put it all in, and it works except on the 2nd page of the doc
it leaves the place holders. The doc is only two pages after the
merge, 3 before the merge, anyone know why the it creates text
fields on the first page, but not
on the second page?

The macro is going to create a separate document for each record that was in
the original data source and it needs to save those documents somewhere. By
the DocDir = "C:\Path" statement and replacing Path with the actual path to
the folder where you want those documents to be saved, you are telling the
macro where to save them.

For example

DocDir = "C:\Application Data\[UserName]\Documents"

will, if my memory serves me correctly with respect to the Windows XP folder
structure, save the documents in the My Documents folder (if you replace
[UserName] with the user name that appears in Windows Explorer.

--
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, originally posted via msnews.microsoft.com
"Brian" wrote in message
...
I'm not sure i understand what you mean here.

"Doug Robbins - Word MVP" wrote:

Not necessarily where the Excel code is stored, but the path to where you
want the output of (what was originally a) mail merge operation to be
stored. When the macro is run, it creates a separate document for each
record in the data source and what those documents will be saved in the
folder specified by the DocDir = "C:\Path" statement.

--
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, originally posted via msnews.microsoft.com
"Brian" wrote in message
...
I think you may have lost me here, I replace all of the code and put the
path
the excel file is stored in?

"Graham Mayor" wrote:

Oops! You'll need to retain the line
sPassword = "" 'insert form password, if applicable, between quotes

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I believe that this function was introduced with Word 2002. You can
by-pass it by changing the lines

Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
sPassword = "" 'insert form password, if applicable, between quotes
With fDialog
.Title = "Select Folder to store the documents and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
DocDir = fDialog.SelectedItems.Item(1)
If Right(DocDir, 1) "\" Then DocDir = DocDir + "\"
End With

for

DocDir = "c:\path\"

where C:\Path is the folder that you would have selected had you
been
able to


Brian wrote:
here is where i get the error user defined type not definted
Dim fDialog As FileDialog

"Brian" wrote:

I'm getting an error in this line of code, states it's undefined

Dim fDialog As FileDialog

"Brian" wrote:

the code in that link doesn't work, I'm getting some complier
errors, and I'm not very familiar w/programming to try to fix it.


"Doug Robbins - Word MVP" wrote:

See the article "Combining FormFields and Mail Merge" on the
following page of fellow MVP Graham Mayor's website:

http://www.gmayor.com/Form_Fields_and_Mail_Merge.htm

If that information is of use to you, please do consider
contributing to the maintenance of that website to ensure its
continued availability.


--
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, originally posted via
msnews.microsoft.com "Brian"
wrote in message
...
I'm creating a word merge into a new doc. I have text fields
that
aren't merging, so I looked for help and found this macro on MS
support that's suppose to fix it and have the merge retain any
text fields. http://support.microsoft.com/kb/211308/
I put it all in, and it works except on the 2nd page of the doc
it leaves the place holders. The doc is only two pages after
the
merge, 3 before the merge, anyone know why the it creates text
fields on the first page, but not
on the second page?

ok so i just replace the dim fDialog As FileDialog
with all the code you mentioned about, swap out that one line?

"Doug Robbins - Word MVP" wrote:

The macro is going to create a separate document for each record that was in
the original data source and it needs to save those documents somewhere. By
the DocDir = "C:\Path" statement and replacing Path with the actual path to
the folder where you want those documents to be saved, you are telling the
macro where to save them.

For example

DocDir = "C:\Application Data\[UserName]\Documents"

will, if my memory serves me correctly with respect to the Windows XP folder
structure, save the documents in the My Documents folder (if you replace
[UserName] with the user name that appears in Windows Explorer.

--
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, originally posted via msnews.microsoft.com
"Brian" wrote in message
...
I'm not sure i understand what you mean here.

"Doug Robbins - Word MVP" wrote:

Not necessarily where the Excel code is stored, but the path to where you
want the output of (what was originally a) mail merge operation to be
stored. When the macro is run, it creates a separate document for each
record in the data source and what those documents will be saved in the
folder specified by the DocDir = "C:\Path" statement.

--
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, originally posted via msnews.microsoft.com
"Brian" wrote in message
...
I think you may have lost me here, I replace all of the code and put the
path
the excel file is stored in?

"Graham Mayor" wrote:

Oops! You'll need to retain the line
sPassword = "" 'insert form password, if applicable, between quotes

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I believe that this function was introduced with Word 2002. You can
by-pass it by changing the lines

Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
sPassword = "" 'insert form password, if applicable, between quotes
With fDialog
.Title = "Select Folder to store the documents and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
DocDir = fDialog.SelectedItems.Item(1)
If Right(DocDir, 1) "\" Then DocDir = DocDir + "\"
End With

for

DocDir = "c:\path\"

where C:\Path is the folder that you would have selected had you
been
able to


Brian wrote:
here is where i get the error user defined type not definted
Dim fDialog As FileDialog

"Brian" wrote:

I'm getting an error in this line of code, states it's undefined

Dim fDialog As FileDialog

"Brian" wrote:

the code in that link doesn't work, I'm getting some complier
errors, and I'm not very familiar w/programming to try to fix it.


"Doug Robbins - Word MVP" wrote:

See the article "Combining FormFields and Mail Merge" on the
following page of fellow MVP Graham Mayor's website:

http://www.gmayor.com/Form_Fields_and_Mail_Merge.htm

If that information is of use to you, please do consider
contributing to the maintenance of that website to ensure its
continued availability.


--
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, originally posted via
msnews.microsoft.com "Brian"
wrote in message
...
I'm creating a word merge into a new doc. I have text fields
that
aren't merging, so I looked for help and found this macro on MS
support that's suppose to fix it and have the merge retain any
text fields. http://support.microsoft.com/kb/211308/
I put it all in, and it works except on the 2nd page of the doc
it leaves the place holders. The doc is only two pages after
the
merge, 3 before the merge, anyone know why the it creates text
fields on the first page, but not
on the second page?

NO! You remove all the following lines

Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)

With fDialog
.Title = "Select Folder to store the documents and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
DocDir = fDialog.SelectedItems.Item(1)
If Right(DocDir, 1) "\" Then DocDir = DocDir + "\"
End With

and replace with

DocDir = "C:\Application Data\[UserName]\Documents"

where [username] is your username as described by Doug or

DocDir = whatever other.path you would prefer to store the documents in.

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org




--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Brian wrote:
ok so i just replace the dim fDialog As FileDialog
with all the code you mentioned about, swap out that one line?

"Doug Robbins - Word MVP" wrote:

The macro is going to create a separate document for each record
that was in the original data source and it needs to save those
documents somewhere. By the DocDir = "C:\Path" statement and
replacing Path with the actual path to the folder where you want
those documents to be saved, you are telling the macro where to save
them.

For example

DocDir = "C:\Application Data\[UserName]\Documents"

will, if my memory serves me correctly with respect to the Windows
XP folder structure, save the documents in the My Documents folder
(if you replace [UserName] with the user name that appears in
Windows Explorer.

--
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, originally posted via msnews.microsoft.com
"Brian" wrote in message
...
I'm not sure i understand what you mean here.

"Doug Robbins - Word MVP" wrote:

Not necessarily where the Excel code is stored, but the path to
where you want the output of (what was originally a) mail merge
operation to be stored. When the macro is run, it creates a
separate document for each record in the data source and what
those documents will be saved in the folder specified by the
DocDir = "C:\Path" statement.

--
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, originally posted via msnews.microsoft.com
"Brian" wrote in message
...
I think you may have lost me here, I replace all of the code and
put the path
the excel file is stored in?

"Graham Mayor" wrote:

Oops! You'll need to retain the line
sPassword = "" 'insert form password, if applicable, between
quotes

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org


Graham Mayor wrote:
I believe that this function was introduced with Word 2002. You
can by-pass it by changing the lines

Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
sPassword = "" 'insert form password, if applicable, between
quotes With fDialog
.Title = "Select Folder to store the documents and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
DocDir = fDialog.SelectedItems.Item(1)
If Right(DocDir, 1) "\" Then DocDir = DocDir + "\"
End With

for

DocDir = "c:\path\"

where C:\Path is the folder that you would have selected had you
been
able to


Brian wrote:
here is where i get the error user defined type not definted
Dim fDialog As FileDialog

"Brian" wrote:

I'm getting an error in this line of code, states it's
undefined

Dim fDialog As FileDialog

"Brian" wrote:

the code in that link doesn't work, I'm getting some complier
errors, and I'm not very familiar w/programming to try to
fix it.


"Doug Robbins - Word MVP" wrote:

See the article "Combining FormFields and Mail Merge" on the
following page of fellow MVP Graham Mayor's website:

http://www.gmayor.com/Form_Fields_and_Mail_Merge.htm

If that information is of use to you, please do consider
contributing to the maintenance of that website to ensure
its continued availability.


--
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, originally posted via
msnews.microsoft.com "Brian"
wrote in message
...
I'm creating a word merge into a new doc. I have text
fields that
aren't merging, so I looked for help and found this macro
on MS support that's suppose to fix it and have the merge
retain any text fields.
http://support.microsoft.com/kb/211308/
I put it all in, and it works except on the 2nd page of
the doc it leaves the place holders. The doc is only two
pages after the
merge, 3 before the merge, anyone know why the it creates
text fields on the first page, but not
on the second page?