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
 

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

Preguntas similares