Зак постоянно вставляет цитаты из файлов 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 — самая популярная программа для обработки текстов в мире.) Этот совет (11626) относится к Microsoft Word 2007 и 2010. Вы можете найти версию этого совета для старого интерфейса меню Word здесь:

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