A yes or no OptionButton in Userform inserts a building block

HighSierra · #1 06-12-2015, 08:03 PM

Hi All,

I've spent hours trying to figure this out....

I feel really certain this is possible.

I have a question in a Userform with OptionButton 13 and 12 corresponding to Yes or No. If the user selects Yes, I want a buildingblock that I already created in the template called AddtValSiteBB to insert after a bookmark already existing in the template. If no, I want nothing to happen.

I have this so far:

Private Sub CommandButton1_Click()

Dim AddtValSiteBB As BuildingBlock
If OptionButton13 = True Then AddtValSiteBB =
If OptionButton13 = False Then AddtValSiteBB = " "

End If

With ActiveDocument
.Bookmarks("AddtValSites").Range _
.InsertAfter AddtValSiteBB
End With

End Sub

I tried all sorts of ways to define the AssValSiteBB as the building block in the active document...to no avail...

Any help would be AMAZING.

Thanks!

gmayor · #2 06-14-2015, 07:32 AM

The following should work if the builkding block is stored in the document template

Code:

Private Sub CommandButton1_Click()
Dim oRng As Range
    Me.Hide
    If Me.OptionButton13.Value = True Then
        Set oRng = ActiveDocument.Bookmarks("AddtValSites").Range
        ActiveDocument.AttachedTemplate.BuildingBlockEntries("AddtValSiteBB").Insert _
                Where:=oRng
    End If
lbl_Exit:
    Exit Sub
End Sub

HighSierra · #3 06-14-2015, 08:17 PM

!!!! THANK YOU !!!!

That totally worked - I hadn't really gotten used to using oRng ranges. Thank you!

gmayor · #4 06-14-2015, 11:19 PM

You don't actually need the range name on this occasion, though I tend to use them through force of habit.

Code:

ActiveDocument.AttachedTemplate.BuildingBlockEntries("AddtValSiteBB").Insert _
                Where:=ActiveDocument.Bookmarks("AddtValSites").Range

would have done the job.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How-to: Add a quickpart, field or Building Block Gallery Content Control based on a UserForm	HighSierra	Word VBA	0	05-06-2015 08:20 PM
How to share building block macros?	rdross51	Word VBA	7	03-12-2015 08:59 AM
Custom Building Block File Locations	ptmuldoon	Word	5	01-03-2015 08:45 AM
how to make building block content control determine bb to display elsewhere	jamles12	Word VBA	5	11-16-2013 11:38 AM
Building blocks show correctly in dropdown, but wrong building block populates in doc	wordgirl123	Word	0	10-03-2013 08:30 AM