انتقال دو کلمه

Question

در هنگام ویرایش یک سند، جابجایی دو کلمه مجاور غیر معمول نیست. به عنوان مثال، ممکن است بخواهید به جای آن متن "اغلب استفاده می شود" "اغلب استفاده می شود" باشد. 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

برای استفاده از ماکرو، تنها کاری که باید انجام دهید این است که نقطه درج را بین دو کلمه ای که می خواهید جابجا کنید قرار دهید و سپس ماکرو را اجرا کنید. ماکرو کلمه سمت چپ نقطه درج را انتخاب کرده و آن را برش می دهد. سپس یک کلمه را به سمت راست حرکت می دهد و کلمه ای را که قبلا برش داده بود چسباند.