Question : Autocorrect Custom Dictionary

1.  What is it named?  (50pts)
2.  Where is it located? (50pts)
3.  How to I effectively dump it's contents to any useable data/text/csv format?  (200pts)

Lets rumble!!

regards and thanks in advance
Jack

Answer : Autocorrect Custom Dictionary

to list autocorrect entries:
add reference to word x.x object library

sub will load file (path and name passed as parameter) with autocorrect values

sub OutputAutoCorrect(pstrFile as string)
'pstrfile is file to load with auto correct list

dim intfile as integer
dim objWord as word.application
dim wrdDoc as word.document
Dim aceLoop as AutoCorrectEntry

set objword = new word.application
set wrdDoc = objWord.documents.add ' Autocorrect is not avaliable unless a document is open

intFile = freefile
open pstrfile for output as intfile

For Each aceLoop in objWordAutoCorrect.Entries
    With aceLoop
        write #intfile, .Name, .value
     End With
Next aceLoop
close intfile
wrddoc.close false
objword.quit
set wrddoc = nothing
set objword = nothing
end sub

/Richard
Random Solutions  
 
programming4us programming4us