[VBA] Textmarken mit Ursprungsformatierung kopieren

Moderator: ModerationP

[VBA] Textmarken mit Ursprungsformatierung kopieren

Beitragvon spam275 » 29. Nov 2019, 10:53

Ich 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?

Code: Alles auswählen
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


http://www.vba-forum.de/Forum/View.aspx ... g_kopieren
Zuletzt geändert von spam275 am 29. Nov 2019, 12:55, insgesamt 1-mal geändert.
spam275
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4
Registriert: 29. Nov 2019, 10:49

Re: [VBA] Textmarken mit Ursprungsformatierung kopieren

Beitragvon steve1da » 29. Nov 2019, 12:20

Hola,

verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig?
Danke.

Gruß,
steve1da
Benutzeravatar
steve1da
Moderator
 
Beiträge: 29693
Registriert: 24. Sep 2003, 10:54

Re: [VBA] Textmarken mit Ursprungsformatierung kopieren

Beitragvon spam275 » 29. Nov 2019, 12:25

Hey, wo soll ich das noch verlinken? Ich stehe gerade auf dem Schlauch.
spam275
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4
Registriert: 29. Nov 2019, 10:49

Re: [VBA] Textmarken mit Ursprungsformatierung kopieren

Beitragvon steve1da » 29. Nov 2019, 12:27

Hola,

du setzt hier einen Link zur Frage im VBA Forum und dort einen Link nach hier.
Somit kann jeder nachschauen, ob es zur Frage schon Lösungen gibt.

Gruß,
steve1da
Benutzeravatar
steve1da
Moderator
 
Beiträge: 29693
Registriert: 24. Sep 2003, 10:54

Re: [VBA] Textmarken mit Ursprungsformatierung kopieren

Beitragvon spam275 » 29. Nov 2019, 12:55

Achso, ich wusste nicht das die foren zusammen gehören. ist aber erledigt
spam275
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4
Registriert: 29. Nov 2019, 10:49

Re: [VBA] Textmarken mit Ursprungsformatierung kopieren

Beitragvon theoS » 01. Dez 2019, 17:36

Die Foren gehören nicht zusammen. X-Posts sind nirgends gern gesehen.
Der Grund für dein Problem ist eigentlich banal.
Wenn du nur Text übergibst, kommt auch nur Text an.
Code: Alles auswählen
rng.Text = oSource.Bookmarks(oSource_TM).Range.Text

Wenn dann geht das mit dem Range, den du dabei durch den anderen Range ersetzt.
theo s.
Benutzeravatar
theoS
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4921
Registriert: 19. Apr 2008, 00:14

Re: [VBA] Textmarken mit Ursprungsformatierung kopieren

Beitragvon spam275 » 05. Dez 2019, 10:51

Ok danke
spam275
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4
Registriert: 29. Nov 2019, 10:49


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste