Hallo,
ich habe seit Wochen ein Problem und komme einfach nicht weiter.
Ich habe ein Document mit mehreren Tabellen.
Daraus wird zum Schluss ein neues Dokument nur mit dem Text erstellt.
Jetzt möchte ich aber nicht nur Textteile sondern zwischendrin eine ganze Tabelle kopieren und im neuen Dokument auch mittendrin einfügen.
Die Tabelle die kopiert und eingefügt werden soll, ist unter Beschlusstext 2 zu finden.
Vielleicht kann mir ja jemand helfen eine Lösung zu finden. Danke im Voraus
Public Sub Vfg§163f()
Dim vfg As Document
Dim rs As Document
Dim Text As String
Dim AZ As String
Dim Tabelle As String
Dim TabelleKennung As String
Dim beRange As String
Set vfg = ActiveDocument
Call docUnprotectG(vfg)
vorlagenPfad = hvts3Einstellungen(„Vorlagenpfad“)
‚‘'Vorlage auswählen
Set rs = HVTS3Programm.GerichtKopf(ActiveDocument, „01/01_100g-Beschluss_Skype-Tracking“)
‚‘'Aktzenzeichen auslesen (vfg) und einfügen (rs)
Set doc = ActiveDocument
vfg.Activate
If vfg.Bookmarks.Exists(„AZ“) Then
AZ = vfg.FormFields(„AZ“).Result
End If
If rs.Bookmarks.Exists(„AZ“) Then
Call setFF(rs, „AZ“, AZ)
End If
doc.Activate
‚‘'Beschlusstext 1 auslesen (vfg)
If vfg.Bookmarks.Exists(„TextErmittlungsverfahren“) Then
Text = BZ_Text_RS(„TextErmittlungsverfahren“, vfg)
End If
‚‘'Beschlusstext 1 einfügen (rs)
Call TM_Text_Zelle_schreiben(rs, „TextEinfügen“, Text)
‚‘'Beschlusstext 2 auslesen (vfg)
‚‘ anfang = ActiveDocument.Bookmarks(„TextBeginn“).Range.Start
‚‘ ende = ActiveDocument.Bookmarks(„TextEnde“).Range.Start
‚‘ Set beRange = ActiveDocument.Range(Start:=anfang, End:=ende)
‚‘ beRange.Copy
‚‘'Beschlusstext 2 einfügen (rs)
Call TM_Text_Zelle_schreiben(rs, „TabelleKennzahlenEinf“, beRange)
‚‘'Beschlusstext 3 auslesen (vfg)
If vfg.Bookmarks.Exists(„Gruende“) Then
Text = BZ_Text_RS(„Gruende“, vfg)
End If
‚‘'Beschlusstext 3 einfügen (rs)
Call TM_Text_Zelle_schreiben(rs, „Gruende“, Text)
Call docProtectG(vfg)
Call docProtectG(rs)
End Sub