Autocorrect script slår ikke igennem med det samme

Jeg har lavet et VBscript som fjerner et par "Autocorrections" (f.eks. i = I). Jeg kører scriptet uden at nogen af Office programmerne er startet. Starter derefter Word og skriver et "i" men det ændrer sig med det samme til et "I". Kigger jeg så i Tools -> Autocorrect Options, kan jeg se at i => I er forsvundet. Jeg klikker tilbage til Word brugerfladen og forsøger igen at skrive et "i". Denne gang forbliver det et "i".

Det er altså som om mit script ikke får gennemtrumfet ændringen.

Mit script:

CONST sConfigFile = ".\autocorrect.txt"
CONST ForReading = 1

SET oWordApp = CreateObject("Word.Application")
SET oOptions = oWordApp.AutoCorrect
SET oFSO = CreateObject("Scripting.FileSystemObject")

sMode = ""
IF oFSO.FileExists(sConfigFile) THEN
SET oConfigFile = oFSO.OpenTextFile(sConfigFile,ForReading)
DO UNTIL oConfigFile.AtEndOfStream
  sLine = oConfigFile.ReadLine
  IF mid(sLine,1,1) <> ";" THEN
  'The line read from the file is not a comment
  IF mid(sLine,1,1) = "[" THEN
    sMode = sLine
  ELSE
    iPos = instr(1, sLine, "=")
    IF iPos <> 0 THEN
    sKey = mid(sLine, 1, iPos -1)
    sValue = mid(sLine,iPos+1)
    END IF
    IF sMode = "[ADD]" THEN
    oOptions.Entries.Add sKey, sValue
    ELSEIF sMode = "[REMOVE]" THEN
    FOR EACH sEntry IN oOptions.Entries
      IF sEntry.Name = sKey AND sEntry.Value = sValue THEN
      sEntry.Delete
      EXIT FOR
      END IF
    NEXT
    END IF
  END IF
  END IF
LOOP   
ELSE
msgbox "The file ""AutoCorrect.txt"" has to be in the same directory as this script file." & vbcrlf & vbcrlf & "Please contact the System Administrator", vbCritical, "AutoCorrect.txt doesn't exist!"
wscript.quit
END IF

oWordApp.quit

Mit script kunne muligvis være smartere, men det er ikke optimisering jeg er ude efter, blot den manglende bid (hvis der er nogen).

På forhånd tak.