marcelo
28 de Junio del 2004

debo traspasar algunas variables a un doc.word, para esto ejecuto lo siguiente:
Dim Documento As New Word.Application

Set DB = OpenDatabase(App.Path & "Sitram.mdb")

With Documento

Application.Documents.Open App.Path & "FaxAltas.doc"

.Documents.Item(1).Bookmarks.Item("NroTramite").Range.Text = NroTramite
.Documents.Item(2).Bookmarks.Item("NroFax").Range.Text = NroFax
...
...
idem en 7 marcadores que necesito

.Application.Selection.EndKey wdStory

.Application.Visible = True

End With
Set Documento = Nothing
End Sub

en el doc.word he creado los respectivos marcadores, y si me los muestra, pero cuando ejecuto el prog. me da error de marcador no identificado.
si alguien puede ayudarme agradecido

Marcelo

sdemingo
28 de Junio del 2004

Hola,

yo utilizo est谩 funci贸n para comprobar que existen las marcas en el documento y es as铆 como las selecciono.



Function comprobarMarca(marca As String) As Boolean

If wordApp.Documents(frmTextoArticulado.docActivo).Bookmarks.Exists(marca) = False Then
MsgBox "Alguna de las marcas buscadas en la plantilla no existen (" & marca & ")." & Chr(13) & Chr(10) & _
"Puede que no haya elegido correctamente la plantilla o que est茅 incompleta." & Chr(13) & Chr(10) & _
"El proceso de impresi贸n del Documento finalizar谩.", vbCritical + vbOKOnly, "Texto Articulado"

wordApp.Documents(frmTextoArticulado.docActivo).Close SaveChanges:=0
Unload frmBarraProgreso
Set wordApp = Nothing
comprobarMarca = False
Else
wordApp.Documents(frmTextoArticulado.docActivo).Bookmarks(marca).Select
comprobarMarca = True
End If

End Function


salu2
sdemingo