scripting the insertion of a quick block entry (word 2007)

[abc]

Hi All,

I have entered an entry in my bulding blocks as follows:

Name: myentry
Gallery: QuickParts
Category: General
Template: Building Blocks.dotx
Behavior: Insert Content.

If I open the Building Blocks Organize I can insert the entry in my
document with no problems.


Now I would like to script this, so that i can insert "myentry" using a
key sequence. So I looked up some example code and came up with this script:


--------------------------------------------
Sub MyBldBlock()



Dim objTemplate As Template
Dim objBB As BuildingBlock



Set objTemplate =
ActiveDocument.AttachedTemplate.BuildingBlockEntries("building blocks.dotx")




Set objBB =
objTemplate.BuildingBlockTypes(wdTypeQuickParts).Categories("General").BuildingBlocks("myentry")
objBB.Insert Selection.Range

End Sub

---------------------------------------------------------------------------

But it does not work. It looks like I am not linking correctly the the
Building blocks.dotx template...

Any suggestion?

Thanks a lot for your help!

 

[Doug Robbins - Word MVP on news.microsoft.com]

See the following page of fellow MVP Greg Maxey's website:

http://gregmaxey.mvps.org/Word2007_Building_Blocks_&_AutoText.htm

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[Greg Maxey]

Something like this:

Sub ScratchMacro()
Dim oTmp As Template
'Ensure BB template is loaded.
Templates.LoadBuildingBlocks
For Each oTmp In Templates
If oTmp.Name = "Building Blocks.dotx" Then Exit For
Next oTmp
oTmp.BuildingBlockEntries("myentry").Insert Selection.Range
End Sub