VBA macro to create word table

gmayor · #3 08-23-2021, 09:18 PM

I agree with Andrew, however ensure that you save the building block in the document template rather than the default normal template if anyone other than yourself is to use it.You can use the following to insert your autotext building block in a bookmark.

Code:

Sub AutoTextToBM(strbmName As String, oTemplate As Template, strAutotext As String)
'Graham Mayor - https://www.gmayor.com - Last updated - 10 Apr 2019
'strBMName is the name of the bookmark to fill
'oTemplate is the template with the autotext - probably ActiveDocument.AttachedTemplate
'strAutotext is the name of the autotext entry
Dim oRng As Range
    On Error GoTo lbl_Exit
    With ActiveDocument
        If .Bookmarks.Exists(strbmName) = True Then
            Set oRng = .Bookmarks(strbmName).Range
            Set oRng = oTemplate.AutoTextEntries(strAutotext).Insert _
                       (Where:=oRng, RichText:=True)
            .Bookmarks.Add Name:=strbmName, Range:=oRng
        End If
    End With
lbl_Exit:
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to identify text - create table w/text & page numbers	Cray_Z	Word VBA	7	01-05-2021 09:32 PM
How to I create a macro that dynamically creates a table, to enter questions, in the below format?	MathiasFC	Word VBA	11	01-14-2019 04:50 PM
Need Help Macro That Uses Pivot Table to Create New Sheet	Bob123456789	Excel Programming	13	03-14-2017 01:25 PM
Word Macro to delete table row and table header	NorthSuffolk	Word VBA	6	10-11-2016 05:04 AM
Create Table Form from Word Document	gsj224	Word VBA	3	07-31-2011 09:26 AM