Autor Tema: Presentacion, solicito una ayuda  (Leído 91 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Elchotovolador

  • Bit
  • Mensajes: 1
  • Reputación: +0/-0
    • Ver Perfil
Presentacion, solicito una ayuda
« en: Marzo 29, 2024, 09:01:40 am »
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
 
« última modificación: Marzo 29, 2024, 04:57:23 pm por Elchotovolador »