Behandler Informasjon limt inn fra en PDF-fil

February 9  by Eliza

Zach er stadig lime sitater fra PDF-filer inn i kroppen hans Word-dokumenter. Han vil gjerne ha en makro spesielt for lime fra PDF som limer uten formatering og fjerner avsnittsskift som er på slutten av hver linje av den innlimte teksten automatisk.

Det er relativt lett å arbeide med tekst på denne måte i en makro. Alt du trenger å gjøre er å flytte informasjon fra utklippstavlen til en strengvariabel. Når det er i variabelen, er det ikke lenger noen formatering knyttet til teksten, og du kan søke etter og erstatte avsnittsskift. Følgende makro utfører begge trinnene:

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

Satt MYDATAs = Ny DataObject
MyData.GetFromClipboard
sTextIn = MyData.GetText

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

Selection.TypeText sTextIn
Satt MYDATAs = Nothing
End Sub

Husk; makroen fungerer på alt som er på utklippstavlen. Så, for å kjøre makroen ordentlig på en PDF-utvalg, må du kopiere det merkede området til utklippstavlen og bytte til Word-dokumentet før du kjører makroen.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (583) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Behandler Informasjon limt inn fra en PDF-fil.