Schrittweises Suchen, Markieren und Übertragen von Textteilen

15/01/2008 - 18:08 von Eliewsam | Report spam
Hallo Zusammen,

leider sind meine VBA-Kenntnisse nicht ausreichend genug, um folgende
Schritte zu programmieren:

1.) Über Bearbeiten/Suchen den 1. Textteil einer bestimmten Formatvorlage in
den Fußnoten (in "Dokument1") suchen, markieren und kopieren.
2.) Den nun in der Zwischenablage befindlichen Textteil in die erste Zeile
eines weiteren Dokuments "Dokument2" einfügen mit anschließendem
Schaltzeichen.
3.) Wieder zurück in "Dokument1" weitersuchen (also nach dem 2. Textteil
einer bestimmten Formatvorlage), markieren und kopieren.
4.) Den Inhalt der Zwischenablage wieder in "Dokument2" einfügen mit
anschließendem Schaltzeichen.
5.) Diese Schleife sollte so lange wiederholt werden, bis alle Textteile
einer bestimmten Formatvorlage von Dokument1 auf Dokument2 übertragen sind.

Es wàre sehr nett, wenn mir einer von Euch weiterhelfen könnte. Vielen Dank!
Beste Grüße
Eliewsam
 

Lesen sie die antworten

#1 Helmut Weber
16/01/2008 - 00:05 | Warnen spam
Hallo Eliewsam,

vielleicht für den Anfang:

Sub Macro3()

Dim Doc1 As Document
Dim Doc2 As Document
Set Doc1 = Documents("Source.doc")
Set Doc2 = Documents("Target.doc")

Dim oFnt As Footnote
Dim rTmp As Range
For Each oFnt In Doc1.Footnotes
Set rTmp = oFnt.Range
With rTmp.Find
.Style = "InlineStyle"
While .Execute
Doc2.Range.InsertAfter rTmp.Text & vbCrLf
Wend
End With
Next
End Sub


Gruß

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Ähnliche fragen