Makro ohne Zwischenablage

PCDjoe · 09.05.2006

Ola,

ich benutze seit jahren ein aufgezeichnetes Makro, um zwei Buchstaben, zwischen denen die Einfügemarke steht, gegeneinander auszutauschen. Das Ding hat nur einen Nachteil: Es macht jedes mal die Zwischenablage platt. Es gibt sicher eine Abwandlung, die ohne Zwischenablage funktioniert: Wäre schön, wenn das jemand wüsste

Code:

Sub TauschZwei()
'
' TauschZwei Makro
' Makro aufgezeichnet am 21.06.2001 
'
  Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
  Selection.Cut
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.Paste
  Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Matjes · 09.05.2006

Hallo PCDJoe,

dann probier mal diese Version.

Gruß Matjes

Code:

Sub TauschZwei_fuerPCDJoe_ohneBenutzungDerZwischenablage()
    
  Dim mytext As String
    
  mytext = Selection.Text
  If Len(mytext) &lt; 2 Then
    MsgBox (Es sind weniger als 2 Zeichen selektiert.)
  Else
    mytext = Right(mytext, 1) &amp; Left(mytext, Len(mytext) - 1)
    Selection.Text = mytext
  End If

End Sub

PCDjoe · 10.05.2006

ola,

danke, Matjes, aber die Funktionsweise stimmt so nicht: Zwei zeichen zu markieren ist nicht praktikabel, das hab ich schon versucht: Die Schreibmarke steht zwischen den zu vertauschenden Zeichen (ohne Markierung und da soll es auch wieder hin.
Ich hab also am Anfnag und am Ende ein wenig cursorschubsen angehängt

Jetzt funktioniert es, sieht aber elende aus

Geht das besser?

Code:

Sub TauschZwei_fuerPCDJoe_ohneBenutzungDerZwischenablageKorr()
    
  Dim mytext As String
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
  mytext = Selection.Text
  If Len(mytext) &lt; 2 Then
    MsgBox (Es sind weniger als 2 Zeichen selektiert.)
  Else
    mytext = Right(mytext, 1) &amp; Left(mytext, Len(mytext) - 1)
    Selection.Text = mytext
  End If
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Matjes · 10.05.2006

Hallo PCDJoe,

ich hab jetzt deinen alten Makro genommen und nur Cut und Paste ersetzt.

Code:

Sub TauschZwei_new()
  Dim Mytext As String
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Mytext = Selection.Text
    Selection.Text = 
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Text = Mytext
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
End Sub

Gruß Matjes

PCDjoe · 10.05.2006

Ola,

danke, so einfach kann das Leben also sein

Matjes · 10.05.2006

Hab ich mir auch gedacht ;D

Makro ohne Zwischenablage

PCDjoe

Matjes

PCDjoe

Matjes

PCDjoe

Matjes

Makro ohne Zwischenablage

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums