Boton de comando

Josep escribió:

Hola a todos,

estoy creando una plantilla desde word, con una serie de datos en campos de
texto protegidos. En el mismo documento he creado varios cuadros de texto en
los que la persona que introduzca los datos ha de insertar imagenes, i yo lo
que estoy intentando es crear tantos botones de comando como cuadros de texto
tiene el documento, y que al pulsar cada uno de ellos, este me abra la
carpeta que contiene las imagenes, el usuario pueda elegir una de ellas, i
que word la coloque en el quadro de texto correspondiente al boton.
¿Es posible lo que estoy intentando? Y si es así ¿como puedo realizarlo?

Hola,

Imagino que como cuadro de texto te refieres a los del Menu » Insertar »
cuadro de texto ???


Comentanos...!!

Saludos
Monica



www.fermu.com
www.teladearana.es

Efectivamente

"Monica May" wrote:

Josep escribió:
> Hola a todos,
>
> estoy creando una plantilla desde word, con una serie de datos en campos de
> texto protegidos. En el mismo documento he creado varios cuadros de texto en
> los que la persona que introduzca los datos ha de insertar imagenes, i yo lo
> que estoy intentando es crear tantos botones de comando como cuadros de texto
> tiene el documento, y que al pulsar cada uno de ellos, este me abra la
> carpeta que contiene las imagenes, el usuario pueda elegir una de ellas, i
> que word la coloque en el quadro de texto correspondiente al boton.
> ¿Es posible lo que estoy intentando? Y si es así ¿como puedo realizarlo?

Hola,

Imagino que como cuadro de texto te refieres a los del Menu » Insertar »
cuadro de texto ???


Comentanos...!!

Saludos
Monica



www.fermu.com
www.teladearana.es

hola Jose,

Y la version de word que utilizas ??


Comentanos...!!

Saludos
Monica

www.fermu.com
www.teladearana.es

Hola,

Efectivamente

Prueba lo siguiente y si cualquier duda nos comentas !!

'[]

Sub cuadro_texto_imagen()

Dim imagen As InlineShape
Dim cuadro_texto As Shape
Dim ruta As String


On Error Resume Next

ActiveDocument.Unprotect ("111")

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

Set cuadro_texto = ActiveDocument.Shapes(1)

Set imagen = ActiveDocument.InlineShapes.AddPicture( _
FileName:=ruta, _
Range:=cuadro_texto.TextFrame.TextRange)

proteger:

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

Exit Sub

End Sub

'[]

Saludos
Monica