Thread: VBA Word - Building Block (AutoText) - Array - Replace Text with Specific Building Blocks
View Single Post
 
Old 01-03-2016, 06:04 AM
jc491's Avatar
jc491 jc491 is offline Windows 10 Office 2016
VBA Novice
  
Join Date: Sep 2015
Location: UK
Posts: 55
jc491 is on a distinguished road
Default
Hi Graham,
pardon me for not reading your instructions, when code blinds me, so does my ability to read .

I wish to the high stars - Microsoft will sort out the horrendous building block organizer in the next update its long overdue.

I updated the building block to match the search words

An error popped up here

Code:
Application.Templates(ActiveDocument.AttachedTemplate). _
                        BuildingBlockEntries(Rng.Text).Insert _
                        Where:=Rng, _
                        RichText:=True
The building blocks are in template : Building blocks - as I can see in the organiser


Test Example

Text A1 Replace Building Block - A1

Text A2 Replace Building Block - A2I will download the add in and try the second approach as well
I am indebted to you for your help

Thank you Graham

J
Reply With Quote