|
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):
1 2 3 4 5 6 7 8 9 10 11 | 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:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 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
|