همانطور که در حال توسعه یک سند هستید، ممکن است مواقعی پیش بیاید که بخواهید دو پاراگراف مجاور را جابجا کنید. یکی از راه ها استفاده از میانبرهای Shift+Alt+Down Arrow یا Shift+Alt+Up Arrow برای تنظیم ترتیب پاراگراف است. با این حال، اگر میخواهید دو پاراگراف را جابهجا کنید، و باید اغلب این کار را انجام دهید، میتوانید کار را با استفاده از یک ماکرو انجام دهید.
ماکرو زیر کار کوتاهی از کار را انجام می دهد. تنها کاری که باید انجام دهید این است که نقطه درج را بین دو پاراگراف که می خواهید جابجا کنید قرار دهید و سپس این ماکرو را صادر کنید:
Sub TransposeParagraphs() Selection.MoveUp Unit:=wdParagraph, _ Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdParagraph, _ Count:=1, Extend:=wdExtend Selection.Range.Cut Selection.MoveDown Unit:=wdParagraph, Count:=1 Selection.Range.Paste End Sub
اگر نقطه درج را به جای بین پاراگراف ها در داخل یک پاراگراف قرار دهید، ماکرو فرض می کند که می خواهید پاراگراف فعلی را با پاراگراف زیر جابه جا کنید.
