Mensajes

lo voy a probar disculpen que no respondi antes  

edit: el programa funciona re copado.. muchas gracias  

otra cosa.

cuando elijo la opcion SendKeys no manda letra por letra, o las manda re rapido?

bue ya me ayudaron tantas veces que 1 vez mas creo que no le hace daño a nadie xD

bue estoy "intentando" crear un tipo bot que escriba solo

¿escriba solo?

si que escriba solo, es que tengo unos numeros que son muy largos y los tengo que poner seguido.. al codigo y a mano estoy como 2 hs

bue yo por ejemplo

yo tengo el notepad.exe ejecutado

entonces yo le doy la condicion al programa que cuando aprete por ejemplo yo quiero que el programa escriba "Hola"

al apretar commandbutton que balla escribiendo letra por letra en este caso Hola al notepad.exe

gracias por ayudarme  y responder 

bueno yo quiero saber como puedo agregar textos a otro texto por ejemplo

yo tengo un bloc de notas que esta en C:\notepad.txt

y ese notepad adentro contiene una palabra por ejemplo hola

y  abajo de hola yo quiero agregarle como andas

entonces el notepad.txt quedaria

hola
como andas

como seria el codigo?

yo intente hacerlo pero lo que pasaba es que se me borraba el hola y nunca quedaba  

Lee

Recuerda poner la propiedad de Multiline como True

Saludos

Uh.. disculpa master

ya esta Gracias a Todos por todo

Mmm.. me queda asi..

[Bien... este es uno de esos problemas que no los puedo arreglarbienYo por ejemplo tengo un textbox y un command buttonyo se que para que en el textbox aparezca algo cuando apretan el commandbutton el codigo es]

Bien... este es uno de esos problemas que no los puedo arreglar
bien
Yo por ejemplo tengo un textbox y un command button
yo se que para que en el textbox aparezca algo cuando apretan el commandbutton el codigo es

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Text1 = "Ejemplo :D"
End Sub

Bien. Si Yo Quisiera Que Cuando Apreten El CommandButton Apasca por ejemplo en el text1

Código [Seleccionar] Expandir

Ejemplo
ElHacker.Net

Seria que aparezca el "Ejemplo" arriba y "ElHacker.Net" Debajo.
Se puede hacer eso? Por que intente de todas maneras y No logre nada..

[Bue men disculpa xD!! No me retes jeje..no entendi muy bien sobre las rutas me re perdi xDD!! bue lo que ise fue crear otro textbox y un commandbutton el codigo me quedo asi]

Bue men disculpa xD!! 
No me retes jeje..

no entendi muy bien sobre las rutas me re perdi xDD!!

bue lo que ise fue crear otro textbox y un commandbutton el codigo me quedo asi

Código (vb) [Seleccionar] Expandir

Private Sub Reemplazar_Texto(ByVal El_Archivo As String, _
                            ByVal La_cadena As String, _
                            ByVal Nueva_Cadena As String)

On Error GoTo errSub
Dim F As Integer
Dim Contenido As String


    F = FreeFile

    Open El_Archivo For Input As F

    Contenido = Input$(LOF(F), #F)

    Close #F

    Contenido = Replace(Contenido, La_cadena, Nueva_Cadena)


    F = FreeFile

    Open El_Archivo For Output As F

    Print #F, Contenido


    Close #F

    MsgBox " Listo!!! ", vbInformation
Exit Sub

'Error

errSub:
MsgBox Err.Description, vbCritical
Close
End Sub


Private Sub Command1_Click()
If (Text1 = "" Or Text2 = "" Or Text3 = "") Then
   MsgBox " datos incompletos ", vbCritical
   Exit Sub
End If

Call Reemplazar_Texto(Text1, Text2, Text3)

End Sub
Private Sub Command2_Click()
If (Text4 = "" Or Text5 = "" Or Text6 = "") Then
   MsgBox " datos incompletos ", vbCritical
   Exit Sub
End If

Call Reemplazar_Texto(Text4, Text5, Text6)
End Sub
Pero igual men gracias por responder   

[Bue este problemita me ta rompiendo vastantes las %"·&% este es el codigo]

Bue este problemita me ta rompiendo vastantes las %"·&%

este es el codigo

Código (vb) [Seleccionar] Expandir


Private Sub Reemplazar_Texto(ByVal El_Archivo As String, _
                            ByVal La_cadena As String, _
                            ByVal Nueva_Cadena As String)

On Error GoTo errSub
Dim F As Integer
Dim Contenido As String

   
    F = FreeFile

    Open El_Archivo For Input As F

    Contenido = Input$(LOF(F), #F)

    Close #F

    Contenido = Replace(Contenido, La_cadena, Nueva_Cadena)

   
    F = FreeFile

    Open El_Archivo For Output As F

    Print #F, Contenido
   

    Close #F
   
    MsgBox " Listo!!! ", vbInformation
Exit Sub

'Error

errSub:
MsgBox Err.Description, vbCritical
Close
End Sub


Private Sub Command1_Click()
If (Text1 = "" Or Text2 = "" Or Text3 = "") Then
   MsgBox " datos incompletos ", vbCritical
   Exit Sub
End If

Call Reemplazar_Texto(Text1, Text2, Text3)

End Sub


Bien la idea es la siguiente:
El
Text1 = "" <-- Es la ruta que esta al archivo
Text2 = "" <-- Busca
Text3 = "" <-- Reemplaza
CommandButton1 <-- Guarda los cambios

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If (Text1 = "" Or Text2 = "" Or Text3 = "") Then
   MsgBox " datos incompletos ", vbCritical
   Exit Sub
End If

Call Reemplazar_Texto(Text1, Text2, Text3)

End Sub

Bue yo quiero que el Text1 Tenga 2 Rutas Que reemplaze en 2 Lugares por ej:
C:\Texto.txt y D:\Texto.txt

[Bien tengo este souce :]

Bien tengo este souce :

Código (vb) [Seleccionar] Expandir

Option Explicit

'***************************************************************************
'*  Name         : Buscar y Reemplazar En Word desde vb
'*  Controles    : Un CommandButton y tres textbox _
                 (txt_Buscar, txt_Buscar y txt_path )
'***************************************************************************

Function Buscar_Reemplazar_En_Word(Cadena_Origen As String, _
                                  Cadena_reemplazo As String, _
                                  Path_Word As String) As Boolean
   
   On Error GoTo Err_Buscar
   
   Dim Obj_Word As Object
   
   'Crea una nueva referencia para poder acceder al documento
   Set Obj_Word = CreateObject("Word.Application")

   ' aplicación de word no visible
   Obj_Word.Visible = False
   
   'Abre el archivo especificado mediante el método Open y algunas opciones
   Obj_Word.Documents.Open FileName:=Path_Word

   
   ' Coloca la selección al comienzo del documento
   Obj_Word.ActiveDocument.GoTo What:=wdGoToPage, _
                                        Which:=wdGoToNext, _
                                        Name:="1"
   
   
 
   Obj_Word.Selection.Find.ClearFormatting
   Obj_Word.Selection.Find.Replacement.ClearFormatting
   
   ' Propiedades de la búsqueda y reemplazo
   With Obj_Word.Selection.Find
       .Text = Cadena_Origen
       .Replacement.Text = Cadena_reemplazo
       .Forward = True
       .Wrap = wdFindAsk
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   
   ' Ejecuta la búsqueda y reemplazo
   Obj_Word.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceAll
   
  'Cierra el documento abierto ( TRue es para guardar los cambios )
   Obj_Word.ActiveDocument.Close True
   
   'Destruye las variables de objeto y cierra la aplicación de word
   Obj_Word.Quit False
   Set Obj_Word = Nothing
   
   'Ok
   Buscar_Reemplazar_En_Word = True
   
   Exit Function

'Error
Err_Buscar:
   MsgBox Err.Description, vbCritical
   
   On Error Resume Next
   'cierra la aplicación de word
   Obj_Word.Quit False
   'Elimina la referencia de la memoria
   Set Obj_Word = Nothing
End Function

Private Sub Command1_Click()
   
   Dim ret As Boolean
   
   ' Comienza la búsqueda y reemplazo en el documento
   ret = Buscar_Reemplazar_En_Word(txt_Buscar, _
                                   txt_Buscar, _
                                   txt_Path)

   If ret Then
       MsgBox " Listo ", vbInformation
   End If


End Sub

Private Sub Form_Load()
   Command1.Caption = " Buscar y reemplazar "
   txt_Buscar = " Acá colocar la palabra a buscar "
   txt_reemplazar = " Acá colocar la palabra de reemplazo"
   txt_Path = " Colocar el path del documento "
End Sub

Tengo Un Error En:

Código (vb) [Seleccionar] Expandir

    Obj_Word.ActiveDocument.GoTo What:=wdGoToPage, _