Print out Quick Parts?

ewormuth · #1 08-01-2019, 02:24 PM

I have a lot of Quick Parts that I've added over time. Is there a way to print out my quick parts so I can review them? Thanks.

Guessed · #2 08-01-2019, 03:18 PM

You will need a macro to do this. The macro below inserts all the building blocks in the attached template into the current document. Depending on where you have saved your building blocks, you will probably need to modify the macro to do the same for your BB storage template. It wouldn't be difficult to modify this code to do all templates but that can get ugly if you haven't cleaned out your default Building Blocks template yet.

Code:

Sub InsertAllTemplateBBs()
  Dim i As Integer, oTemplate As Template, sName As String
  Dim iBB As Integer
  Set oTemplate = ActiveDocument.AttachedTemplate
  iBB = oTemplate.BuildingBlockEntries.Count
  If iBB > 0 Then
    For i = 1 To iBB
      With oTemplate.BuildingBlockEntries.Item(i)
        sName = .Type.Name & ">" & .Category.Name & ">" & .Name
        Selection.TypeText "===================================" & vbCr & sName & vbCr
        oTemplate.BuildingBlockTypes(.Type.Index).Categories(.Category.Name).BuildingBlocks(.Name).Insert _
              Where:=Selection.Range, RichText:=True
        Selection.TypeParagraph
      End With
    Next
  End If
End Sub

ewormuth · #3 08-01-2019, 03:39 PM

Thank you -- I don't know how to create a macro, but I'll try to find out.

Stefan Blom · #4 08-03-2019, 06:44 AM

For macro installation instructions, see Installing Macros.

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using refernces with quick parts	general_cluster	Word	0	01-11-2018 12:39 PM
Sharing Quick Parts	katrinao	Word	3	03-04-2016 07:44 AM
Quick Parts, Fill-In	FFT	Word	2	08-12-2014 05:49 AM
Quick Parts	tmneal74	Word	1	11-13-2012 06:04 PM
Quick parts in doc file	alokmay	Word	1	06-14-2011 04:46 PM