Microsoft Office Forums - View Single Post - [Solved] Adding building block in bulk with *Formatting*

Souriane · 12-21-2022, 12:43 PM

Hi!

I have been using a code (that, I believe, is from Greg Maxey?) which insert in bulk building blocks to a template that is later share with my co-workers. The titles and text for the building blocks are taken by the code in a table in a document. And when I write them in the table, I always make sure to use Normal style which is in Arial 12.

The problem is when we use the building blocks, they are inserted with the "Normal Style" of the document. So if the document's Normal style is in Times but the document was created in Arial, the block is added in Times.

All our documents are in Arial 12 and I want the building block to be also Arial 12.

What should I change to make it possible?

Here is a part of the code:

Code:

For ia = 1 To cTable.Rows.Count
      Set aPrompt = cTable.Cell(ia, 1).Range
      aPrompt.End = aPrompt.End - 1
      Set aTextPart = cTable.Cell(ia, 2).Range
      aTextPart.End = aTextPart.End - 1
      Set objBB = oTmpB.BuildingBlockEntries.Add(Name:=aPrompt, _
          Type:=wdTypeAutoText, Category:=sCategory, Range:=aTextPart)
   Next ia

Thank you for your help!

Souriane