Ich benutze schon seit längerer Zeit eine Excel Anwendung zum Formulieren von Angeboten an meine Kunden. Die Zahlen werden dazu mittels des Excel-Programms ermittelt und in die Windows-Zwischenablage kopiert. Für den Fall das das Angebot mit Word geschrieben wird gibt es eine Textvorlage (angebot.dot) mit einer Textmarke an die die Tabelle gespeichert werden soll. Von "Hand" funktioniert es : Das heist im Excel Programm werden die erforderlichen Daten in die Zwischenablage kopiert. Im weiteren Programmlauf (siehe unten) sollen dann die Daten als Tabelle nach Word geschrieben werden.
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