Word-Export: Textmarke nach einfügen erzeugen?!

Hallo liebe Excel-Freunde,
ich habe ein Word-Dokument mit Textmarken, dass ich aus Excel heraus befüllen möchte. Nur leider werden mir Textmarken gelöscht, welche einen Text enthalten, also zum Beispiel:
Zuerst: [Hier kommt der Text rein]
Nach Einfügen: Der neue Text (keine Textmarken mehr...)
Wie kann ich mir die Textmarke wieder anschließend erstellen? Ich brauche diese für Referencen im Word-Dokument

Dim Transfer(0 To 1) As Variant
Set apWord = CreateObject("Word.Application")
Transfer(0) = Array("Textmarke1", "X21")
Transfer(1) = Array("Textmarke2", "AA21")
With apWord.Documents(NameWordDokument)
For k = 0 To UBound(Transfer)
If .bookmarks.Exists(Transfer(k)(0)) Then
.bookmarks(Transfer(k)(0)).Range.Text = ActiveSheet.Range(Transfer(k)(1))
.bookmarks.Add (Transfer(k)(0))
End If
Next
End With

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim strVar As String, TM As String Dim TMRange As Range For k = 0 To UBound(Transfer) 'Variablen mit Werten füllen strVar = ActiveSheet.Range(Transfer(k)(1)) TM = Transfer(k)(0) 'Textmarke füllen und neu setzen With apWord.Documents(NameWordDokument) If .Bookmarks.Exists(TM) Then Set TMRange = .Bookmarks(TM).Range 'Rangeobjekt einen Wert zuweisen TMRange = strVar 'Textmarke mit dem wert setzen .Bookmarks.Add TM, TMRange Else 'Fehlermeldung, wenn es die Textmarke nicht gibt MsgBox "Textmarke konnte nicht gesetzt werden!" End If End With Next

Hallo Nils,
erstaunlich, daß selbst in Vba-Handbüchern wie:
Microsoft Word Programmierung Das Handbuch
von: Cindy Meister, Christian Freßdorf, Thomas Gahler
nur die vereinfachte Variante erwähnt wird, so daß wie in Deinem Fall eine offene Textmarke statt einer geschlossenen TM entsteht. Hier ein Beispiel für die gewünschte geschlossene TM
Dim appWord As Object, TMRange As Object
Dim strVar As String, TM As String, NameWordDokument As String
Dim j As Integer
Dim Transfer(0 To 1) As Variant
NameWordDokument = "sinnlos.docx"
Set appWord = CreateObject("Word.Application")
Transfer(0) = Array("Textmarke1", "X21")
Transfer(1) = Array("Textmarke2", "AA21")
With appWord.Documents(NameWordDokument)
For k = 0 To UBound(Transfer)
If .bookmarks.Exists(Transfer(k)(0)) Then
'Textmarke selektieren, wichtig!
.GoTo What:=-1, Name:=Transfer(k)(0)
TMRange = Selection.Range
'neuer TM-Text in Variable schreiben
strVar = ActiveSheet.Range(Transfer(k)(1))
'Länge des Inhaltes ermitteln
j = Len(strVar)
'TM -Inhalt ersetzen
.bookmarks(Transfer(k)(0)).Range.Text = strVar
'jetzt steht der Word-Markierungscursor an der 1. Stelle der ehemaligen Textmarke!
'Cursor-Selektierung erweitern auf gerade eingefügten Text der Textmarke
.Selection.MoveRight Unit:=1, Count:=j, Extend:=1
Set TMRange = .Selection.Range
'Textmarke neu erstellen
.bookmarks.Add (Transfer(k)(0)), TMRange
End If
Next
End With
'und jetzt noch alle Objektvariablen auf Nothing setzen!
Set TMRange = Nothing
'usw.
Gruß von Luschi
aus klein-Paris

For k = 0 To UBound(Transfer) If .bookmarks.Exists(Transfer(k)(0)) Then 'Textmarke selektieren, wichtig! .bookmarks(Transfer(k)(0)).Select 'Textmarken-Inhalt ersetzen .bookmarks(Transfer(k)(0)).Range.Text = ActiveSheet.Range(Transfer(k)(1)) 'jetzt steht der Word-Markierungscursor an der 1. Stelle der ehemaligen _ Textmarke! 'Cursor-Selektierung erweitern auf gerade eingefügten Text der Textmarke apWord.Selection.MoveRight 1, Len(ActiveSheet.Range(Transfer(k)(1))), 1 'Textmarke neu erstellen .bookmarks.Add (Transfer(k)(0)), apWord.Selection.Range End If Next

Beliebteste Forumthreads (12 Monate)

Word-Export: Textmarke nach einfügen erzeugen?!

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Word-Export: Textmarke nach einfügen erzeugen?!

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread