Macros en Word - 4

Vamos a seguir viendo códigos en las macros de WordBasic. Te recomiendo que en el Editor de macros con Visual Basic consulte la Ayuda.

Macros automáticas.
Son las que se realizan cuando se abre o cierra el Word o un Documento.

Nombre de la macro --> Se ejecuta 
AutoExec ------------> Al iniciar Word o cargar una plantilla global 
AutoNew -------------> Cada vez que cree un nuevo documento 
AutoOpen ------------> Cada vez que abra un documento existente 
AutoClose -----------> Cada vez que cierre un documento 
AutoExit ------------> Cuando salga de Word o descargue una plantilla global 

1.-Cuando se abre el Word, me salga un mensaje de Bienvenida y me copie el archivo C:\config.sys como C:\config.old

a) Crear una macro llamada AutoExec
(Herramientas / Macro / Macros ....)

b) Dentro de la macro AutoExec escribir el siguiente código:

Sub AutoExec()
    MsgBox "Bienvenido al Word"
    FileCopy "C:\config.sys", "C:\config.old"
End Sub

La macro AutoExec se ejecuta cuando abrimos el Word.

Sub AutoClose()
    MsgBox "Hasta otra..."
    Kill  "C:\config.old"
End Sub

Crear y Copiar archivos y carpetas.

3.- Crear una macro llamada existe que cuando se Ejecute:
Compruebe si existe el archivo "C:\autoexec.bat"
Si existe lo debe copiar como "C:\autoexec.old"
SI NO existe debe Crear un archivo llamado "C:\nada.txt""

Sub existe()
Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FileExists("C:\autoexec.bat") Then
FileCopy "C:\autoexec.bat", "C:\autoexec.old"
Else
Open "C:\nada.txt" For Output Shared As #1
Close #1
End If
End Sub

4.- Crear una macro llamada hacerdir de manera que cuando se Ejecute:
Compruebe si existe la carpeta "C:\SEGUR"
Si existe debe copiar en esa carpeta el archivo "C:\autoexecbat"
SI NO existe debe crearla.

Sub hacerdir()

Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FolderExists("C:\Segur") Then
FileCopy "C:\autoexec.bat", "C:\Segur\autoexec.bat"
Else
MsgBox ("La carpeta no existe, la voy a crear.")
MkDir ("C:\Segur")
MsgBox ("Carpeta creada.")
End If

End Sub

Insertar Textos en un Documentos.

5.- Ejecutar una macro llamada despues, que añada algo al final del documento.

Sub despues()
    ActiveDocument.Content.InsertAfter Text:=" Terminamos."
End Sub

6.- Seleccionar algo y Ejecutar una macro llamada antes, que añada una palabra al principio de esa selección:

Sub antes()
    Selection.InsertBefore Text:="Anterior "
End Sub

7.- Seleccionar un trozo de texto, la macro debe Buscar y Reemplazar una palabra en negrita.
En este caso debe reemplazar la palabra "Juan" por "Antonio" y ponerla en negrita (Bold).

Sub reemplaza()
  With Selection.Find
    .ClearFormatting
    .Text = "Juan"
    .Replacement.ClearFormatting
    .Replacement.Text = "Antonio"
    .Replacement.Font.Bold = True
    .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
  End With
End Sub