افزودن نقل قول

Question

معمولاً هنگام تایپ، علامت نقل قول به متن خود اضافه می کنید. با این حال، ممکن است مواقعی وجود داشته باشد که بخواهید در زمان دیگری علامت نقل قول را اضافه کنید. به عنوان مثال، در حین ویرایش سند خود، ممکن است متنی را انتخاب کنید و سپس بخواهید علامت نقل قول در اطراف متن انتخاب شده اضافه شود. شما می توانید این کار را با ماکرو زیر انجام دهید:

Sub AddQuotes()
    Dim sBegQ As String
    Dim sEndQ As String

    If Len(Selection.Range.Text) > 1 Then
        If Right(Selection.Range.Text, 1) = " " Then
            Selection.End = Selection.End - 1
        End If

        If Options.AutoFormatAsYouTypeReplaceQuotes Then
            sBegQ = Chr(147)
            sEndQ = Chr(148)
        Else
            sBegQ = Chr(34)
            sEndQ = Chr(34)
        End If

        Selection.InsertBefore sBegQ
        Selection.InsertAfter sEndQ
    End If
End Sub

ماکرو بررسی می کند تا مطمئن شود بیش از یک نویسه انتخاب شده است. اگر چنین است، مطمئن می شود که آخرین نویسه در انتخاب فضای "ta" نباشد، سپس نوع مناسب گیومه های مورد استفاده را تعیین می کند، بر اساس اینکه SmartQuotes Word را روشن کرده اید یا خیر. سپس نقل قول های مناسب قبل و بعد از انتخاب قرار می گیرند.