Zach colle constamment des citations de fichiers PDF dans le corps de ses documents Word. Il aimerait avoir une macro spécifiquement pour coller à partir de PDF qui colle sans aucune mise en forme et supprime automatiquement les sauts de paragraphe qui se trouvent à la fin de chaque ligne du texte collé.

Il est relativement facile de travailler avec du texte de cette manière dans une macro. Tout ce que vous avez à faire est de déplacer les informations du Presse-papiers vers une variable chaîne. Une fois qu’il est dans la variable, il n’y a plus de mise en forme associée au texte et vous pouvez rechercher et remplacer les sauts de paragraphe. La macro suivante effectue les deux étapes:

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

Rappelles toi; la macro fonctionne sur tout ce qui se trouve dans le Presse-papiers. Ainsi, pour exécuter correctement la macro sur une sélection PDF, vous devez copier la sélection dans le Presse-papiers et basculer vers votre document Word avant d’exécuter la macro.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (583) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Processing_Information_Pasted_from_a_PDF_File [Traitement des informations collées à partir d’un fichier PDF].