[Ethen5155]

Hi all,

i have lot of word documents changed form LTR to RTL language
and i was thinking if i can find a macro can in every section; (not all document) change layout's section direction from "Left-to-right" to "Right-to-left"

And in Margins tab; reverse "Left" and "Right" values then makes Gutter position from "Left" to "Right".

Thanks in advance

 

[Ethen5155]

i got the solution for first issue only and about second i did make it about gutter but reverse values

 

[macropod]

Try:

Sub Demo()
Application.ScreenUpdating = False
Dim Sctn As Section, sngMargin As Single
With ActiveDocument
  For Each Sctn In .Sections
    With Sctn.PageSetup
      If .SectionDirection = wdSectionDirectionLtr Then
        .SectionDirection = wdSectionDirectionRtl
        sngMargin = .LeftMargin
        .LeftMargin = .RightMargin
        .RightMargin = sngMargin
        .GutterPos = wdGutterPosLeft
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

PS: I've merged your two threads. Please don't start multiple threads on such closely related issues.

 

[Ethen5155]

Dear Paul,

thanks for your swift help and response and sorry for duplicated topics, you macro is working so great

would you please to find some learning PDFs for VBA in word

Thanks for your help again

 

[macropod]

would you please to find some learning PDFs for VBA in word

Sorry, but I don't know of any.