Aus EXCEL Zwischenablage im WORD löschen

Hallo,
ich lese den Inhalt einer WORD-Datei in eine Stringvariable im EXCEL ein.
Word starten, wenn nötig funzt
Dokument öffnen funzt
'alles markieren und kopieren funz auch
wordapp.selection.wholestory
wordapp.selection.copy
Im Excel wird der Inhalt der Zwischenablage in eine Stringvaribale kopiert.
Soweit geht alles wunderbar, leider habe ich nun das Problem, dass der Inhalt der Zwischenablage wieder gelöscht werden soll, damit man diesen nicht manuell verwenden kann und keine Nachfrage nach Verwendung der Zwischenablage beim Beenden von Word kommt.
Folgenden Code habe ich probiert, funktioniert aber nicht (ich vermute, dass lediglich die Zwischenablage im EXCEl gelöscht wird, die im WORD zeigt sich unbeeindruckt).


Sub InhaltDerZwischenablageLoeschen2()
Dim oData As DataObject
Set oData = New DataObject
oData.SetText ""
oData.PutInClipboard
End Sub

Gibt es eine Möglichkeit diesen Code auf Word zu beziehen oder eine andere Möglichkeit aus dem Excel heraus die Zwischenablage im Word zu löschen?
(Die Lösung muss im Office 97 und höher funktionieren)
Vilen Dank im Voraus!
Marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function CloseClipboard Lib "user32" () As Long Public Sub loeschen_Zwischenablage() OpenClipboard FindWindow("xlMain", vbNullString) EmptyClipboard CloseClipboard End Sub

Option Explicit Public Sub test() Dim myCommandbar As CommandBar, myCommandBarButton As CommandBarButton Set myCommandbar = Application.CommandBars("Clipboard") If Not myCommandbar Is Nothing Then If myCommandbar.Enabled And myCommandbar.Visible Then Set myCommandBarButton = myCommandbar.FindControl(ID:=3634, Recursive:=True) If Not myCommandBarButton Is Nothing Then myCommandBarButton.Execute End If End If Set myCommandbar = Nothing Set myCommandBarButton = Nothing End Sub

Option Explicit Public Sub test() Dim myCommandbar As CommandBar, myCommandBarButton As CommandBarButton Set myCommandbar = Application.CommandBars("Clipboard") If Not myCommandbar Is Nothing Then If myCommandbar.Enabled And myCommandbar.Visible Then Set myCommandBarButton = myCommandbar.FindControl(ID:=3634, Recursive:=True) If Not myCommandBarButton Is Nothing And myCommandBarButton.Enabled Then myCommandBarButton.Execute End If End If Set myCommandbar = Nothing Set myCommandBarButton = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Aus EXCEL Zwischenablage im WORD löschen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus EXCEL Zwischenablage im WORD löschen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread