Word 2000 Macro not working properly w/merge

[Brian]

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?

 

[Doug Robbins - Word MVP]

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]

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.

 

[Brian]

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.

 

[Graham Mayor]

The compiler errors are probably attributable to the line

'Requires a reference to Microsoft DAO 3.# Object Library

From the VBA Editor > Tools > References, ensure that the above item is
checked.
See also http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Brian]

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

Dim fDialog As FileDialog

 

[Brian]

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

Dim fDialog As FileDialog

 

[Brian]

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

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

Dim fDialog As FileDialog

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.

 

[Graham Mayor]

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

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

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

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

Dim fDialog As FileDialog

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.


:

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
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?

 

[Graham Mayor]

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

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

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

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

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

Dim fDialog As FileDialog

:

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.


:

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" <[email protected]>
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?

 

[Brian]

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

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

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

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

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

:

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

Dim fDialog As FileDialog

:

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.


:

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" <[email protected]>
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?

 

[Doug Robbins - Word MVP]

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

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

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

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

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

:

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

Dim fDialog As FileDialog

:

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.


:

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" <[email protected]>
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?

 

[Brian]

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

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

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

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

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

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

:

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

Dim fDialog As FileDialog

:

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.


:

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" <[email protected]>
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?

 

[Doug Robbins - Word MVP]

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

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

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

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

:

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

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

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

:

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

Dim fDialog As FileDialog

:

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.


:

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" <[email protected]>
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?