'Mis macros de prueba

sub Traslada()
call WinTeX.set_sel_start(0)
call WinTeX.exec_command("caDOCEND","TRUE")
call WinTeX.exec_command("caCUT","TRUE")  
call WinTeX.open_file("C:\0Tex-tos\Latex\infomate\raiz.tex")
call WinTeX.exec_command("caPASTE","TRUE")
end sub


sub Limpieza()
' create Windows Scripting Shell object
  Set WshShell = CreateObject("WScript.Shell")
  
 ' Uso del método run para ejecutar limpia.bat
  WshShell.Run  "C:\1textos\Miscelanea\limpia.bat"
end sub