Newbie - Help - VBA script

[jajukhan]

Hi,

I am a newbie and was hoping for some help. I have an existing word 2010 document, what I would like to do is get people to either accept or reject (i.e. Click Yes or No) to my Terms & Conditions before opening that Word document.

I have used the below code as a test and it works great. But now instead of a pop up box. I need something slightly bigger where I can show the entire Terms & Conditions statement.

What I have in mind is, a pop-up form/box that shows the entire T&C statement but with a scroll bar so that users are not overwhelmed. Then, simply click Yes or No.

Thanks in advance.

Private Sub Document_Open()

Dim wdApp As Word.Application
Set wdApp = GetObject(, "Word.Application")

Dim TermsConditions As String

TermsConditions = MsgBox("Greetings", vbYesNo, "Greetings")

If (TermsConditions = vbYes) Then
Exit Sub

ElseIf (TermsConditions = vbNo) Then
wdApp.ActiveDocument.Close


End If


End Sub

[westconn1]

add a userform with a textbox and a couple of commandbuttons, in the document_open, you can show the userform so it conceals the entire document, either make the userform bigger or the application window smaller, you can resize on closing the userform

in the yes button have unload me, to close the form
in the no button, thisdocument.close, i think the form will close anyway, but if not add unload me

fyi the procedure you posted could be

Private Sub Document_Open()

Dim TermsConditions As INTEGER

TermsConditions = MsgBox("Greetings", vbYesNo, "Greetings")

If (TermsConditions = vbNo) Then
   ThisDocument.Close
End If

End Sub

[jajukhan]

Thanks westconn1. I'll give this a go.