problemas con vba y word (Hector Miguel?)

22/11/2005 - 19:28 por Alejandro Garrammone | Informe spam

Hola! les cuento un poco mi problema. Debo ingresar un textbox o una
etiqueta con un valor del tipo '00000001' que se debe ir incrementando de
página en página pero como dicho valor debe estar dentro del documento
necesito hacerlo mediante una etiqueta o un cuadro de texto. El problema
que
tengo es que no encuentro la forma de poder agregarlo a otra hoja que no
sea
la primera, me pueden ayudar por favor? Les paso el código que he hecho
hasta ahora (que agrega el cuadro de texto en la primera página)
Gracias por todo,

Alejandro

Sub Macro1 ()

Dim docNew as document
Dim newtextbox as shape


set docNew = ThisDocument
set newtextbox > docNew.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:@0, Top:P, Width:‰, Height:))
newtextbox.select
with selection.shaperange
.fill.visible = msofalse
.fill.solid
.fill.transparency = 0#
.line.weight = 0.75
.line.dashstyle = msoLineSingle
.line.transparency = 0#
.line.visible = msoFalse
end with
selection.typetext text:="000000001"

End Sub



Preguntas similare

Leer las respuestas

#6 Héctor Miguel
24/11/2005 - 06:19 | Informe spam
hola, Alejandro !

Mostrar la cita
1) si solo necesitas 'preguntar' al usuario 3 variables de texto.. [creo que]
la opcion mas sencilla es usar los InputBox de vba, asignados a variables de tipo 'String' [p.e.]
Dim Pregunta1 AsString, Pregunta2 As String, Pregunta3 As String
Pregunta1 = InputBox("Indica por favor el dato 1")
' etc. etc. etc.
-> despues utilizas las variables con los datos que proporciono el usuario ;)

Saludos a Bs As, desde México (vivo en Zapopan, parte de la zona metropolitana de Guadalajara, Jalisco) ;)

hector.
#7 Alejandro Garrammone
25/11/2005 - 21:35 | Informe spam
Gracias Hector!, vamos a ver si con esto resuelvo el problema (la verdad es
que no me gusta mucho que me 'aten' a un programa específico para trabajar,
pero hay veces en las cuales no puedo hacer nada.

"Héctor Miguel" escribió en el mensaje
news:
Mostrar la cita
Ads by Google
Search Busqueda sugerida