Content blocks stop working when changing file path

Charles Kenyon · #1 03-17-2022, 02:39 PM

See Using VBA to Insent an AutoText Entry or other Building Block.
Have your macro and the building block in the same template and use the fullname of ThisDocument as your source location.

gorkac · #2 03-18-2022, 12:43 PM

Quote:

Originally Posted by Charles Kenyon

See Using VBA to Insent an AutoText Entry or other Building Block.
Have your macro and the building block in the same template and use the fullname of ThisDocument as your source location.

I didn't explain myself well, sorry.
I have the template in

Code:

Application.Templates( _
            "C:\Users\gorka\Desktop\IT GATu 2.dotm"). _
            BuildingBlockEntries("HOME AND EXPOSURE").Insert Where:=Selection.Range, RichText _
            :=True

If I work from that directory, the macros work. But my co-workers have to save a .docm copy in the path L:\02.- Reports 2022\File"folder with random number"\IT GATu 2.dotm
If they try to rework the document from that new location, the building blocks no longer work.
Note: folder with random number are folders that they must name as a long number. For example: L:\02.- Reports 2022\File\1725849\IT GATu 2.dotm

Peterson · #3 03-18-2022, 06:36 PM

It's unclear to me whether your users are saving a copy of the template to the same folder in which they save a copy of the file? In other words, for every file they make, they also make a copy of the template??

My understanding is that DOCM files cannot contain building blocks; only templates can. Unless I'm wrong, what I would do is modify your macros per the code below:

Code:

Sub CustomizeLocalFilepathsToUsername() ' 03/18/2022

    ' Create a variable for the filepath to your template:
    Dim strFilepath As String
    
    ' Use the Environ("UserProfile") function to get the first portion of the
    ' user's file path -- that is, C:\User\username -- and concatenate with the
    ' rest of the path to your template in the STARTUP folder:
    strFilepath = Environ("UserProfile") & _
    "\AppData\Roaming\Microsoft\Word\STARTUP\IT GATu 2.dotm"
    
    ' Here's what the full string looks like:
    Debug.Print strFilepath
    
    ' You need to run this line to access your template's building blocks:
    Application.Templates.LoadBuildingBlocks
    
    ' Modify the building-block paths in your template by replacing the hard-
    ' coded paths to the template with the "strFilepath" variable:
    Application.Templates(strFilepath).BuildingBlockEntries("HOME AND EXPOSURE").Insert _
    Where:=Selection.Range, RichText:=True
End Sub

Next, have your users save a copy of the template -- that is, the DOTX file -- to their Startup folder:

C:\Users\%username%\AppData\Roaming\Microsoft\Word \STARTUP

Note that your users won't be able to create new documents based on this template if you put it here. If they need to do that, then it'd be better to store the template in their default templates location, which, unless they've changed the default location, is here:

C:\Users\%username%\AppData\Roaming\Microsoft\Temp lates
If you're going to have your users store the template here, modify the code above with this path, not the STARTUP path...

gorkac · #4 03-19-2022, 05:47 AM

Thanks in advanced.
STEP 1:
Captura1.png
This file cannot be removed, it is just to copy and paste to the new path.

Content blocks in this file:

Code:

Application.Templates( _
"L:\06. MODELOS DE DOCUMENTOS\01 ATESTADOS\ACCIDENTES DE CIRCULACIÓN\BAEI\Informe Tecnico\BAEI - INFORME TÉCNICO.dotm"). _
BuildingBlockEntries("INICIO Y EXPOSICION DE HECHOS").Insert Where:=Selection.Range, RichText _
:=True

STEP 2:

New location:
L:\02.- ATESTADOS 2022\ATESTADOS PAMPLONA\2. ACCIDENTES CIRCULACION\unknown variable folder name\BAEI – INFORME TECNICO.docm
Captura7.PNG

STEP 3:
Ask the user for the name of that new folder.

Captura5.PNG

Worker copy and paste to that new location the file:
L:\02.- ATESTADOS 2022\ATESTADOS PAMPLONA\2. ACCIDENTES CIRCULACION\AT-14367894\BAEI – INFORME TECNICO.docm

Captura6.PNG

STEP 4:

THIS IS WHAT I NEED:

Code that replaces the content block path of the original file with the new path
to do this in the file that the worker has taken to its new location:
REPLACES:

Code:

Application.Templates( _
"L:\06. MODELOS DE DOCUMENTOS\01 ATESTADOS\ACCIDENTES DE CIRCULACIÓN\BAEI\Informe Tecnico\BAEI - INFORME TÉCNICO.dotm"). _
BuildingBlockEntries("INICIO Y EXPOSICION DE HECHOS").Insert Where:=Selection.Range, RichText _
:=True

BY:

Code:

Application.Templates( _
" L:\02.- ATESTADOS 2022\ATESTADOS PAMPLONA\2. ACCIDENTES CIRCULACION\AT-14367894\BAEI – INFORME TECNICO.docm"). _
BuildingBlockEntries("INICIO Y EXPOSICION DE HECHOS").Insert Where:=Selection.Range, RichText _
:=True

This way the contentblocks would work regardless of the route that the user saves.

Can be done?

gorkac · #5 03-19-2022, 03:33 AM

Quote:

Originally Posted by Charles Kenyon

See Using VBA to Insent an AutoText Entry or other Building Block.
Have your macro and the building block in the same template and use the fullname of ThisDocument as your source location.

how do I do that?

Charles Kenyon · #6 03-19-2022, 11:29 AM

Quote:

See Using VBA to Insent an AutoText Entry or other Building Block.
Have your macro and the building block in the same template and use the fullname of ThisDocument as your source location.

Quote:

Originally Posted by gorkac

how do I do that?

Save both the building block and the macro in the same template. You can decide where to save both of these as you create them or move them later. Where can Building Blocks be stored? Organizing your macros by Beth Melton, Word MVP

In that situation, the location of your building block for your code will be in the template:

Code:

ThisDocument.Fullname

ThisDocument always refers to the name of the document that holds the macro. Fullname gives both the name and path automatically.

If the building block is used in multiple templates, it should be in a loaded global template and have a unique name. In that case, look at the macro for situation 3 on my linked page.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mapped Content Controls in Building Blocks?	Charles Kenyon	Word	6	05-21-2021 05:40 PM
Stop hyperlink to a file from changing address - causes problems with pdf	c.davidson	Word	1	09-15-2020 11:11 PM
New building blocks have stopped working (Word 2016)	Genericname1111	Word	0	05-20-2020 04:17 PM
Get image path from content control field - NO VBA possible	thoerzer	Word	5	10-10-2019 12:10 AM
Changing Absolute path to Relative in a Macro	MrKim	Excel Programming	13	01-26-2019 02:18 PM