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╢