VBA coding to insert a word table using quickparts and insert table menu

gmaxey · #2 02-12-2020, 08:54 AM

To insert a named building block from the Built-In Building Blocks.dotx file you can use:

Code:

Sub InsertBuildingBlock()
Dim oTmp As Template
  Templates.LoadBuildingBlocks
  For Each oTmp In Templates
    If UCase(oTmp.Name) = "BUILT-IN BUILDING BLOCKS.DOTX" Then
      Exit For
    End If
  Next oTmp
  If Not oTmp Is Nothing Then
    oTmp.BuildingBlockTypes(wdTypeTables).Categories("Built-in").BuildingBlocks("With Subheads 1").Insert Where:=Selection.Range, RichText:=True
  End If
lbl_Exit:
  Exit Sub
End Sub

You could create your own custom building block in that template or gallery with the correct title and number of rows/columns.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Insert Excel cells Word Table BUT Fit?	markg2	Word Tables	9	02-09-2020 02:25 PM
Insert a Excel table in an existing PowerPoint table	Vallin	PowerPoint	1	03-09-2015 06:25 AM
Insert a Word Table into an Excel cell	Kapoof	Excel	1	02-18-2014 02:12 PM
Word 2007: Insert Para after Table	rphox2003	Word	10	03-06-2013 11:13 PM
Insert table in document - automatically updates second table in summary?	Mechanic	Word	2	08-01-2012 09:44 PM