Content blocks stop working when changing file path

gorkac · #16 03-21-2022, 01:01 AM

I have managed to replace:

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:
variable Ruta in:

Code:

Application.Templates("Ruta"). _
            BuildingBlockEntries("INICIO Y EXPOSICION DE HECHOS").Insert Where:=Selection.Range, RichText _
            :=True

Using this simple code. Now I will upload more information on how I have organized the content blocks, etc.

Code:

Sub Ruta()
Dim InicioRuta As String
Dim FinalRuta As String
Dim Ruta As String
Dim NumeroAT As String
InicioRuta = "L:\02.- ATESTADOS 2022\ATESTADOS PAMPLONA\2. ACCIDENTES CIRCULACION"
FinalRuta = "BAEI – INFORME TECNICO.docm"
NumeroAT = "\AT-1234568\"     'Here I will create a dialog for the user to indicate what AT-xxxxxxx number is going to be given.
Ruta = InicioRuta + NumeroAT + FinalRuta
MsgBox Ruta 'It returns the path, so this works for now.
End Sub

Here, MsgBox Ruta, effectively returns the path but when putting this Ruta variable where I indicated above, it does not have the effect, but it does not give an error either.

I have tried to put the same path with and without variable. With no variable, BuildingBlockEntries("INICIO Y EXPOSICION DE HECHOS") is inserted. But with the variable Ruta, no.

Let me explain, this code:

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

is the same as:

Code:

Application.Templates("Ruta"). _
            BuildingBlockEntries("INICIO Y EXPOSICION DE HECHOS").Insert Where:=Selection.Range, RichText _
            :=True

if in the Ruta macro I put these values:

Code:

Sub Ruta()
Dim InicioRuta As String
Dim FinalRuta As String
Dim Ruta As String
Dim NumeroAT As String
InicioRuta = "L:\06. MODELOS DE DOCUMENTOS\01 ATESTADOS\ACCIDENTES DE CIRCULACIÓN\BAEI"
FinalRuta = "BAEI – INFORME TECNICO.docm"
NumeroAT = "\Informe Tecnico\"     'Here I will create a dialog for the user to indicate what AT-xxxxxxx number is going to be given.
Ruta = InicioRuta + NumeroAT + FinalRuta
MsgBox Ruta 'It returns the path, so this works for now. The message returns L:\06. MODELOS DE DOCUMENTOS\01 ATESTADOS\ACCIDENTES DE CIRCULACIÓN\BAEI\Informe Tecnico\BAEI - INFORME TÉCNICO.dotm
End Sub

This doesn't give an error, but it doesn't do anything. HELP

Code:

Application.Templates("Ruta"). _
            BuildingBlockEntries("INICIO Y EXPOSICION DE HECHOS").Insert Where:=Selection.Range, RichText _
            :=True

We are close to getting it

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