Visual Basic - Agregar marcadores en documento Word mediante Visu

Life is soft - evento anual de software empresarial
   
Vista:

Agregar marcadores en documento Word mediante Visu

Publicado por iaras66 (4 intervenciones) el 27/03/2008 18:24:07
Hola!!!

Alguien podría decirme como se tendría que implementar la parte de código en visual basic 6.0 para añadir unos marcadores a un documento Word??

¡¡¡GRACIAS!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Agregar marcadores en documento Word mediante V

Publicado por Pere (54 intervenciones) el 27/03/2008 21:01:41
Hola.
Aparte de añadir las referencias correspondientes y la creación de objetos... etc.

With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="Marcador1"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With

Espero te sirva.
P.D. "Marcador1" es el nombre del marcador.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Agregar marcadores en documento Word mediante V

Publicado por iaras66 (4 intervenciones) el 31/03/2008 09:33:48
Hola, he introduciod esta parte de còdigo en un Commandbutton pero no me introduce ningún marcador al documento Word.

Tego implementado el siguiente código:

Private Sub Command1_Click()
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="Marcador3"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With

End Sub

Private Sub Form_Load()
Dim Documento As New Word.Application
With Documento
'abre un documento
.Application.Documents.Open App.Path & "ejemplo.doc"
'relleno de marcadores
.Documents.Item(1).Bookmarks.Item("Marcador1").Range.Text = "TITULO"
.Documents.Item(1).Bookmarks.Item("Marcador2").Range.Text = "OTRO TEXTO"
'final del documento
.Application.Selection.EndKey wdStory
'intro
.Application.Selection.TypeParagraph
'introduccion de texto
.Application.Selection.TypeText "Ejemplo de prueba"
'intro
.Application.Selection.TypeParagraph
.Application.Selection.TypeParagraph
.Application.Selection.TypeParagraph
'crear tabla
.Documents.Item(1).Tables.Add Documento.Application.Selection.Range, 3, 5
'relleno de tabla
.Documents.Item(1).Tables(1).Cell(1, 1).Range.Text = "Celda 1"
'mostramos documento
.Application.Visible = True
End With
Set Documento = Nothing

End Sub

La cuestion es para introducir unos marcadores y luego en ellos el texto que desees.
Si por ejemplo querria introducir en el marcador los datos de un Textbox del formulario como tendría q hacer???
¡¡¡GRACIAS!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar