Tabelle als Verknüpfung nach Word kopieren

Bild

Betrifft: Tabelle als Verknüpfung nach Word kopieren
von: Tom
Geschrieben am: 10.12.2003 11:50:49

Hallo

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

Bild


Betrifft: AW: Tabelle als Verknüpfung nach Word kopieren
von: Karl-Otto Reimann
Geschrieben am: 10.12.2003 12:26:47

Hallo Tom
Versuch die With-Anweisung umzubauen:

With WordObj.Selection
.TypeText Text:="Teilnehmerliste aus : " & ActiveWorkbook.Name
.TypeParagraph
.TypeText Text:="vom " & Format(Now(), "dd-mmm-yyyy")
.TypeParagraph
.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
wdFloatOverText, DisplayAsIcon:=False
End With

mfG KO


Bild

Beiträge aus den Excel-Beispielen zum Thema " Tabelle als Verknüpfung nach Word kopieren"