Hallo,
Da es anscheinend kaum einen Lösungsansatz gibt zum Kopieren der Tabelle, habe ich eine Idee wie ich das vielleicht mit Arrays lösen kann.
Das Array habe ich mit Daten gefüllt. Jetzt möchte in diese Daten in eine vorhandene Tabelle in einem Word - Dokument ausgeben. Wie kann ich das realisieren?
Oder kann ich einzelne Daten aus dem Array in Textmarken ablegen?
Sub Dokument_öffnen()
Dim Constant_Current As Variant
Constant_Current = Range("C5:C10").Value
'MsgBox "Dokument 1 wird geöffnet"
'___________________________________________________________________________
'In Variablen schreiben, was in den einzelnen Zellen steht. Das geht so nicht wegen der Kopierbarkeit, zu viele Daten und Spalten müssen ergänzbar sein
'Component = ActiveSheet.Range("B5")
'Component_eintrag1 = ActiveSheet.Range("C5")
'Component_eintrag2 = ActiveSheet.Range("C12")
'___________________________________________________________________________
'Öffnen des Word Dokuments
Dim Doku1 As Object
On Error Resume Next
Set Doku1 = GetObject(, "Word.Application")
If Doku1 Is Nothing Then Set Doku1 = CreateObject("Word.Application")
On Error GoTo 0
With Doku1
.Visible = True
'.Documents.Open "C:\Users\pby891\Desktop\Excel Projekt\PLT-3 IQ 2x2-24DC-P wo PKG - 1.dotm"
.Documents.Open "C:\Users\pby891\Desktop\Testinstruction.dotm"
End With
'___________________________________________________________________________
'Abfrage ob die Textmarke vorhanden ist, dann eintragen der Variablen
'Wenn die Textmarke nicht vorhanden ist, anzeigen eines Fehlers
If Doku1.ActiveDocument.Bookmarks.Exists("Component_1") = True Then
'Fall Abfrage ob die Textmarke "..." exitiert
If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag1") = False Then
Component_eintrag1 = "component_eintrag1"
MsgBox "Felher - Textmarke " & Component_eintrag1 & " nicht vorhanden", vbkOKonly, "FEHLER"
Else
'Hier soll das Array ausgebeben werden
Doku1.ActiveDocument.Bookmarks("Component_eintrag1").Range = 'Hier will ich das Array ausgeben. Am besten nur den ersten EIntrag
If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag2") = False Then
Component_eintrag2 = "component_eintrag2"
MsgBox "Felher - Textmarke " & Component_eintrag2 & " nicht vorhanden", vbkOKonly, "FEHLER"
Else
Doku1.ActiveDocument.Bookmarks("Component_eintrag2").Range = Component_eintrag2
If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag3") = False Then
Component_eintrag3 = "component_eintrag3"
MsgBox "Felher - Textmarke " & Component_eintrag3 & " nicht vorhanden", vbkOKonly, "FEHLER"
Else
Doku1.ActiveDocument.Bookmarks("Component_eintrag3").Range = Component_eintrag3
End If
If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag4") = False Then
component_eintrag4 = "component_eintrag4"
MsgBox "Felher - Textmarke " & component_eintrag4 & " nicht vorhanden", vbkOKonly, "FEHLER"
Else
Doku1.ActiveDocument.Bookmarks("Component_eintrag4").Range = component_eintrag4
End If
End If
End If
Else: MsgBox "Felher - Textmarke nicht vorhanden", vbkOKonly, "FEHLER"
End If
End Sub
Die If Abfragen stellen nur fest ob die Textmarke vorhanden ist oder nicht.
|