View Single Post
 
Old 09-02-2020, 05:47 PM
Guessed's Avatar
Guessed Guessed is online now Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,176
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

Where possible, you should make use of the existing features before going to code. It looks like you jumped #2 but #1 and #3 could be combined if the Cover Page you have stored includes a section break. The section break contains the page setup of the section that PRECEDES it so including the section break at the end of the Cover Page therefore includes the page setup and header/footer settings of the Cover Page.

Similarly, if you wanted to include a section break at the start of the "Back Cover" building block, it would set the page setup and header/footer settings of Section 2 - effectively merging #3 and #4 requests.

I would have to ask why you don't simply include the cover and back page in the merge source document before resorting to code at all. I assume it has to get added post-processing because of your script.

Adding a BuildingBlock at a particular location is straightforward but you need to know a few things about it: which template is it stored in, what is the building block's type, category and name.

Code:
Dim aRng as Range
Set aRng = ActiveDocument.Range(0,0)   ActiveDocument.AttachedTemplate.BuildingBlockTypes(wdTypeCustomCoverPage).Categories("General").BuildingBlocks("Front Cover").Insert Where:=aRng, RichText:=True
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote