Buenos tardes, primero antes de nada daros las gracias por este foro.
Soy novato en esto, llevo usando desde hace años plantillas en mi trabajo con campos de texto (control formulario) donde después los ref al marcador.
Empece mirando videos en youtube siendo autodidacta pero no consigo hacer el código donde el userform para que no se cargue el Control formulario (campo de texto heredado)
Conseguí hacer este código con la hora pero no se hacerlo con el nombre y apellidos ¿?
Private Sub Document_New()
Dim marcador As String
Dim valor As String
valor = Format(Now, "Short Time")
marcador = "HoraInicioTrabajo"
If ActiveDocument.Bookmarks.Exists("HoraInicioTrabajo") = True Then
ActiveDocument.FormFields("HoraInicioTrabajo").Select
With Selection.FormFields(1)
.Name = "HoraInicioTrabajo"
.EntryMacro = ""
.ExitMacro = ""
.Enabled = True
.OwnHelp = False
.HelpText = ""
.OwnStatus = True
.StatusText = ""
With .TextInput
.EditType Type:=wdRegularText, Default:=valor, Format:=""
.Width = 0
End With
End With
Else:
Debug.Print ("El marcador " & marcador & " no existe.")
MsgBox "El marcador " & marcador & " no existe.", _
vbCritical, "Falta marcador!"
End If
Call Buttonavisoplantilla_Click
Cual seria el codigo si quisieras poner un texto y relacionarlo en el marcador para que no lo borre el cuadro heredado (Así me lo borra)
Private Sub Botonregistrar_Click()
Dim nombrex As Range 'sirve para crear variables Objetos Range de los nombres de los marcadores con x al final del nombre del marcador
Set nombrex = ActiveDocument.Bookmarks("nombre").Range 'con esta linea se llaman a los marcadores que pones en el word
nombrex = Me.txt_nombre.Value
