On Mar 6, 12:11 am, "Peter Jamieson"
wrote:
If the message boxes are not appearing then the MsgBox statements are almost
certainly not being executed, in which case I would guess that an error is
being "raised", probably in the doFindReplace Sub. If you haven't got the
hang of the debug stuff and single-stepping, you could try
a. putting MsgBox statements at the beginning and end of that Sub
b. comment out the line at the top of the Sub
PreserveMailMergeFormFieldsNewDoc that says
On Error GoTo ErrHandler
(i.e. put a quote before it
' On Error GoTo ErrHandler
c. optionally, putting some additional error trapping into Sub
doFindReplace, e.g.
put
On Error Goto problem
before
' Go to top of document.
Selection.HomeKey Unit:=wdStory
and put
Exit Sub
problem:
Msgbox Err.Number & ": " & Err.Description
before
End Sub
and see what happens.
Peter Jamieson
wrote in message
ups.com...
On Mar 4, 3:33 am, "Peter Jamieson"
wrote:
except I was unable to re-protect the main form as before
the merge, and to switch back to the new merged file.
The code works OK with a simple example I created here using Word 2003,
so
my best guess is that when the code gets to this point, the
ActiveDocument
is not the one it should be:
' Reprotect the main mail merge document.
ActiveDocument.Protect Password:="", NoReset:=True, _
Type:=wdAllowOnlyFormFields
However, it's difficult to see why that might be so. There are a couple
of
things ytou could do to investigate:
a. learn how to use the debug facilities within VBA (breakpoints,
stepping
through code etc. with the Debug toolbar)
b. put msgbox or debug.print statements into the code to examine the
values
of the variables involved. msgbox makes a message box pop up, whereas
debug.print displays the results in the Immediate Window (in the VBA
editor), which you can enable using ctrl-G in the VBA Editor.
e.g. I might start with the following:
put
MsgBox "swindowmain:" & sWindowMain
before
' Reactivate the main merge document.
Windows(sWindowMain).Activate
and put
MsgBox "activedocument: " & ActiveDocument.Name
before
' Reprotect the main mail merge document.
ActiveDocument.Protect Password:="", NoReset:=True, _
Type:=wdAllowOnlyFormFields
and see what results you get.
On the subject of spell checking, I think you have to play a similar
game,
i.e. use a macro to unprotect the document, spell check, then reprotect,
and
make that macro available to your users by associating it with a toolbar
button, a menu option, or a keyboard shortcut, e.g. in Tools|Customize.
However, the macro really has to be either in the normal.dot template, or
if
your mail merge main document is attached to another template, put it in
that template. Putting it in the mail merge main document itself will not
work.
You could use a macro like
Sub mySpellCheck()
With ActiveDocument
If .ProtectionType wdNoProtection Then
.Unprotect
End If
.CheckSpelling
.Protect Password:="", NoReset:=True, _
Type:=wdAllowOnlyFormFields
End With
End Sub
Peter wrote in message
oups.com...
Hi,
I tried using the codes provided at the link below, for mail merge for
MS Word form document.
http://support.microsoft.com/?kbid=211308
They worked, except I was unable to re-protect the main form as before
the merge, and to switch back to the new merged file. At the site
above, I see the strings of codes specifically written for that, but
they simply don't work when I used in my form.
The new merged file is also a form with a few form fields, of which
some are already populated from the data source, by the mail merge,
and some need to be filled in by the users. Another problem is they
need to spell check for the part they fill out. The new merged form
is password protected at the time of merge. So I need to figure out a
way for the users to run a spellcheck with their form still
protected. I also checked out the codes for that, but can't figure
out how to include those codes in the main form so that after the
merge, they can be activated in the new merged form file. Do I make
sense?
Can any one help me on my issues?
Joy- Hide quoted text -
- Show quoted text -
Thank you for your quick response! I've tried what you told me to
try . . . and everything works up to the reprotection of the main
merge doc, or I'd say "Find and replace . . ." part right before that,
and the active document is the main merge doc. The MsgBox commands
don't work after the 2nd "Find and replace . . ." part. I'm trying to
learn debugging as you said, but I'm so novice at this point. So are
you saying it could be something in the codes or something I put
that's prohibiting them to work properly? I was wondering if this is
supposed to not work at all, after the doc has gone through the
merge . . . .
JoyLee- Hide quoted text -
- Show quoted text -
Wow! Now the form is working! The MsgBox commands are working also,
with ActiveDocument switching back and forth, and at the end of merge,
an error message appears: 9: Subscript out of range. So if I don't
clear this #9 error, the message box will keep popping up even though
the form's working, right? That would really confuse the users. What
does this mean? I'm checking Help menu but don't see any explanation
there. Thank you so much for your help!!!
Joy Lee