Bearbetning Information Pasted från en PDF--fil

October 11

Zach är ständigt klistrar in citat från PDF-filer in i kroppen av hans Word-dokument. Han skulle vilja ha ett makro specifikt för klistra in från PDF som klistrar utan någon formatering och tar bort de styckebrytningar som är vid slutet av varje rad av den inklistrade texten automatiskt.

Det är relativt lätt att arbeta med text i detta sätt i ett makro. Allt du behöver för att göra är att flytta informationen från Urklipp till en sträng variabel. En gång det är i variabeln, det finns ingen längre någon formatering associerad med texten och du kan söka efter och ersätta de styckebrytningar. Den följande makrot utför båda stegen:

Sub PastePDFClean ()
Dim MyData Såsom 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 = en
Medan x> 0
sTextIn = Vänster (sTextIn, x - 1) & Mid (sTextIn, x + 1)
y = x + ett
x = InStr (y, sTextIn, vbCr)
Wend

Selection.TypeText sTextIn
Set MyData = Nothing
End Sub

Kom ihåg; makrot fungerar på, allt vad är i det Urklipp. Så, i syfte att köra makrot ordentligt på ett PDF-urval, måste du för att kopiera markeringen till Urklipp och omkopplaren till din Word-dokument innan du kör makrot.

WordTips är din källa för kostnadseffektiv Microsoft Word utbildning. (Microsoft Word är det mest populära ordbehandling programvara i världen.) Detta tips (583) är tillämplig till Microsoft Word 97, 2000, 2002, och 2003. Du kan hitta en version av detta tips för menyfliks-gränssnittet av Word (Word 2007 och senare) här: Bearbetning Information Pasted från en PDF--fil.