Code only works fully when run from VBA editor
in [Word VBA]
|
From: johnnykunst on 17 May 2010 06:18 I have the following code, all of which works fine when run from the VBA editor: Private Sub CommandButton1_Click() If ActiveDocument.FormFields("nameDD").Result = "ENTER NAME" Then MsgBox "You forgot to fill in your name. This field MUST be filled in before you can save the document" Exit Sub End If Call RunSpellcheck Dim pStr As String pStr = "C:\Users\John\Desktop\" 'Your directory pStr = pStr + ActiveDocument.FormFields("nameDD").Result pStr = pStr + " " pStr = pStr + ActiveDocument.FormFields("classificationDD").Result pStr = pStr + " " pStr = pStr + ActiveDocument.FormFields("wardDD").Result pStr = pStr + " .docx" ActiveDocument.SaveAs FileName:=pStr Dim sCode As String MsgBox "Your Intelligence report was saved to the central WINTEL inbox for processing & emailing. No further action is required; it is now safe to close the document" End Sub However, this code is assigned to a button on my Word template and when it is fired from this button the following section does not work: If ActiveDocument.FormFields("nameDD").Result = "ENTER NAME" Then MsgBox "You forgot to fill in your name. This field MUST be filled in before you can save the document" Exit Sub End If The section is to check that a field has been filled in, and if it hasn't, to stop the macro, if it has, to continue with the rest of the macro. --- frmsrcurl: http://msgroups.net/microsoft.public.word.vba.general
From: Graham Mayor on 17 May 2010 10:24 What happens when you try? 1. I take it that this is a button from the ActiveX legacy control set 2. That the form is not in design mode. 3. That the form is protected. 4. That the formfield bookmark name matches "nameDD" 5. That the first entry in the drop down list is "ENTER NAME" - in upper case - if not change to If UCase(ActiveDocument.FormFields("nameDD").Result) = "ENTER NAME" Then MsgBox "You forgot to fill in your name. This field MUST be filled in before you can save the document" Exit Sub End If So configured it works for me. -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> "johnnykunst" <user(a)msgroups.net/> wrote in message news:e50MTpa9KHA.508(a)TK2MSFTNGP06.phx.gbl... > > I have the following code, all of which works fine when run from the VBA > editor: > > Private Sub CommandButton1_Click() > If ActiveDocument.FormFields("nameDD").Result = "ENTER NAME" Then > MsgBox "You forgot to fill in your name. This field MUST be > filled in before you can save the document" > Exit Sub > End If > Call RunSpellcheck > Dim pStr As String > pStr = "C:\Users\John\Desktop\" 'Your directory > pStr = pStr + ActiveDocument.FormFields("nameDD").Result > pStr = pStr + " " > pStr = pStr + ActiveDocument.FormFields("classificationDD").Result > pStr = pStr + " " > pStr = pStr + ActiveDocument.FormFields("wardDD").Result > pStr = pStr + " .docx" > ActiveDocument.SaveAs FileName:=pStr > Dim sCode As String > MsgBox "Your Intelligence report was saved to the central WINTEL inbox for > processing & emailing. No further action is required; it is now safe to > close the document" > End Sub > > > However, this code is assigned to a button on my Word template and when it > is fired from this button the following section does not work: > > If ActiveDocument.FormFields("nameDD").Result = "ENTER NAME" Then > MsgBox "You forgot to fill in your name. This field MUST be > filled in before you can save the document" > Exit Sub > End If > > The section is to check that a field has been filled in, and if it hasn't, > to stop the macro, if it has, to continue with the rest of the macro. > > > --- > frmsrcurl: http://msgroups.net/microsoft.public.word.vba.general
From: johnnykunst on 17 May 2010 11:58 It still doesn't work, even though 1-5 are as you state. What I have found however, is that it works if I do the following: The template is CWS Intel Template 2010. When i open it, it becomes Document1. If I go into VBA, the releveant codes (as per above) reside as modules in the CWS Intel Template. If I paste the code into Project (Document1) and then click the button on the form, it works as it should. If I save it like this, when I click the command button, it does not stop the code as it should if ENTER NAME is in nameDD- the message prompt pops up, but when I click OK, it goes straight into RunSpellCheck rather than stopping. --- frmsrcurl: http://msgroups.net/microsoft.public.word.vba.general/Code-only-works-fully-when-run-from-VBA-editor
From: johnnykunst on 17 May 2010 14:16 I managed to fix it, only to encounter another problem: When a new document is created through the above code, when I open the new document, I get the message "The file cannot be opened because there are problems with the contents" but no error detail. --- frmsrcurl: http://msgroups.net/microsoft.public.word.vba.general/Code-only-works-fully-when-run-from-VBA-editor
From: Doug Robbins - Word MVP on 17 May 2010 17:29 Are there any illegal (for a filename) characters included in the filename as a result of the concatenation of the contents of the formfields. Also, it is safer to use & rather than + to build a string. -- 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 "johnnykunst" <user(a)msgroups.net/> wrote in message news:OG$Da0e9KHA.5464(a)TK2MSFTNGP05.phx.gbl... > I managed to fix it, only to encounter another problem: > When a new document is created through the above code, when I open the new > document, I get the message "The file cannot be opened because there are > problems with the contents" but no error detail. > > --- > frmsrcurl: > http://msgroups.net/microsoft.public.word.vba.general/Code-only-works-fully-when-run-from-VBA-editor
|
Next
|
Last
Pages: 1 2 Prev: Insert Landscape within Portrait Next: Using Excel Functions in VBA Word |