Inserting Building Blocks using UserForm

Question

Hello again,

I have another question regarding another question I had earlier on.

I got this code from Greg Maxey (thank you very much!):

Private Sub CommandButton1_Click()

'A basic Word macro coded by Greg Maxey

Dim oBm As Bookmark

Dim oRng As Word.Range

  Set oBm = ActiveDocument.Bookmarks("bmTarget")

  Set oRng = NormalTemplate.BuildingBlockTypes _

    (wdTypeAutoText).Categories("General").BuildingBlocks(Me.ComboBox1.Value).Insert(oBm.Range)

  ActiveDocument.Bookmarks.Add "bmTarget", oRng

  Me.Hide

End Sub

I wanted to have a userform with a single drop down (combobox), that asks the user to choose between "option1" and "option2". The bookmark in the document is the same, but the building block will either be "BBoption1" or "BBoption2", depending on what was chosen in the combobox.

Wouldn't there need to be some part of the code representing that? So that one part puts the "BBoption1" in the document and one puts "BBoption2" in it?

Thank you very much!!!

Answer 1

Where do you have your code?

This should be in the ThisDocument module:

Private Sub Document_Open()

UserForm1.Show

End Sub

The rest should be in the userform module.

Answer 2

Hey

It doesn't open the UserForm when I open the document and if then manually "run" it, all it does is open VBE (while inserting the BB)? I just don't understand, why it always opens VBE also?

It's saved as .dotm. And I don't get an error message, it's just not working for some reason.

Answer 3

Mel

Your code works fine here.  What problem (error are you getting)?

Answer 4

Unfortunately it doesn't. This is all the code I'm using (am I missing something?).

Private Sub CommandButton1_Click()

Dim oBm As Bookmark

Dim oRng As Word.Range

  Set oBm = ActiveDocument.Bookmarks("bmTarget")

  Set oRng = NormalTemplate.BuildingBlockTypes _

    (wdTypeAutoText).Categories("General").BuildingBlocks(Me.ComboBox1.Value).Insert(oBm.Range)

  ActiveDocument.Bookmarks.Add "bmTarget", oRng

  Me.Hide

End Sub

Private Sub Document_Open()

UserForm1.Show

End Sub

Private Sub UserForm_Initialize()

    With ComboBox1

        .AddItem "BBoption1"

        .AddItem "BBoption2"

    End With

lbl_Exit:

  Exit Sub

End Sub

My bookmark is called bmTarget, the BB are AutoText, category General, and in the "normal" template.

Thank you!

Answer 5

If you have the "BBoption1" and "BBoption2" in the combobox, then the Me.ComboBox1.Value will take care of it.