Hallo an alle,

habe ein Problem, von dem ich hoffe, dass es relativ leicht zu lösen sein sollte:

zuerst wäre da einmal Code, welcher jeden Autokorrektur-Eintrag ausliest und in Word schreibt (von word.tips.net):

Sub PrintAutoCorrect()
    Dim a As AutoCorrectEntry

    Selection.ParagraphFormat.TabStops.ClearAll
    Selection.ParagraphFormat.TabStops.Add Position:=72, _
      Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces

    For Each a In Application.AutoCorrect.Entries
        Selection.TypeText a.Name & vbTab & a.Value & " " & vbCr
    Next
End Sub

Dieser funktioniert logischerweise. Um die Einträge möglichst einfach verarbeiten zu können, habe ich dann auf Basis dieses Codes folgendes zusammengeschrieben:

Sub Test1()

    Dim sheetOne As Worksheet
    Set sheetOne = Worksheets("Sheet1")
    
    Dim a As AutoCorrectEntry
    Dim count As Integer
    Set count = 1
    

    
    For Each a In Application.AutoCorrect.Entries
        sheetOne.Cells(a, count) = a.Name
        sheetOne.Cells(b, count) = a.Value
        count = count + 1
    Next
End Sub

Leider bricht das Script jedes mal ab mit der Begründung: "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert", bezogen auf AutoCorrectEntry, was in Word anstandslos funktioniert. Ich bin ziemlich ratlos ob dieser Fehlermeldung, denn eigentlich sollte dieser Variablentyp doch auch in VBA-Excel funktionieren, wenn er in VBA-Word funktioniert ...?

Vielen Dank für jegliche Hilfe