در هنگام ویرایش یک سند، جابجایی دو کلمه مجاور غیر معمول نیست. به عنوان مثال، ممکن است بخواهید به جای آن متن "اغلب استفاده می شود" "اغلب استفاده می شود" باشد. Word هیچ قابلیت بومی برای انتقال دو کلمه ندارد، اما می توانید یک ماکرو ایجاد کنید که جابجایی را برای شما انجام دهد. ماکرو زیر که Transpose نام دارد این کار را انجام می دهد:
Sub Transpose()
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.Paste
Selection.MoveLeft Unit:=wdWord, Count:=1
End Sub
برای استفاده از ماکرو، تنها کاری که باید انجام دهید این است که نقطه درج را بین دو کلمه ای که می خواهید جابجا کنید قرار دهید و سپس ماکرو را اجرا کنید. ماکرو کلمه سمت چپ نقطه درج را انتخاب کرده و آن را برش می دهد. سپس یک کلمه را به سمت راست حرکت می دهد و کلمه ای را که قبلا برش داده بود چسباند.
