جایگزینی آخرین کاما

Question

ربکا به دنبال راهی برای جایگزینی کاما آخر در یک جمله با کلمه "و" است. او ظاهراً باید این نوع ویرایش را کمی انجام دهد و فکر می‌کند که ممکن است یک راه سریع و آسان برای انجام ویرایش وجود داشته باشد تا اینکه نیاز به انجام دستی آن باشد.

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

Sub ReplaceLastComma()
    Dim J As Integer
    Dim bRep As Boolean
    Dim sRaw As String

    Selection.Sentences(1).Select
    sRaw = Selection.Text
    bRep = False
    For J = Len(sRaw) To 1 Step -1
        If Mid(sRaw, J, 1) = "," Then
            Selection.Collapse Direction:=wdCollapseStart
            Selection.MoveRight Unit:=wdCharacter, Count:=J - 1
            Selection.Delete Unit:=wdCharacter, Count:=1
            Selection.TypeText Text:=" and"
            J = 1
            bRep = True
        End If
    Next J
    If Not bRep Then Selection.Collapse Direction:=wdCollapseStart
End Sub

ماکرو جمله فعلی را انتخاب می‌کند (جمله‌ای که نقطه درج در آن قرار دارد، و سپس در متن جمله به عقب برمی‌گردد. (متن برای سهولت پردازش به متغیر sRaw اختصاص داده می‌شود.) اگر کاما پیدا شد، سپس نقطه درج درست قبل از کاما در سند قرار می گیرد، کاما حذف می شود و سپس یک فاصله و کلمه "و" تایپ می شود.

اگر ترجیح می‌دهید که ماکرو کاما را حذف نکند، می‌توانید سریعاً خطی را که حذف را انجام می‌دهد تغییر دهید (و خط قبل از آن را تغییر دهید تا حرکت به جای «J-1» «J+1» باشد). ، یا می توانید به سادگی یک کاما قبل از فضای متنی که توسط ماکرو تایپ می شود اضافه کنید.