Ich habe ein Word Makro (siehe unten) das auf Word 95 programmiert wurde, und ich jetzt aber auf Word 97 aufwärts brauche. Wie mache ich das am einfachsten, bzw wie lautet der VisualBasic Code für Word 97 zu diesem Makro?
Vielen Dank, Kathi
---------------
Sub MAIN
If AuswInfo(12) = - 1 Then' Markierung ist in einer Tabelle
Einfügen " "
ZeichenLinks
Goto Leerzeichenok
Else
ZeichenLinks 1, 1
a$ = Markierung$()
ZeichenRechts
ZeichenRechts 1, 1
b$ = Markierung$()
ZeichenLinks
If a$ = Chr$(32) Then Goto Leerzeichenok
If b$ = Chr$(32) Then Goto Leerzeichenok
Einfügen " "
EinfügenAutoText
' jetzt Leerzeichenausgleich:
ZeichenRechts 1, 1
c$ = Markierung$()
If c$ = Chr$(32) Then
' Sollte eingefügtes Leerzeichen sein
ZeichenRechts
SendKeys "{Rück}"
End If
Goto Bye
Leerzeichenok:
' Leerzeichen vorhanden
EinfügenAutoText
BearbeitenLöschen 1
Bye:
End Sub
---------------------------------
Katharina Gast |