ch habe folgendes Makro mit dem ich Textmarken von einem in das andere Dokument übertragen will. Allerdings fügt er einfach nur den Text ein. Da zwei Textmarken Tabellen enthalten müsste die Ursprungsformatierung beibehalten werden. Ist das irgendwie möglich?
Sub KopierenTextmarken()
Dim oDoc As Document
Dim nDoc As Document
Set oDoc = ActiveDocument
Set nDoc = Documents.Open("H:\Tausch\mitteilung an SWK.docx") ' Zieldokument öffnen
' Aufruf:
' fkt_ReplaceBookmarkTe Quelldokument, Zieldokument, Quell-Textmarke, Ziel-Textmarke
fkt_ReplaceBookmarkText oDoc, nDoc, "a", "a"
fkt_ReplaceBookmarkText oDoc, nDoc, "b", "b"
fkt_ReplaceBookmarkText oDoc, nDoc, "ausfertigung", "c"
'
' nDoc.Close SaveChanges:=True ' Zieldokument schließen
End Sub
Function fkt_ReplaceBookmarkText(ByRef oSource As Document, oTarget As Document, oSource_TM As String, oTarget_TM As String)
Dim rng As Range
If oSource.Bookmarks.Exists(oSource_TM) And oTarget.Bookmarks.Exists(oTarget_TM) Then
Set rng = oTarget.Bookmarks(oTarget_TM).Range
rng.Text = oSource.Bookmarks(oSource_TM).Range.Text
oTarget.Bookmarks.Add oTarget_TM, rng
End If
End Function
|