Makro für Word 97

Für: MZ-WinTranslator V10.1

Mit Microsoft Word 97 wurde die Makrosprache WordBasic durch Visual Basic für Applikationen (kurz VBA) ersetzt. Wir haben daher das Makro zur Fernsteuerung des Programms aktualisiert.

Anweisungen zur Verwendung des Makros finden Sie in der Online-Hilfe unter 'Makro'. Befolgen Sie die dortigen Anweisungen; kopieren Sie jedoch statt des Makros aus der Hilfe den folgenden Text:

Sub TranslDDE()
If Selection.Start = Selection.End Then
  Beep
  StatusBar = "Sie müssen erst ein Wort markieren!"
  Exit Sub
End If
Selection.Range.Copy
If Tasks.Exists("MZ-WinTranslator") Then
  Tasks("MZ-WinTranslator").Activate
Else
  MsgBox "Sie müssen den MZ-WinTranslator erst starten!", vbExclamation
  Exit Sub
End If
Tasks("MZ-WinTranslator").WindowState = wdWindowStateNormal
SendKeys "% "
SendKeys "w"
SendKeys "%1", -1
Selection.Range.PasteSpecial DataType:=wdPasteText
Tasks("MZ-WinTranslator").WindowState = wdWindowStateMinimize
End Sub

Hinweis: Das obige Makro ist die aktualisierte Version der 'Möglichkeit 1: Nur die erste Übersetzung einfügen' aus der Online-Hilfe. Um 'Möglichkeit 2' zu erhalten, ändern Sie die Zeile SendKeys "%1", -1 in SendKeys "%3", -1.

Versionen ab V11.1 enthalten das Makro für Word 97 in der Online-Hilfe und im Handbuch unter 'Tips und Hinweise' bzw. unter dem Stichwort 'Makro', das Sie bitte anstelle des hier angegebenen Makros verwenden.