Zach fügt ständig Zitate aus PDF-Dateien in den Text seiner Word-Dokumente ein. Er möchte ein Makro speziell zum Einfügen aus PDF-Dateien haben, das ohne Formatierung eingefügt wird und die Absatzumbrüche am Ende jeder Zeile des eingefügten Textes automatisch entfernt.

Es ist relativ einfach, auf diese Weise in einem Makro mit Text zu arbeiten. Sie müssen lediglich die Informationen aus der Zwischenablage in eine Zeichenfolgenvariable verschieben. Sobald es sich in der Variablen befindet, ist dem Text keine Formatierung mehr zugeordnet, und Sie können nach Absatzumbrüchen suchen und diese ersetzen. Das folgende Makro führt beide Schritte aus:

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

Merken; Das Makro funktioniert für alle Elemente in der Zwischenablage. Um das Makro für eine PDF-Auswahl ordnungsgemäß auszuführen, müssen Sie die Auswahl in die Zwischenablage kopieren und zu Ihrem Word-Dokument wechseln, bevor Sie das Makro ausführen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (583) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Aus einer PDF-Datei eingefügte Verarbeitungsinformationen.