Hallo!
Programmbeschreibung(Kann übersprungen werden):
Ich habe eine Excel Tabelle in der ich Textmarken anharken möchte. Diese Textmarken befinden sich in einem Word-Dokument und sind bekannt. Diese ausgewählten Textmarken sollen in einem neuem Word-Dokument gespeichert werden und zwar nicht als Textmarke den ich dann einfügen kann sondern als quasi eingefügte Textmarke/Bookmark. So sollen sich individuel Prüfbögen erstellen lassen, die dann einfach ausgefüllt werden können.
Problem:
Ich kann nicht die Textmarken vom WordDokument A in das frisch erzeugte WordDokument B einfügen.
Fehlversuche:
Oder das hier:
Ich hab das jetzt in den verschiedensten Konstalltionen schon durch und bekomme es leider nicht hin. Benutze ich den falschen Code? Ich hab leider noch nie mit Textmarken gearbeitet.
Vielen Dank!
Programmbeschreibung(Kann übersprungen werden):
Ich habe eine Excel Tabelle in der ich Textmarken anharken möchte. Diese Textmarken befinden sich in einem Word-Dokument und sind bekannt. Diese ausgewählten Textmarken sollen in einem neuem Word-Dokument gespeichert werden und zwar nicht als Textmarke den ich dann einfügen kann sondern als quasi eingefügte Textmarke/Bookmark. So sollen sich individuel Prüfbögen erstellen lassen, die dann einfach ausgefüllt werden können.
Problem:
Ich kann nicht die Textmarken vom WordDokument A in das frisch erzeugte WordDokument B einfügen.
Fehlversuche:
Quellcode
- Hallo!
- Programmbeschreibung(Kann übersprungen werden):
- Ich habe eine Excel Tabelle in der ich Textmarken anharken möchte. Diese
- Textmarken befinden sich in einem Word-Dokument und sind bekannt. Diese
- ausgewählten Textmarken sollen in einem neuem Word-Dokument gespeichert
- werden.
- Problem:
- Ich bekomme die Textmarken nicht von dem einen Dokument in das neu erzeugte.
- Fehlversuche:
- Quellcode
- Dim AppWDTextmarken As Object
- Dim wdApp As Object 'Die Word Application
- Dim wDoc As Object 'Das Word Dokument bzw. geöffnete Seite
- On Error Resume Next
- Set wdApp = GetObject(, "Word.Application")
- On Error GoTo 0
- If wdApp Is Nothing Then
- Set wdApp = CreateObject("Word.Application")
- wdApp.Visible = True
- End If
- wdApp.documents.Add
- Set wDoc = wdApp.ActiveDocument
- Set AppWDTextmarken = CreateObject("Word.Application") 'Word als Object starten
- AppWDTextmarken.Visible = True
- AppWDTextmarken.documents.Open
- Sheets("Einstellungen").Range("C10").Value & "\" &
- Sheets("Einstellungen").Range("B10").Value & ".docx"
- Dim strVar As String
- Dim TMRange As Range
- Dim TM As String
- 'Variablen mit Werten füllen
- strVar = AppWDTextmarken.ActiveDocument.Bookmarks(Sheets("Prüferstellung").Range("D17").Value).Range.Text
- TM = Sheets("Prüferstellung").Range("D17").Value
- 'Textmarke füllen und neu setzen
- If AppWDTextmarken.ActiveDocument.Bookmarks.Exists(TM) Then
- Set TMRange = AppWDTextmarken.ActiveDocument.Bookmarks(TM).Range
- 'Rangeobjekt einen Wert zuweisen
- TMRange = strVar
- 'Textmarke mit dem wert setzen
- wdApp.ActiveDocument.Bookmarks.Add TM, AppWDTextmarken.ActiveDocument.Bookmarks(TM).Range
- Else
- Fehlermeldung, wenn es die Textmarke nicht gibt
- MsgBox "Textmarke konnte nicht gesetzt werden!"'
- End If
Oder das hier:
Quellcode
- Dim rng As Range
- ' AppWDTextmarken.ActiveDocument.Bookmarks(Sheets("Prüferstellung").Range("D17").Value).Range.Copy
- AppWDTextmarken.ActiveDocument.Bookmarks(Sheets("Prüferstellung").Range("D17").Value).Range.Copy
- rng.Paste
- rng.Font.Hidden = False
- wdApp.ActiveDocument.Bookmarks.Add Sheets("Prüferstellung").Range("D17").Value, rng
Ich hab das jetzt in den verschiedensten Konstalltionen schon durch und bekomme es leider nicht hin. Benutze ich den falschen Code? Ich hab leider noch nie mit Textmarken gearbeitet.
Vielen Dank!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Main“ ()