UserForm of Autotext Entries

ptmuldoon · #1 02-11-2016, 12:00 PM

Its been a while since I've last looked at any VBA, both word and excel and now trying to re-familiarize myself with everything.

I'm working to create a listing of autotext entries for my staff/users to have available to insert into various places in a document. And I'm creating a separate template/addin file that will store all of those autotext entries and load on startup.

Now, I want to be create a userform that will list those entries and the user can then insert it into the document.

Could someone help me remember/learn how to generate a list of autotext entries, preferable to only list them from a specific file, gallery, and category?

Thanks
PT

EDIT. Slowly Making Progress. I was able to learn how to list out the items in my template/add in file. I hope to learn now how to expand more on this to work with a chained select on the BuildingBlock Type and have a 'preview' of the building block value.

Code:

Private Sub UserForm_Initialize()
 Dim objTemplate As Template
    Dim oBuildingBlock As BuildingBlock
    Dim i As Integer
    Dim sPath As String

' Set the template to store the building block
sPath = Environ("APPDATA") & "\Microsoft\Word\STARTUP\ReportMacros.dotm"
Set objTemplate = Templates(sPath)

    For i = 1 To objTemplate.BuildingBlockEntries.Count
            Set oBuildingBlock = objTemplate.BuildingBlockEntries.Item(i)
            Debug.Print oBuildingBlock.Name + vbTab _
                + oBuildingBlock.Type.Name + vbTab _
                + oBuildingBlock.Category.Name + vbTab _
                + objTemplate.FullName
        If oBuildingBlock.Type.Name = "AutoText" Then
             ComboBox1.AddItem oBuildingBlock.Value
        End If
        Next
  
End Sub

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Userform calls other userform, then populate worksheet	Lehoi	Excel Programming	0	02-03-2016 02:58 PM
VBA Code in a UserForm module to delete a Command Button which opens the userform	Simoninparis	Word VBA	2	09-21-2014 03:50 AM
Is it possible to take an input from a UserForm in one document to a UserForm in a do	BoringDavid	Word VBA	5	05-09-2014 09:08 AM
Using Word autocorrect and autotext entries in outlook	dswapp	Outlook	2	11-24-2010 10:18 AM
Maintaining AUtotext Entries from an external table.	kelzud	Word Tables	0	07-28-2009 01:31 PM