Buenas tardes @MANTONIOPM
Un gusto coincidir @Israel Cassales siempre muy interesantes sus participaciones.
Me permito "meter mi cucharita" para aclarar un tema que me parece importante: El objeto Range tiene dos propiedades importantes: Formula y FormulaLocal. Cuando usamos la primera, la fórmula se debe escribir siempre en inglés y cuando usamos la segunda, se escribe en el idioma que tiene instalado el usuario. Por eso en mis macros siempre uso Formula y las hago en inglés, porque así no me arriesgo a que no funcione en otras computadoras. Por lo tanto, no debería haber ningún problema con el idioma.
Por
DiegoPC, · publicado
Hola a todos¡ Quiero actualizar el contenido de una Content Control Text tras abrir el archivo, tal que así:
Sub Sample()
'Ubicación y nombre de la plantilla
Dim wArch As String
wArch = Hoja1.Range("C3").Text & Hoja1.Range("C2").Text & ".docx"
'Con la variable siguiente definimos que vamos a trabajar con un documento de Word.
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
'Abrimos el documento
objWord.Documents.Open wArch
'Introducir un nuevo texto en el cuadro
Dim cc As ContentControl
For Each cc In ActiveDocument.ContentControls
If cc.Title = "Text1" Then
cc.Range.Text = "Hello World!"
Exit For
End If
Next cc
End Sub
Sin embargo, me dice que debo definir "cc" . ¿Podríais ayudarme?
Muchas gracias de antemano