ayuda con macro dentro de word

carloncho_ escribió:

hola al todos del grupo.. espero alguien me pueda ayudar
nuevamente ubique problemas en el codigo que estoy desarrollando la
cual tiene la rutina siguiente:

1.- uso un formulario con varios texbox y un CommandButton la cual
ingresa los datos automatizando un contrato que se desarrolla
periodicamente.
2.- tambien uso dos modulos con rutinas una despues de otra y al final
de usar este segundo modulo intento guardar el archivo con un nombre
que ya fue digitado antes en un textbox del formulario (1) para luego
proceder a cerrar el archivo en si.

mi pregunta es?.. como capturo este nombre del texbox1 para ya luego
usarlo dentro de modulo2 que sera mucho despues de usar el formulario
donde se ubica en texbox en mension, recordando que lo digitado en
texbox me servira como nombre del archivo a guardar.
de antemano agradesco la gentil respuesta.

nota... trate de usar una variable Dim X As Integer, pero cuando corre
el modulo final donde se ubica el codigo de ingresar el monbre del
archivo... ingreso la variable "X.doc" me sale el error!!! y no se
porque??? en que estare fallando???

gracias por sus respuestas
atte.
carlos

Hola Carlos :-)

Pues mejor seria que nos pusieses todo el codigo y asi podemos mejor
visualizar como tienes formado el codigo y orientarte mejor :-)

Comentanos ok? :-)

Saludos
Monica





¡Un SAludo! :-)

www.fermu.com
www.zorval.es

Hola Carlos :-)

Pues mejor seria que nos pusieses todo el codigo y asi podemos mejor
visualizar como tienes formado el codigo y orientarte mejor :-)

Comentanos ok? :-)

Saludos
Monica

hola amiga monica... de ante mano gracias por la respuesta amiga:

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 UserForm1 una vez cerrado esta; para luego inserta este
dato dentro del modulo1 y es donde tengo el problema. ayudenme pless
gracias
carlos

bueno despues de mucho batallar y con la ayuda de otro grupo de google
pude solucionar este problemilla y gracias al amigo VINCHENZO la
respuesta esta dentro de ;
microsoft.public.es.ex

carloncho_ a émis l'idée suivante :

bueno despues de mucho batallar y con la ayuda de otro grupo de google
pude solucionar este problemilla y gracias al amigo VINCHENZO la
respuesta esta dentro de ;
microsoft.public.es.ex

Hola Carloncho :-)

Lo sabemos ¡¡he aquí!! las direcciones para seguir el hilo:

http://tinyurl.com/yceatz

Para la otra consulta inicializada aqui en word tambien:

http://tinyurl.com/yllsve

Saludos
Monica


¡Un Saludo! :-)
www.fermu.com
www.zorval.es

HOLA A TODOS ... de nuevo yo con algunas trabas encontradas en mi
proyecto que ojala puedan ayudarme, gracias de antemano.

las dudas son las siguientes ...

1.- como elimino la opcion de cancelar el formulario usando la "x" de
la parte superior derecho de todo formulario o en todo caso de no poder
eliminarse, como hacer que cuando clipeen esta opcion tambien se cierre
todo el archivo en curso y no solamente la ventana de formulario como
pasa actualmente...

2.- como limito lo digitado en un texbox para que solo puedan ingresar
digitos numericos de dias... es decir entre 1 y 31 dias (los datos son
numeros que tienen que digitar... 1 o 11 o 15 o 23 o ...etc maxmimo
pueden digitar el numero 31)

- la ceptacion de solo numeros lo tengo solucionado :
If Not Chr(KeyAscii) Like "[0-9]" Then ... :-))

- con el MaxLength controlo que sean solo "dos" digitos lo ingresado,
pero pueden digitar el 95 y no existe como dia el numero 95?.. se
entendio la pregunta?

gracias por sus respuestas.
atte
carloncho