AYUDA CON MACRO!!

26/12/2006 - 01:43 por carloncho_ | Informe spam
hola a todos por favor tengo un problemilla y no se como
solucionarlo... necesito ingresar como nombre de archivo un dato del
UserForm1 - textbox1.text y me sale error, todo esto como parte del
codigo del modulo1 alguien me ayude por favor.. de ante mano
gracias...
aqui les dejo el codigo en mension:

codigo de UserForm1:
=Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.Text = UCase(ComboBox1.Text)
End Sub
Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox2.Text = UCase(ComboBox2.Text)
End Sub
Private Sub ComboBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox3.Text = UCase(ComboBox3.Text)
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = UCase(TextBox1.Text)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Text = UCase(TextBox2.Text)
End Sub
Private Sub CommandButton1_Click()

Selection.GoTo What:=wdGoToBookmark, Name:="Texto1"
Selection.TypeText Text:=TextBox1.Text
Selection.GoTo What:=wdGoToBookmark, Name:="Texto2"
Selection.TypeText Text:=TextBox2.Text

Selection.GoTo What:=wdGoToBookmark, Name:="Texto7"
Selection.TypeText Text:=ComboBox2.Text

Selection.GoTo What:=wdGoToBookmark, Name:="Texto10"
Selection.TypeText Text:=ComboBox3.Text
Unload UserForm1
End Sub

codigo del modulo1 en la cual tengo problemas.. ayuda!!!!!!
=Sub Save_Archiv()
'
' Macro1 Macro
' Macro grabada el 29/11/06 por pc
'

Call Memoria
Selection.WholeStory
Selection.Copy
Documents.Add Template:= _
"C:\WINDOWS\Escritorio\Normal.dot", _
NewTemplate:=False, DocumentType:=0
Selection.Paste
ChangeFileOpenDirectory _
"C:\WINDOWS\Escritorio"
ActiveDocument.SaveAs FileName:= _
("") 'AQUI ES EL PROBLEMA PARA INSERTAR EL NOMBRE DEL ARCHIVO
'A GUARDAR Y DESEARIA QUE EL DATO DEL TEXTBOX1 del UserForm1 SE
'INSERTE AUTOMATICAMENTE
, FileFormat:= _
wdFormatDocument , LockComments:=False, Password:="",
AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False,
EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False



Mas_Datos = MsgBox("¿Desea hacer mas contratos de TECNICOS?",
vbYesNo + vbQuestion, "Entrada de datos")

If (Mas_Datos = vbYes) Then
ChangeFileOpenDirectory _
"C:\WINDOWS\Escritorio"
Documents.Open FileName:= _
"""PLANTILLA_TECNICOS.doc""", ConfirmConversions _
:=False, ReadOnly:=True, AddToRecentFiles:=False,
PasswordDocument:="", _
PasswordTemplate:="", Revert:=True, WritePasswordDocument:="",
_
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
End If

If (Mas_Datos = vbNo) Then

Windows("PLANTILLA_TECNICOS.doc (Sólo lectura)").Activate
ActiveWindow.Close
End If

End Sub

=
como ven trato de jalar el dato insertado por el textbox1 del
formulario para el modulo1 y es donde tengo el problema. ayudenme pless
gracias
carlos

Preguntas similare

Leer las respuestas

#1 Marta PM
26/12/2006 - 19:10 | Informe spam
Hola:
No lo he revisado muy a fondo pero has probado a poner
ActiveDocument.SaveAs FileName:= UserForm1.TextBox1.Text

Marta PM
Saúdos/Saludos
MVP Office

(Si quieres escribirme ya sabes lo que no quiero)
Más consejos en www.fermu.com
__________
La información contenida en este mensaje se proporciona "TAL CUAL", sin garantías
explícitas ni implícitas, y no otorga derecho alguno. Usted asume cualquier riesgo al
poner en práctica lo recomendado o sugerido en el presente mensaje.

¿Quieres saber que es un MVP?
http://mvp.support.microsoft.com/

"carloncho_" escribió en el mensaje
news:
hola a todos por favor tengo un problemilla y no se como
solucionarlo... necesito ingresar como nombre de archivo un dato del
UserForm1 - textbox1.text y me sale error, todo esto como parte del
codigo del modulo1 alguien me ayude por favor.. de ante mano
gracias...
aqui les dejo el codigo en mension:

carlos
Respuesta Responder a este mensaje
#2 carloncho_
27/12/2006 - 04:07 | Informe spam
hola martha.. gracias por la respuesta amiga.. pero si probe esa opcion
pero me sale error.. tambien lo hice con Me.. e igual.. me sale error y
ya no se que hacer porque estoy batallando hace dias con ese error y de
verdad que necesito ayuda .pless por favor marthita a ver si me
haces ese milagrito pues
gracias de ante mano..
atte.
carlos
Respuesta Responder a este mensaje
#3 carloncho_
27/12/2006 - 04:24 | Informe spam
Añado algo amiga Martha ... creo que el problema esta en que salgo del
formulario para despues cargar el modulo porque ya intente con
("""NombreDelFichero = UserForm1.TextBox1.Text""") y me sale error, al
parecer porque el formulario ya esta cerrado y no ubica el dato del
texbox1 y como no se como solucionarlo porque como dije amiga
primero ejecuto el UserForm1 ya luego de cerrado este form uso el
modulo1 que es donde trato de insertar el dato digitado en el form
anterior - TextBox1.text qe me servira como nombre del archivo (Save
as )... tambien intente tratando de hacer un Dim y un Static en el
UserForm1 como parte del codigo del TextBox1.tex pero lo mismo cuando
uso la variable dentro del modulo1 como Save as = (nombre de la
variable antes expuesta) lo mismo me sale error.. ya me tiene loco y no
se como solucionarlo.. aver si me das una manito..
gracias..
atte,
carlos
Respuesta Responder a este mensaje
#4 carloncho_
05/01/2007 - 04:19 | Informe spam
GRACIAS DE TODOS MODOS A LOS QUE INTENTARON AYUDARME.. UBIQUE LA
RESPUESTA A MI PROBLEMA CON AYUDA DE OTRO GRUPO GOOGLE Y GRACIAS AL
AMIGO VINCHENZO del grupo microsoft.public.es.vb

saludos

carlos
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida