Userform to output specific text

~clover · #1 05-30-2019, 08:14 PM

Hi all,

Working on a project for work, unfortunately new to VBA and kinda learning as I go. Searched all over today and have not been able to figure this out. I want to create a userform to have a dialog popup with a question and two command button options "yes" or "no" and depending on which option is selected, output specific text at a particular place in the document. Example: dialog box asks "Is the cow green?" options "yes" or "no" if yes is selected "the cow is green" is input into a specific section of the word document, if no is selected "the cow is not green" is input in the same section of the document. Could anyone point me in the right direction where I'm messing up with the code? (obviously this isn't the specific text, but to make things simple we'll use that for the example)
Thanks!!

CommandButton1_Click()

With ActiveDocument
.Bookmarks("Text1").Range _
.InsertBefore TextBox1
the cow is green
.Bookmarks("Text2").Range _
.InsertBefore TextBox2

the cow is not green
End With

UserForm1.Hide

End Sub

gmayor · #2 05-31-2019, 02:37 AM

See http://www.gmayor.com/Userform.htm and in particular the FillBM function then you need something like.

Code:

Private Sub CommandButton1_Click()
    With ActiveDocument
        If UCase(TextBox1.Text) = "YES" Then
            FillBM "Text1", "The cow is green"
        Else
            FillBM "Text1", "The cow is not green"
        End If
    End With
    Unload Me
End Sub

~clover · #3 06-01-2019, 07:04 AM

Quote:

Originally Posted by gmayor

See http://www.gmayor.com/Userform.htm and in particular the FillBM function then you need something like.

Code:

Private Sub CommandButton1_Click()
    With ActiveDocument
        If UCase(TextBox1.Text) = "YES" Then
            FillBM "Text1", "The cow is green"
        Else
            FillBM "Text1", "The cow is not green"
        End If
    End With
    Unload Me
End Sub

This worked.. thanks so much!!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Outlook Template: Trying to Output text and fields	back2ict	Outlook	0	07-03-2018 08:57 AM
Linking Specific text fields in PP to specific cells in an Excel table	GWRW1964	PowerPoint	0	02-26-2018 07:37 AM
How do I output special character to a specific cell (x,y)?	norwood	Word VBA	2	01-31-2014 01:26 PM
How do I output text to a specific cell (x,y)?	norwood	Word VBA	2	01-31-2014 08:43 AM
Setting focus to specific word document from UserForm	SaneMan	Word VBA	5	04-01-2011 03:11 PM