Habe mir ein Makro zur Übergabe an Word gebastelt.
Das Makro nimmt as der Tabelle "Word" aus Spalte A den
Namen der Textmarke und Aus Spalte B den Inhalt.
Ich trage den Wert aus der Spalte B in die vorhandene
Textmarke in das Word Dokument ein, und benenne nachher
die Textmarke (da sie durch den Eintrag gelöscht wird)
wieder richtig, da ich sie in einem Wordmakro wieder brauche.
Es funktioniert sehr gut, allerdings braucht das Makro für
ca. 300 Einträge ziemlich (ca. 45 sec) lange.
Meine Frage:
Gibts vielleicht Verbesserungsvorschläge ?
Sub Fetz_ins_Word
Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Dim TM, Text As String
Dim a, Zeilen As Integer
Dim ws As Worksheet
On Error GoTo w
AppActivate "Microsoft Word"
Set WordObj = Word.Application
GoTo n
w:
Set WordObj = CreateObject("Word.Application")
n:
'Vorlage öffnen
Set WordDoc = WordObj.Documents.Add("D:\dot\Meindoc.dot")
'Textmarken auslesen
Set ws = Worksheets("Word")
Zeilen = ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1
For a = 1 To Zeilen
TM = ws.Cells(a, 1).Text
Wert = ws.Cells(a, 2).Text
WordDoc.Bookmarks(TM).Select
WordDoc.Parent.Selection.TypeText Text:=Wert
WordObj.Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
WordDoc.Parent.Selection.Bookmarks.Add Name:=TM
Next
End Sub
Vielen Dank für Eure Mühe
Michael