Alguien eche un vistaso a este código

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