Microsoft Office Forums - View Single Post - [Solved] Rtl text aligned right and ltr text aligned to left in one line

macropod · 09-12-2017, 02:21 PM

Perhaps you can get what you want with some major reformatting, for which you might use a macro like:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long, Rng As Range
Set Rng = Selection.Range
With ActiveDocument
  With .Range
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Forward = True
      .Format = False
      .MatchWildcards = True
      .Wrap = wdFindContinue
      .Text = "°°°"
      .Replacement.Text = ""
      .Execute Replace:=wdReplaceAll
      .Text = "°°"
      .Replacement.Text = "^p"
      .Execute Replace:=wdReplaceAll
      .Wrap = wdFindStop
      .Text = "^t*^13*^13"
      .Replacement.Text = "^p"
      .Execute
    End With
    Do While .Find.Found
      i = i + 1
      If i Mod 100 = 0 Then DoEvents
      .ParagraphFormat.TabStops.ClearAll
      With .Paragraphs.Last.Range.ParagraphFormat
        .FirstLineIndent = 0
        .LeftIndent = 0
        .RightIndent = InchesToPoints(0.5)
        .Alignment = wdAlignParagraphJustify
        .ReadingOrder = wdReadingOrderRtl
      End With
      .Paragraphs.First.Range.Select
      Selection.InsertStyleSeparator
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
End With
Rng.Select
Application.ScreenUpdating = True
End Sub

With your initial attachment, the file gets reformatted as per the attachment to this post.