Zach liên tục dán các trích dẫn từ tệp PDF vào nội dung tài liệu Word của mình. Anh ấy muốn có một macro đặc biệt để dán từ PDF mà không cần bất kỳ định dạng nào và tự động xóa các dấu ngắt đoạn ở cuối mỗi dòng của văn bản được dán.

Nó tương đối dễ dàng để làm việc với văn bản theo cách này trong một macro. Tất cả những gì bạn cần làm là di chuyển thông tin từ Clipboard sang một biến chuỗi. Khi nó nằm trong biến, không còn bất kỳ định dạng nào được liên kết với văn bản nữa và bạn có thể tìm kiếm và thay thế các dấu ngắt đoạn. Macro sau thực hiện cả hai bước:

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

Nhớ lại; macro hoạt động trên bất kỳ thứ gì có trong Clipboard. Vì vậy, để chạy macro đúng cách trên vùng chọn PDF, bạn cần sao chép vùng chọn đó vào Bảng tạm và chuyển sang tài liệu Word của bạn trước khi chạy macro.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên các trang WordTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

WordTips là nguồn của bạn để đào tạo Microsoft Word hiệu quả về chi phí.

(Microsoft Word là phần mềm xử lý văn bản phổ biến nhất trên thế giới.) Mẹo này (11626) áp dụng cho Microsoft Word 2007 và 2010. Bạn có thể tìm phiên bản của mẹo này cho giao diện menu cũ hơn của Word tại đây: