Formato a marcador

Gracias Monica

Ya he recibido tu archivo,
pero fijate que al hacer un ejercicio tomando
como base tu ejemplo, no me sale :( ,
ya te he enviado mis comentarios por correo.

saludos







>
> Hola Trinidad :-)
>
> Bien ya te mande un archivo adjunto, me comentas si lo has recibido, no
> obstante comento por aqui un poquito el proceso ok? :-)
>
> Hemos insertardo en la plantilla word sus correspondientes marcadores y
> donde vamos a poner la fecha del campo de acces, hemos creado un Cuadro
> de texto de formularios de word, un [Formtext] en sus propiedades hemos
> dejado todo tal cual, solo que al marcador le hemos llamado [Promovente]
> que este nombre de marcador es el mismo nombre que el campo de access
> que lleva la fecha a insertar en la plantilla o documento. [yo he
> elegido Promovente como campo de fecha ]
>
> Entoces el codigo hace lo siguiente:
>
> Recorre los marcadores de word insertando los campos correspondientes de
> nuestro formulario de Access en los marcadores correspondientes de word,
> salvo que el marcador que llevara [La Fecha ] no sera un marcador sera
> un [Formtext] entonces el codigo colocara primero la fecha normal desde
> access y la convertira a fecha larga, luego continuara poniendo los
> demas campos en su lugar correspondiente quedando el codigo asi:
>
> '--
>
> Private Sub cmb1_Click()
>
> Dim wordApp As Word.Application
> Dim wordDoc As Word.Document
> Dim wordRange As Word.Range
> Dim sdate As FormField
>
> Set wordApp = New Word.Application
> Set wordDoc = wordApp.Documents.Open(CurrentProject.Path _
> & "\Uno.dot")
>
> wordApp.Visible = True
>
> With wordDoc
> 'insertamos directamente al darle al boton en los marcadores _
> correspondientes de word
>
> 'insertamos fecha correspondiente a Formtext word _
> y la cambiamos a fecha larga luego continuamos con la _
> inserccion de datos en resto marcadores
>
>
> ..Protect Type:=wdAllowOnlyFormFields, NoReset:=True
>
> Set sdate = wordDoc.FormFields("promovente")
>
> ..FormFields("promovente").Result = Me.promovente.Value
> sdate.Result = Format(sdate.Result, "Long Date")
>
> ..Unprotect
>
> ..Bookmarks("dict_num").Range.Text = Me.dict_num.Value
> ..Bookmarks("bitacora").Range.Text = Me.bitacora.Value
> ..Bookmarks("exp_num").Range.Text = Me.exp_num.Value
> ..Bookmarks("perm_localidad").Range.Text = Me.perm_localidad.Value
> ..Bookmarks("mpio").Range.Text = Me.mpio.Value
> ..Bookmarks("dict_dictamen").Range.Text = Me.dict_dictamen.Value
> ..Bookmarks("dict_dictaminador").Range.Text = Me.dict_dictaminador.Value
>
> 'Guardo
> wordDoc.SaveAs CurrentProject.Path & "\sptxxx1.doc"
>
> 'Salgo sín guardar cambios
> wordApp.Quit SaveChanges:=wdDoNotSaveChanges
>
> Set wordApp = Nothing
> Set wordDoc = Nothing
>
> End With
>
> End Sub
>
> '
>
> Entonces si queda la fecha larga, :-)
>
> Anotacion :
>
> Para poner en un modificador en las combinaciones de correspondencia,
> una fecha larga por ejemplo [26 de octubre de 2007 ] o trabajando en un
> documento con fechas quedaria asi:
>
> {MERGEFIELD "FECHA" *\@ "d ' de' MMMM' de' yyyy"}
>
> Bueno y creo que no me he dejado nada por comentar :-)
>
> Saludos
> Monica
>
>
> Estado: A la Espera By Fermu
>
> Tic-Tac-Tic-Tac...
>
> www.fermu.com
>