Zach incolla costantemente citazioni da file PDF nel corpo dei suoi documenti Word. Vorrebbe avere una macro specifica per incollare da PDF che incolla senza alcuna formattazione e rimuove automaticamente le interruzioni di paragrafo che si trovano alla fine di ogni riga del testo incollato.

È relativamente facile lavorare con il testo in questo modo in una macro. Tutto quello che devi fare è spostare le informazioni dagli Appunti a una variabile stringa. Una volta inserito nella variabile, non è più presente alcuna formattazione associata al testo e puoi cercare e sostituire le interruzioni di paragrafo. La seguente macro esegue entrambi i passaggi:

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

Ricorda; la macro funziona su tutto ciò che è negli Appunti. Quindi, per eseguire correttamente la macro su una selezione PDF, è necessario copiare la selezione negli Appunti e passare al documento di Word prima di eseguire la macro.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (583) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Processing Information Pased from a PDF File.