Attribute VB_Name = "Bidi"

Dim EventModule As New EventClassModule

Sub LocalLtr()
    Application.Keyboard (1033)
End Sub

Sub LocalRtl()
    Application.Keyboard (1037)
End Sub

Sub ParaLtr()
    Selection.LtrPara
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    Application.Keyboard (1033)
End Sub

Sub ParaRtl()
    Selection.RtlPara
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    Application.Keyboard (1037)
End Sub

Sub StartBidiPreview()
    EventModule.ToPreview = True
End Sub

Sub StopBidiPreview()
    EventModule.ToPreview = False
End Sub

Sub AutoExec()
    Set EventModule.App = Application ' Event Registration
    EventModule.ToPreview = False ' do not preview
End Sub