Mit der Maus rechtsclick einfügen: Ich habe eine Tabelle eingefügt mit dem nachfolgenden Code füge ich die Tabelle als Graphic ein? Wer weiß eine Lösung?
If datopword "Keine Datei" Then
frage = MsgBox("Soll gleich in die Wordvorlage kopiert werden? ", vbYesNo)
If frage = 6 Then
Dim wordApp As Object
'In der Vorlage ist eine Textmarke "tabelle" abgespeichert.
'An diese Position soll die Tabelle aus der Zwischenablage
'eingefügt werden.
Set wordApp = CreateObject("Word.application")
With wordApp
.Visible = True
worddatei = doku + "\" + datopword
MsgBox doku
On Error GoTo fehler
.Documents.Open Filename:=worddatei
With .Documents(datopword)
.Bookmarks("tabelle").Select
.ActiveWindow.Selection.Paste
End With
End With
Application.CutCopyMode = False
End If
End If