Thema Datum  Von Nutzer Rating
Antwort
29.07.2021 18:36:31 Alexander
NotSolved
30.07.2021 01:48:38 Gast49632
Solved
Rot noch der Fall fürs hinten anfügen (vorher wurde es direkt im Dokument geändert)
 30.07.2021 02:23:40 Gast16871
NotSolved
30.07.2021 02:39:33 Gast49632
NotSolved
03.08.2021 18:51:14 Alexander
NotSolved

Ansicht des Beitrags:
Von:
Gast16871		 Datum:
30.07.2021 02:23:40		 Views:
266		 Rating:
     
Antwort:
  Ja
Thema:
noch der Fall fürs hinten anfügen (vorher wurde es direkt im Dokument geändert)		 
Option Explicit
 
Sub Mirror_ByWords()
  
  Dim rngWord As Word.Range
  Dim strMirrored As String
  
  For Each rngWord In ThisDocument.Content.Words
    Call rngWord.MoveEndWhile(" " & vbCrLf, wdBackward)
    strMirrored = strMirrored & MirrorThat(rngWord) & " "
  Next
  strMirrored = RTrim$(strMirrored)
  
  ThisDocument.Range(ThisDocument.Content.Characters.Count - 1).Text = strMirrored
  
End Sub
 
Sub Mirror_All()
   
  Dim rngAll As Word.Range
  Dim strMirrored As String
   
  Set rngAll = ThisDocument.Content
   
  Call rngAll.MoveEndWhile(" " & vbCrLf, wdBackward)
  strMirrored = MirrorThat(rngAll)
  
  ThisDocument.Range(ThisDocument.Content.Characters.Count - 1).Text = strMirrored
  
End Sub
 
'Private Sub MirrorThat(ByVal Range As Word.Range)
'
'  Dim char As String * 1
'  Dim i As Long
'  Dim j As Long
'
'  i = 1
'  j = Range.Characters.Count
'  Do While i < j
'    char = Range.Characters(i).Text
'    Range.Characters(i).Text = Range.Characters(j).Text
'    Range.Characters(j).Text = char
'    i = i + 1
'    j = j - 1
'  Loop
'
'End Sub

Private Function MirrorThat(ByVal Range As Word.Range) As String
  
  Dim strExpression As String
  Dim char As String * 1
  Dim i As Long
  Dim j As Long
  
  strExpression = Range.Text
  
  i = 1
  j = Range.Characters.Count
  Do While i < j
    char = Mid$(strExpression, i, 1)
    Mid$(strExpression, i, 1) = Mid$(strExpression, j, 1)
    Mid$(strExpression, j, 1) = char
    i = i + 1
    j = j - 1
  Loop
  
  MirrorThat = strExpression
  
End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.07.2021 18:36:31 Alexander
NotSolved
30.07.2021 01:48:38 Gast49632
Solved
Rot noch der Fall fürs hinten anfügen (vorher wurde es direkt im Dokument geändert)
 30.07.2021 02:23:40 Gast16871
NotSolved
30.07.2021 02:39:33 Gast49632
NotSolved
03.08.2021 18:51:14 Alexander
NotSolved