Microsoft Word broma (5 / 7 paso)

Paso 5: Código mono!

Sub AddKeyBinding()
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyE), KeyCategory: = wdKeyCategoryCommand, _
Comando: = "TestKeybinding"
End Sub

Sub TestKeybinding()
X DIM como documento
Set x = ActiveDocument
x.Close (False)
End Sub

2) esta broma hace palabras frecuentemente mal escritas aparezcan correcta para que ninguna línea roja aparecerá debajo de él.
Sub AutoExec()
Llamar al WriteToATextFile
Dim dicCustom como Diccionario
Set dicCustom = Application.CustomDictionaries _
. Add(Filename:="c:\customdic5.dic")
Application.CustomDictionaries.ActiveCustomDictionary = dicCustom

Con la aplicación
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeySpacebar), KeyCategory: = wdKeyCategoryCommand, _
Comando: = "spellit"
Terminar con

End Sub

Sub WriteToATextFile()
MyFile = "c:\customdic5.dic"
fnum = FreeFile()
Abierto MyFile para salida como fnum
Imprimir #fnum, "la"
Imprimir #fnum, "Teh"
Cierre #fnum
End Sub

Spellit() pública de Sub
Selection.TypeText texto: = ""
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Con Selection.Find
. Texto = "el"
. Replacement.Text = "el"
. Adelante = True
. Wrap = wdFindContinue
. Formato = False
. MatchCase = True
. MatchWholeWord = False
. MatchWildcards = False
. SuenaComo = False
. BuscarTodasFormasPalabra = False
Terminar con
Reemplazar Selection.Find.Execute: = wdReplaceAll

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Con Selection.Find
. Texto = "El"
. Replacement.Text = "Teh"
. Adelante = True
. Wrap = wdFindContinue
. Formato = False
. MatchCase = True
. MatchWholeWord = False
. MatchWildcards = False
. SuenaComo = False
. BuscarTodasFormasPalabra = False
Terminar con
Reemplazar Selection.Find.Execute: = wdReplaceAll

End Sub

3) esta broma hace Jura al azar aparecen mientras la persona está escribiendo.

Sub typeRand()
Dim contador As String
contador = CStr (Int ((30-1 + 1) * Rnd + 1))

Cuando Application.OnTime: = ahora + TimeValue ("00:00:" + contador), _
Nombre: = "TimedClose"

End Sub

Sub TimedClose()

Dim maindocument como documento
Set maindocument = activedocument
contador = CStr (Int ((5-1 + 1) * Rnd + 1))

Seleccione caso contador
Caso 1
Selection.TypeText texto: = ""
Caso 2
Selection.TypeText texto: = ""
Caso 3
Selection.TypeText texto: = ""
Caso 4
Selection.TypeText texto: = ""
Caso 5
Selection.TypeText texto: = ""
Final seleccione

Llamar al typeRand

End Sub