Solicitar datos en un Documento de Word

Hola victor :-)

Bueno mónica... hice lo que escribiste en aquel foro, pero se me colgó el
Word. Lo que quiero hacer en realidad es utilizar un boton de comando que
contenga un código de permita insertar una imagen en un tamaño dado. Después
de solicitar los datos de campo como te lo dije con anterioridad lo último
que me falta es inserta el trabajo del participante, no se si esta bien,
pero mi idea era usar un control imagen cuyo dato se lo asigne el boton
examinar, se entiende? muchas gracias por tu tiempo.

Bien prueba el siguiente codigo que te pongo a continuacion, tienes que
colocarlo exactamente en el modulo de Evento en [ ThisDocument ] ya que
el contros/s ActiveX » tienen sus eventos en [ThisDocument ]

El control Image ponlo al tamaño que quieras y luego poner un aviso o
bien mediante codigo [ que podriamos incluir en el codigo que te pongo ]
o bien mediante al pasar el raton por la imagen que dijera »

incluya una imagen de 70 x 100 pliss !!


¿Por qué ? porque tu puedes modificar una imagen enstandar pero
dependiendo de cómo se haya hecho esa imagen en resolucion etc... puede
pasar que se vea la imagen borrosa al minimizarla o maximizarla
dependiendo de esa imagen, entonces el que vea el archivo y vea donde
tiene que poner su imagen tiene que hacerse la imagen a esa medida...


'[]
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ruta As String
Dim x As Range
Dim imagen As InlineShape

On Error Resume Next

ActiveDocument.Unprotect ("111")

With Dialogs(wdDialogInsertPicture)
If .Display <> -1 Then GoTo proteger
ruta = .Name
End With

Image1.Picture = LoadPicture(ruta)
With ActiveDocument
.PrintPreview
.ClosePrintPreview
End With

proteger:

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True, Password:="111"

Exit Sub

End Sub

'[]

Y creo que no me he dejado nada mas :-\ , no obstante nos comentas :-)

SAludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]
» Nothing Else Matters [ Metallica ]

www.fermu.com