¿Es posible colocar un maracor en el pie de pagina?

Automatizar Acces y Word escribió:

Buen dia.
Ojala alguien pueda ayudarme.
Estoy trabajando en un docto. de word con marcadores que recibe campos de
una consulta en access, pero al intentar poner los marcadores en el
encabezado o pie de pagina, me marca un error

Set wordRange = wordDoc.GoTo(What:=wdGoToBookmark, Name:="bitacora")
wordRange.InsertAfter Me.bitacora.Value

Lo que necesito es duplicar el nombre de un campo en el docto, o ¿puede
repetirse un marcador en el mismo docto?
Tengo office 2003

Gracias de antemano.

Hola ¿?

Pues eso hasta donde yo se , no puede repetirse los marcadores, ya que
si se repitieran seria un caos, me explico si tu tienes dos marcadores
llamados [ nombre ] uno al principio y otro al final del documento y el
codigo dice que inserte Jose en el marcador Nombre ¿Hacia donde tiraria ?..

Word, en un principio ya no te deja insertar dos campos iguales en el
caso de Campos de formulario y en el caso de insertarlos en el documento
ya eso tampoco no los toma o agrega. :-(

Por ejemplo para agregar un marcador al documento la linea seria un
ejemplo a esto:

ActiveDocument.Bookmarks.add Range:=Selection.Range, Name:="Bitacora"


Para insertarlo en el encabezado de una seccion :

Sub Insertar_Marcador()

Dim Encabezado As Range
Set Encabezado = _
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
Encabezado.Bookmarks.Add ("Bitacora")


End Sub


Bueno ya nos comentas e intercambiamos esos detalles ok? :-)

Saludos
Monica

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com

Correccion:

insertar dos campos iguales en el caso de Campos

por :

Insertar dos campos con mismo marcador :-P

Saludos
Monica


Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com

"Tux" escribió:

Automatizar Acces y Word escribió:
> Buen dia.
> Ojala alguien pueda ayudarme.
> Estoy trabajando en un docto. de word con marcadores que recibe campos de
> una consulta en access, pero al intentar poner los marcadores en el
> encabezado o pie de pagina, me marca un error
>
> Set wordRange = wordDoc.GoTo(What:=wdGoToBookmark, Name:="bitacora")
> wordRange.InsertAfter Me.bitacora.Value
>
> Lo que necesito es duplicar el nombre de un campo en el docto, o ¿puede
> repetirse un marcador en el mismo docto?
> Tengo office 2003
>
> Gracias de antemano.

Hola ¿?

Pues eso hasta donde yo se , no puede repetirse los marcadores, ya que
si se repitieran seria un caos, me explico si tu tienes dos marcadores
llamados [ nombre ] uno al principio y otro al final del documento y el
codigo dice que inserte Jose en el marcador Nombre ¿Hacia donde tiraria ?..

Word, en un principio ya no te deja insertar dos campos iguales en el
caso de Campos de formulario y en el caso de insertarlos en el documento
ya eso tampoco no los toma o agrega. :-(

Por ejemplo para agregar un marcador al documento la linea seria un
ejemplo a esto:

ActiveDocument.Bookmarks.add Range:=Selection.Range, Name:="Bitacora"


Para insertarlo en el encabezado de una seccion :

Sub Insertar_Marcador()

Dim Encabezado As Range
Set Encabezado = _
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
Encabezado.Bookmarks.Add ("Bitacora")


End Sub


Bueno ya nos comentas e intercambiamos esos detalles ok? :-)

Saludos
Monica

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com

Gracias Monica por tu atencion
Por lo que me comentas, entieno que lo mejor es que pon el marcador en el
pie de pagina o encbezado, bien eso es lo que he intentado, pero no he
podico lograr
Mira, este es el codigo del procedimiento de access:

Private Sub cmbMarcadores_Click()
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim wordRange As Word.Range

Set wordApp = New Word.Application
Set wordDoc = wordApp.Documents.Open(CurrentProject.Path &
"\fto_transitorio.doc")

wordApp.Visible = True


' Vamos a los distintos marcadores
Set wordRange = wordDoc.GoTo(What:=wdGoToBookmark, Name:="dict_num")
wordRange.InsertAfter Me.dict_num.Value

Set wordRange = wordDoc.GoTo(What:=wdGoToBookmark, Name:="promovente")
wordRange.InsertAfter Me.promovente.Value

Set wordRange = wordDoc.GoTo(What:=wdGoToBookmark, Name:="bitacora")
wordRange.InsertAfter Me.bitacora.Value



Set wordRange = wordDoc.GoTo(What:=wdGoToBookmark, Name:="exp_num")
wordRange.InsertAfter Me.exp_num.Value


Set wordRange = wordDoc.GoTo(What:=wdGoToBookmark, Name:="perm_localidad")
wordRange.InsertAfter Me.perm_localidad.Value

Set wordRange = wordDoc.GoTo(What:=wdGoToBookmark, Name:="mpio")
wordRange.InsertAfter Me.mpio.Value
' arriba bien





Set wordRange = wordDoc.GoTo(What:=wdGoToBookmark, Name:="dict_dictamen")
wordRange.InsertAfter Me.dict_dictamen.Value


Set wordRange = wordDoc.GoTo(What:=wdGoToBookmark,
Name:="dict_dictaminador")
wordRange.InsertAfter Me.dict_dictaminador.Value


'Guardo
wordDoc.SaveAs CurrentProject.Path & "\sptxxx.doc"

'Salgo sín guardar cambios
'wordApp.Quit SaveChanges:=wdDoNotSaveChanges

Set wordApp = Nothing

End Sub

Pudieras decirme por favor en donde hacer las modif. que me comentas.
Muchas Gracias
saludos
Atte.
Trinidad Rios
msn
correo-e

NiTRi escribió:

Gracias Monica por tu atencion
Por lo que me comentas, entieno que lo mejor es que pon el marcador en el
pie de pagina o encbezado, bien eso es lo que he intentado, pero no he
podico lograr


Pudieras decirme por favor en donde hacer las modif. que me comentas.
Muchas Gracias
saludos
Atte.
Trinidad Rios
msn
correo-e

Hola Nitri :-)

Bien no lo he probado por falta de tiempo, ayer estuve de viaje y esta
mañana tambien, perdona la tardanza :-( , bien pero te explico:

Bien si lo que quieres es insertar esos datos que tu tienes en tus
formulario de Access en word de la siguiente manera:[ya que tambien
tenemos marcadores en encabezado y pie de pagina ] pues lo mas sencillo
para hacer seria insertarlos directamente si tener que ir a buscarlos
osea prueba de esta manera ok ? :-)

'


Private Sub cmbMarcadores_Click()

Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim wordRange As Word.Range

Set wordApp = New Word.Application
Set wordDoc = wordApp.Documents.Open(CurrentProject.Path _
& "\fto_transitorio.doc")

wordApp.Visible = True

With wordDoc
'insertamos directamente al darle al boton en los marcadores _
correspondientes de word

.Bookmarks("dict_num").Range.Text = Me.dict_num.Value
.Bookmarks("promovente").Range.Text = Me.promovente.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 & "\sptxxx.doc"

'Salgo sín guardar cambios
wordApp.Quit SaveChanges:=wdDoNotSaveChanges

Set wordApp = Nothing

End Sub

'--

No se si me he comido algun marcador pero prueba y nos comentas ok? :-)


Saludos
Monica

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com

Hola Nitri :-)

Bien no lo he probado por falta de tiempo, ayer estuve de viaje y esta
mañana tambien, perdona la tardanza :-( , bien pero te explico:

Bien si lo que quieres es insertar esos datos que tu tienes en tus
formulario de Access en word de la siguiente manera:[ya que tambien
tenemos marcadores en encabezado y pie de pagina ] pues lo mas sencillo
para hacer seria insertarlos directamente si tener que ir a buscarlos
osea prueba de esta manera ok ? :-)

'


Private Sub cmbMarcadores_Click()

Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim wordRange As Word.Range

Set wordApp = New Word.Application
Set wordDoc = wordApp.Documents.Open(CurrentProject.Path _
& "\fto_transitorio.doc")

wordApp.Visible = True

With wordDoc
'insertamos directamente al darle al boton en los marcadores _
correspondientes de word

..Bookmarks("dict_num").Range.Text = Me.dict_num.Value
..Bookmarks("promovente").Range.Text = Me.promovente.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 & "\sptxxx.doc"

'Salgo sín guardar cambios
wordApp.Quit SaveChanges:=wdDoNotSaveChanges

Set wordApp = Nothing

End Sub

'--

No se si me he comido algun marcador pero prueba y nos comentas ok? :-)


Saludos
Monica

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com

Gracias Monica
Mira aun no me sale, me marca erroress, pudieras enviarme un ejempl por
mail por favor?


Grcias nuevamente y saludos