Editing Multiple Building Blocks

Question

I need to edit 36 Building Blocks in Word 2013. Is there a way that I can change the text 2014 to 2015 in multiple Building Blocks without having to insert each one, change it and then Save it back to their Building Blocks locations'? I am hoping to find a way to be able to just change the Code in the Building Block.dotx but am unable to find any reference to being able to do this. Thank you.

Answer 1

The concept is the same.  Try:

Sub ScratchMacro()

 'A basic Word macro coded by Greg Maxey

 Dim oTmp As Template

 Dim oBB As BuildingBlock

 Dim lngIndex As Long

 Templates.LoadBuildingBlocks

 For Each oTmp In Templates

    If oTmp.Name = "Building Blocks.dotx" Then

    For lngIndex = 1 To oTmp.BuildingBlockEntries.Count

      Set oBB = oTmp.BuildingBlockEntries.Item(lngIndex)

      oBB.Value = Replace(oBB.Value, "2015", "2016")

    Next lngIndex

    Exit For

  End If

  Next oTmp

  Set oTmp = Nothing

 End Sub

I have several tools for working with building blocks on my website or I can create a custom add-in for you if you are interested.

Answer 2

Dawn,

You're welcome.  Of course that should have been "2014" and "2015."  You need to be aware that the code is indiscriminate.  It will affect "ANY" building block in the template containing the replacement term.  Not just the 36 that you may be concerned about.

Answer 3

Thank you, thank you, thank you. It worked perfectly.

I will continue to follow your website for future information. Thanks again, Dawn

Answer 4

You could do it with a macro.  The following code assumes the buildingblocks are defined in the normal template:

Sub ScratchMacro()

'A basic Word macro coded by Greg Maxey

Dim oTmp As Template

Dim oBB As BuildingBlock

Dim lngIndex As Long

Set oTmp = ThisDocument.AttachedTemplate

For lngIndex = 1 To oTmp.BuildingBlockEntries.Count

  Set oBB = oTmp.BuildingBlockEntries.Item(lngIndex)

  oBB.Value = Replace(oBB.Value, "2014", "2015")

Next lngIndex

End Sub

No, I did not define them in the normal template, they are in a Building Block.dotx. I have multiple users that use these buildingblocks and I thought that it would be easier to create the building blocks file so I wouldn't have to overlay their existing Normal templates every year. This is the first year that I have used the buildingblocks, previously for the last several years, I have overlaid their existing normal templates, which was a pain because I would have to re-create their new template to have the same attributes as the one that I was replacing, (Quick Access Toolbar, Ribbon, etc....)

Answer 5

You could do it with a macro.  The following code assumes the buildingblocks are defined in the normal template:

Sub ScratchMacro()

'A basic Word macro coded by Greg Maxey

Dim oTmp As Template

Dim oBB As BuildingBlock

Dim lngIndex As Long

Set oTmp = ThisDocument.AttachedTemplate

For lngIndex = 1 To oTmp.BuildingBlockEntries.Count

  Set oBB = oTmp.BuildingBlockEntries.Item(lngIndex)

  oBB.Value = Replace(oBB.Value, "2014", "2015")

Next lngIndex

End Sub