Зак постоянно вставляет цитаты из файлов 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, прежде чем запускать макрос.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (583) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Processing_Information_Pasted_from_a_PDF_File [Обработка информации, вставленной из файла PDF].