Visual Basic para Aplicaciones - Guardar Ruta Archivo en Word

Life is soft - evento anual de software empresarial
 
Vista:

Guardar Ruta Archivo en Word

Publicado por Manuel (2 intervenciones) el 01/09/2007 11:40:12
Hola, estoy intentando construir una plantilla (*.dot) en la cual relleno unos campos e intento anexar unos ficheros para enviar todo por mail. Cuando digo intento es por que no se como hacerlo lo he intentado con el common dialog (OCX) pero al abrir una nueva instancia de la plantilla no funciona, si la abro la plantilla para editarla si que funciona pero eso no me vale.
Tambien lo he intentado con la funcion Dialog, pero esta solo tiene esa opcion en Word 2003 como minimo. Ralmente lo que necesito es que al pusar un boton salga un explorador y me gurde la ruta del archovo que selecione para después atacharlo al mail. Tengo que hacerlo en Word2000

Haber si podeis echarme una mano, estoy abierto a todo tipo de sugerebcias
Un saludo y gracias de antemano.
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:Guardar Ruta Archivo en Word

Publicado por Joel (9 intervenciones) el 04/09/2007 17:48:42
Agrega un boton en el docuemento de word, en propiedades lo nombras
CommandButton1
y le pegas el siguiente código

Private Sub CommandButton1_Click()
Dim dlg1 As FileDialog
Set dlg1 = Application.FileDialog(msoFileDialogOpen)
With dlg1
.Title = "Seleccionar Archivo "
.AllowMultiSelect = False
.ButtonName = "Select"
With .Filters
.Clear
.Add "Excel files", "*.xls"
End With
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
If dlg1.Show Then
Selection.TypeText Text:=dlg1.SelectedItems(1)
End If
Set dlg1 = Nothing
End Sub
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:Guardar Ruta Archivo en Word

Publicado por Manu (2 intervenciones) el 12/09/2007 10:21:00
No funciona, creo que para que funcione necesit agregrar el objeto common dialog. Puede ser?

Un saludo y 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

Macros en word

Publicado por FRANCISCO CARBAJAL (1 intervención) el 13/04/2009 00:05:31
Que buena macro, deber expertos en esto, me permito hacerles una pregunta quiero hacer una macro que llene los espacios en blanco despues de cada parrafo hasta el final del margen derecho. ===============================
Espero me puedan ayudar gracias desde ya

ejemplo
La vida es util. ====================================================
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