Typing Accent Marks and Diacritics

The following MS Word macro provides a 'rough and ready' way to generate the special characters used in Spanish. Just cut and paste the following text into the Word macro editor and assign a keyboard shortcut to the macro (Ctrl+Alt+~ suggested).

Option Explicit
Option Base 1

Rem ===================================
Rem Accent Previous Char
Rem Hotkey: Ctrl + Alt + ~
Rem ===================================
Public Sub AccentPreviousChar()
   Const strFindCharArry As String = "!?aeiouAEIOUnNwcC<>" ' Standard Keyboard Chars
   Const strReplCharArry As String = "¡¿áéíóúÁÉÍÓÚñÑüçÇ«»" ' Equivalent Special/Accented Chars
   Dim cPrevChr As String
   Dim cReplChr As String
   Dim cFindChr As String
   Dim nIndx As Integer
   Dim nNumChars As Integer
   Dim bFound As Boolean

   With Selection
      If Len(.Text) > 1 Then  ' Cancel Selection
         .MoveRight Unit:=wdCharacter, Count:=1
      End If

      .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend ' Select the Char
      cPrevChr = .Text  ' Should have just one character

      bFound = False
      nNumChars = Len(strFindCharArry)
      nIndx = 0
      Do
         nIndx = nIndx + 1    ' Increment
         cFindChr = Mid(strFindCharArry, nIndx, 1)
         If cFindChr = cPrevChr Then ' Found Match
           cReplChr = Mid(strReplCharArry, nIndx, 1)
           bFound = True
           Exit Do
         End If
      Loop Until nIndx >= nNumChars

      If bFound = False Then
         Beep
         Application.StatusBar = "AccentPreviousChar: No Char Match for " + cPrevChr
      Else
         .Text = cReplChr  ' Replace it
         Application.StatusBar = "AccentPreviousChar: Replaced " + _
           cPrevChr + " with " + cReplChr
      End If
   .MoveRight Unit:=wdCharacter, Count:=1
   End With ' Selection
End Sub  ' AccentPreviousChar