Microsoft Office Forums Print out Quick Parts?

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 08-01-2019, 02:24 PM
ewormuth ewormuth is offline Print out Quick Parts? Windows 10 Print out Quick Parts? Office 2016
Novice
Print out Quick Parts?
 
Join Date: Jun 2018
Posts: 10
ewormuth is on a distinguished road
Default Print out Quick Parts?

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.
Reply With Quote
  #2  
Old 08-01-2019, 03:18 PM
Guessed's Avatar
Guessed Guessed is offline Print out Quick Parts? Windows 10 Print out Quick Parts? Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 1,260
Guessed has a spectacular aura aboutGuessed has a spectacular aura aboutGuessed has a spectacular aura about
Default

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
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
  #3  
Old 08-01-2019, 03:39 PM
ewormuth ewormuth is offline Print out Quick Parts? Windows 10 Print out Quick Parts? Office 2016
Novice
Print out Quick Parts?
 
Join Date: Jun 2018
Posts: 10
ewormuth is on a distinguished road
Default

Thank you -- I don't know how to create a macro, but I'll try to find out.
Reply With Quote
  #4  
Old 08-03-2019, 06:44 AM
Stefan Blom's Avatar
Stefan Blom Stefan Blom is offline Print out Quick Parts? Windows 10 Print out Quick Parts? Office 2019
Expert
 
Join Date: Aug 2011
Posts: 3,226
Stefan Blom is a glorious beacon of lightStefan Blom is a glorious beacon of lightStefan Blom is a glorious beacon of lightStefan Blom is a glorious beacon of lightStefan Blom is a glorious beacon of light
Default

For macro installation instructions, see Installing Macros.
__________________
Stefan Blom
Microsoft Word MVP
Reply With Quote
Reply

Tags
quick parts

Thread Tools
Display Modes


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


All times are GMT -7. The time now is 05:43 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2019 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft