اطلاعات پردازش از یک فایل پی دی اف چسبانده شده است

Question

Zach دائماً نقل قول‌های فایل‌های PDF را در متن اسناد Word خود می‌چسباند. او مایل است یک ماکرو خاص برای چسباندن از PDF داشته باشد که بدون هیچ قالب بندی پیست می کند و به طور خودکار پاراگراف های شکسته شده در انتهای هر خط از متن چسبانده شده را حذف می کند.

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

Sub PastePDFClean()
    Dim MyData As DataObject
    Dim sTextIn As String
    Dim x As Integer
    Dim y As Integer

    Set MyData = New DataObject
    MyData.GetFromClipboard
    sTextIn = MyData.GetText

    x = InStr(sTextIn, vbCr)
    y = 1
    While x > 0
        sTextIn = Left(sTextIn, x - 1) & Mid(sTextIn, x + 1)
        y = x + 1
        x = InStr(y, sTextIn, vbCr)
    Wend

    Selection.TypeText sTextIn
    Set MyData = Nothing
End Sub

یاد آوردن؛ ماکرو روی هر چیزی که در کلیپ بورد است کار می کند. بنابراین، برای اجرای صحیح ماکرو در انتخاب PDF، باید انتخاب را در کلیپ بورد کپی کنید و قبل از اجرای ماکرو به سند Word خود بروید.