#1
|
|||
|
|||
Code line for adding Building Blocks to a macro in Visual Basic
I have done this before but forgot the line to add into Visual Basic to load Building Blocks so my macro with a building block inserted will work.
Last edited by Charles Kenyon; 01-07-2020 at 10:02 AM. Reason: Mark as solved |
#2
|
|||
|
|||
|
#3
|
|||
|
|||
Didn't see anything there that was of any help. It may help to say I remember it was a line that had something such as Load Building Blocks, that was to be added at the head of the macro, or the head of the part that actually was the Auto Text.
|
#4
|
|||
|
|||
Where can Building Blocks be stored?
|
#5
|
|||
|
|||
Quote:
One of teh building blocks is: Click or tap here to enter text. called for executive session. Note: "The Click or tap here" is auto text. This building block is used with time also. so the Macro is as follows: Sub OutOfOrder() ' ' OutOfOrder Macro ' ' Selection.Font.Bold = wdToggle Selection.Font.UnderlineColor = wdColorAutomatic Selection.Font.Underline = wdUnderlineSingle Selection.InsertDateTime DateTimeFormat:="h:mm am/pm", InsertAsField:= _ False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, _ InsertAsFullWidth:=False Selection.TypeParagraph Selection.Font.UnderlineColor = wdColorAutomatic Selection.Font.Underline = wdUnderlineNone Application.Templates( _ "C:\Users\cking\AppData\Roaming\Microsoft\Docu ment Building Blocks\1033\16\Building Blocks.dotx" _ ).BuildingBlockEntries("OutOfOrder").Insert Where:=Selection.Range, _ RichText:=True End Sub Now to get that to work when I first open My Word Template, I must open Building blocks, or there is a line that can be added to the Macro that loads building blocks so it loads when I first use my macro. I am trying to find out what teh wording is to add that to my Macro, so it will automatically load when first used. I hope this help in the explanation. Thank you |
#6
|
|||
|
|||
You need to add this line of code before you attempt to insert the building block:
Templates.LoadBuildingBlocks |
#7
|
|||
|
|||
OK that looks similar to the line I had been told before that I lost. I am having trouble finding where to add it. I tried several places, and so far noithing has worked. Am I missing something on how to add it?
|
#8
|
|||
|
|||
Any place in the macro you currently have before the line:
Code:
Application.Templates( _ "C:\Users\cking\AppData\Roaming\Microsoft\Docu ment Building Blocks\1033\16\Building Blocks.dotx" _ ).BuildingBlockEntries("OutOfOrder").Insert Where:=Selection.Range, _ |
#9
|
|||
|
|||
Quote:
It worked!!!! I had tried it before I responded, but I had put in Template.LoadBuildinglocks (Leaving off the s in Templates.) when I put it in correctly it worked. Again Thank you so much. |
#10
|
|||
|
|||
Note: This is Situation 3: Building Block stored in Building Blocks.dotx
in the link I gave you previously. |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Macro to list building blocks | yacov | Word VBA | 11 | 12-09-2019 06:13 AM |
Need help with Visual Basic for Presentations to make a Macro | Edward222 | PowerPoint | 0 | 05-30-2017 03:13 PM |
Problem batch adding autotext using Greg Maxey's Building Blocks Add-In | Genuine Gin | Word VBA | 5 | 12-16-2015 10:20 AM |
Building blocks show correctly in dropdown, but wrong building block populates in doc | wordgirl123 | Word | 0 | 10-03-2013 08:30 AM |
Visual basic code for Word 2003 template | KateAus | Word VBA | 4 | 09-09-2012 08:40 PM |