WORD 97 Makro: MoveLinks / MoveRechts

Autor:
Jrgen Hinrichs
schul16@gmx.net
http://mitglied.lycos.de/erleuchtet/index-g.htm
Infos und Tips fr Word, Windows, Access, Excel, Internet

Dieses Makro unterliegt dem Urheberrecht und bleibt Eigentum des Autors.
Es ist Freeware und darf unter Nennung des Autors und der Herkunft
unentgeltlich weitergegeben werden.

Es darf weder verkauft noch verliehen noch anderweitig kommerziell
vertrieben werden, auch nicht in genderter oder erweiterter Form.

Jedwede Haftung wird ausgeschlossen.
Weitere Makros auf Anfrage.


###############

Makros MoveLinks / MoveRechts

Verschiebt markierten Text auf Tastendruck im Satzgefge nach links oder rechts

###############


Den unten stehenden Makro- Code kopieren und in MS WORD 97
ber

 "Extras / Makro / Makros: Erstellen"

unter einem ausgewhlten Namen vollstndig in das sich ffnende Editor- Fenster einfgen.


Erstes Makro: 


CODE AB HIER KOPIEREN (inklusive der Anfangs- und Endzeilen mit "Sub / End Function") 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub MoveLinks()
Rem Makro erstellt 1999 von Juergen Hinrichs schul16@gmx.net

' MoveLinks Makro
' Verschiebt markierten Text nach links

    If MarkPrfl = 0 Then
        WordBasic.EditUndo
        WordBasic.WordLeft 1
    Else
        WordBasic.EditCut
        WordBasic.WordLeft 1
End If
WordBasic.EditPaste
WordBasic.GoBack
End Sub

Private Function MarkPrfl()
    If WordBasic.GetSelStartPos() = _
            WordBasic.GetSelEndPos() Then
        MarkPrfl = 0
    Else
        MarkPrfl = 1
    End If
End Function


+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


Zweites Makro:  


CODE AB HIER KOPIEREN (inklusive der Anfangs- und Endzeilen mit "Sub / End Function") 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub MoveRechts()
Rem Makro erstellt 1999 von Juergen Hinrichs schul16@gmx.net

' MoveRechts Makro
' Verschiebt markierten Text nach rechts

    If MarkPrfr = 0 Then
        WordBasic.EditUndo
        WordBasic.WordRight 1
    Else
        WordBasic.EditCut
        WordBasic.WordRight 1
End If
WordBasic.EditPaste
WordBasic.GoBack
End Sub

Private Function MarkPrfr()
    If WordBasic.GetSelStartPos() = _
            WordBasic.GetSelEndPos() Then
        MarkPrfr = 0
    Else
        MarkPrfr = 1
    End If
End Function

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++





Neue Makros in MS WORD 97 integrieren:

 "Extras / Anpassen / Befehle / Kategorien: Makros"

Makro auswhlen und durch Ziehen mit der Maus in ein Men einfgen oder ber "Tastatur" mit einer Tastenkombination belegen, 

beispielsweise mit 

<Shift> + <Alt> + <Pfeil nach links> 

und  

<Shift> + <Alt> + <Pfeil nach rechts> 



Alternativ das Makro direkt ber

 "Extras / Makro / Ausfhren" 	

auswhlen und ausfhren lassen.




Einbau und Betrieb des Makros geschieht auf eigenes Risiko.

(c) 1999 Jrgen Hinrichs




