WORD 6.0 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 6.0
ber

 "Extras / Makro / [Makroname]: Erstellen"

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


Erstes Makro: MoveLinks


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

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

Sub MAIN
REM Makro erstellt 1999 von Juergen Hinrichs schul16@gmx.net

REM Bewegt den Markierten Bereich nach links

	If MarkPrf = 0 Then
		BearbeitenRckgngig
		WortLinks 1
	Else
		BearbeitenAusschneiden
		WortLinks 1
End If
BearbeitenEinfgen
ZurckEinfgemarke
End Sub

Function MarkPrf
	If AbrufenMarkierungAnfangPosition() = \
			AbrufenMarkierungEndePosition() Then
		MarkPrf = 0
	Else
		MarkPrf = 1
	End If
End Function


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



Zweites Makro: MoveRechts


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

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

Sub MAIN
REM Makro erstellt 1999 von Juergen Hinrichs schul16@gmx.net

REM Bewegt den Markierten Bereich nach rechts

	If MarkPrf = 0 Then
		BearbeitenRckgngig
		WortRechts 1
	Else
		BearbeitenAusschneiden
		WortRechts 1
End If
BearbeitenEinfgen
ZurckEinfgemarke
End Sub

Function MarkPrf
	If AbrufenMarkierungAnfangPosition() = \
			AbrufenMarkierungEndePosition() Then
		MarkPrf = 0
	Else
		MarkPrf = 1
	End If
End Function


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





Neue Makros in MS WORD 6.0 integrieren:

 "Extras / Anpassen / Mens / Kategorien: Makros"

Makro auswhlen und 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 / [Makroname]: Ausfhren" 	

auswhlen und ausfhren lassen.




Einbau und Betrieb des Makros geschieht auf eigenes Risiko.

(c) 1999 Jrgen Hinrichs

