VBA - How do I set an object variable?

[Gwynne]

Hello All,

I am a nu-B and don’t know much about programming. I have been tasked with converting WP 5.1 macros to Word XP and boy, do I need help!

I have created a template, and am using InputBoxes to gather information to be plugged into the document. At one point the user will have to make a decision as to whether a document was recorded in a Volume/Page or a Transaction. I have created a UserForm with 2 radio buttons allowing the user to choose one or the other. I need the UserForm to appear at the right time, but keep getting an error 91 “Object variable or With block variable not set.” My question is: How do I set an object variable?

Here is my code so far:

Private Sub Document_New()

'declare vars
Dim strCaseNum, strDefName, strCrimCrt As String
Dim strVolume, strPage, strTransNum As String
Dim frmVolumePageOrTransaction As UserForm
Dim optVolumePage As OptionButton

'set name vars to input
strCaseNum = InputBox("Enter the Case Number.&quot
strDefName = InputBox("Enter the Defendant's Name.&quot
strCrimCrt = InputBox("Enter the Numbered Court.&quot
frmVolumePageOrTransaction.Show
If optVolumePage = True Then
strVolume = InputBox("Enter The Volume Number.&quot
strPage = InputBox("Enter The Page Number.&quot
Else
strTransNum = InputBox("Enter the Transaction Number&quot
End IfstrVolume = InputBox("Enter The Volume Number.&quot
strPage = InputBox("Enter The Page Number.&quot
strTransNum = InputBox("Enter the Transaction Number&quot

'set field results to name vars
ActiveDocument.FormFields("Text1&quot.Result = strCaseNum
ActiveDocument.FormFields("Text2&quot.Result = strDefName
ActiveDocument.FormFields("Text3&quot.Result = strCrimCrt
ActiveDocument.FormFields("Text7&quot.Result = strVolume
ActiveDocument.FormFields("Text8&quot.Result = strPage
ActiveDocument.FormFields("Text9&quot.Result = strTransNum

End Sub

Any help would be appreciated before I become bald!!

Gwynne

 

[Zathras]

Gwynne: You did change the name in the form properties to "frmVolumePageOrTransactio" when you changed the macro, didn't you?