Tabelle als Verknüpfung nach Word kopieren
10.12.2003 11:50:49
Tom
Mit dem folgenden Code möchte ich eine Tabelle als Verknüpfung in ein Worddokument einfügen.
Sie wird aber nur unverknüpft eingefügt.
Wer weiss weiter?
Tom
Sub ExcelTabelleNachWordVerknüpft()
Dim WordObj As Object
Dim WordDoc As Object
Dim i As Integer
Sheets("Tabelle4").Activate
i = ActiveSheet.UsedRange.Rows.Count
Range("A3:D" & i).Copy
Set WordObj = CreateObject("word.application")
WordObj.Visible = True
Set WordDoc = WordObj.Documents.Add
With WordObj.Selection
.TypeText Text:="Teilnehmerliste aus : " & ActiveWorkbook.Name
.TypeParagraph
.TypeText Text:="vom " & Format(Now(), "dd-mmm-yyyy")
.TypeParagraph
End With
WordObj.Selection.PasteSpecial link:=True
Application.CutCopyMode = False
Set WordObj = Nothing
Set WordDoc = Nothing
End Sub