Word-95-Makros für Word 97 anpassen

Ich habe bisher das Makro zum automatischen Einfügen von Indexeinträgen aus der WIN-Ausgabe 8/97 benutzt. Nun bin ich auf Word 97 umgestiegen und müßte das Makro umschreiben. Leider kenne ich nicht die korrekten Befehle. Können Sie mir die Übersetzung liefern?

Sicherlich können wir Ihnen das Makro übersetzen. Wenn Sie allerdings noch die alte Vorlage besitzen, können Sie auch Winword dazu bringen, das Makro selbst zu übersetzen, denn die Eigenschaft WordBasic gibt ein Word-6.0-Automation-Objekt zu-rück. Dadurch kann Word 97 mit den entsprechenden Word-6.0-Befehlen arbeiten. Die sprachliche Konvertierung übernimmt Word dann selbst.
Sicherlich ist es ressourcensparender, ohne das Automation-Objekt zu arbeiten. Dazu ist aber eine manuelle Übersetzung notwendig. Wenn Sie diesen Weg gehen wolle, finden Sie in der Online-Referenz von Visual Basic unter Visual Basic-Entsprechungen zu Word Basic-Befehlen die Informationen. Beachten Sie, daß Sie gegebenenfalls die Online-Hilfe für Visual Basic gesondert installieren müssen. Sie ist nicht automatisch Bestandteil der typischen Office-Installation.
Um das Makro automatisch zu übersetzen, müssen Sie lediglich Word 97 starten und die neue Vorlage öffnen. Word fragt Sie dann, ob Sie die Makros übersetzt haben wollen. Wenn Sie diese Anfrage bestätigen, transformiert der Visual-Basic-Editor die alten Wordbasic-Anweisungen in Visual-Basic-Äquivalente. Nach der Übersetzung sieht das Makro so aus:

Public Sub MAIN ()¶
Dim Markierung¶
Markierung = Len (WordBasic.[Selection$]()) - 1¶
If Markierung = 0 Then GoTo OhneMarkierung¶
WordBasic.MarkIndexEntry¶
GoTo Ende¶
OhneMarkierung:¶
WordBasic.SelectCurWord¶
WordBasic.MarkIndexEntry¶
Ende:¶
End Sub¶