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.