Zwischenablage Kopie nach Word

Peter · 2009-06-11T13:03:22+00:00

Hallo, vorab, ich weiß, ich bin im falschen Forum. Aber ich kenne kein so kompetentes Word-Forum. Vielleicht kann mir ja doch jemand helfen. Mein Problen: Ich kopieren per VBA Kommentare einzelner Zellen in die Zwischenablage. Dort kommen sie auch an. Mit VBA öffne ich nun Word und möchte die Zwischenablage in die Word-Datei einsetzen. Hier fehlen mir die richtigen Word-Makro-Befehle. Nur mit selection.paste geht das nicht. Mit getfromClipboard bekomme ich eine Formatect-Struktur-Fehlermeldung. Vielleicht hat jemand das Problem schon mal gelöst, - oder kann mir ein gutes Word-Forum nennen. Für den freundlichen Helfer Dank vorab Grüße Peter

Hallo Rainer,
danke für deine Tipps, aber so richtig weiter komme ich nicht. Ich habe folgenden Code verwendet:


Sub ZwischenablageEinfügen()
Selection.EndKey Unit:=wdStory
Selection.Paste
End Sub

Das funktioniert, wenn ich das kleine Makro in Word aufrufe. Es funktioniert aber nicht, wenn ich es mit AutoOpen verbinde.


Sub AutoOpen()
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
ZwischenablageEinfügen
End Sub

Alternativ habe ich versucht, Deinen Hinweis umzusetzen mit wenig Erfolg


Sub ZwischenablageEinfügen()
Dim Ablage As DataObject
Dim stext As String
Selection.EndKey Unit:=wdStory
Set Ablage = New DataObject
Ablage.GetFromClipboard
stext = Ablage.GetText(1)
stext.Selection.Paste
End Sub

Hier erhalte ich eine Fehlermeldung bei stext (wohl weil stext kein object ist).
Luc meinte, ich solle es mal bei Office-Loesung probieren. Da werde ich mich jetzt anmelden. Es würde mich aber freuen, wenn Du aber noch einen Hinweis hast.
Grüße
Peter

Hallo Rainer,
schön, dass Du Dich noch einmal gemeldet hast. Ich hatte folgenden Code benutzt.


Sub Tagebuch()
worddatei = Application.ActiveWorkbook.Path & "\Tagebuch.doc"
If Dir(worddatei) = "" Then
Beep
MsgBox "Das Verzeichnis der Worddatei oder" & vbCr & _
"die Worddatei > Andreas-Tagebuch.doc


Sub CommentCopy()
Dim oData As New DataObject
Dim sText As String
sText = ""
If OpenClipboard(0&)  0 Then
Call EmptyClipboard
Call CloseClipboard
End If
If ActiveCell.Comment Is Nothing Then
sText = Date
With oData
.SetText sText
.PutInClipboard
End With
Else
sText = ActiveCell.Comment.Text
With oData
.SetText sText
.PutInClipboard
End With
End If
End Sub

'Mike vom Forum Office-loesung gab mir den Hinweis den Text doch direkt über Excel zu übergeben. Ich habe es mit folgendem Code versucht.
If ActiveCell.Comment Is Nothing Then
sText = Date & Chr(13)
Else
sText = ActiveCell.Comment.Text & Chr(13)
End If
Set wrdDoc = wrdapp.Documents.Open(worddatei)
wrdapp.Activate
wrdapp.Selection.TypeText sText
Damit klappt es. Aber über die Zwischenablage müsste es doch auch gehen. Denn wenn die Worddatei aufgerufen ist, kann ich den Text über das Einfügensymbol abrufen. Wenn Du dafür eine Lösung hättest, wäre schön. Denn solche Probleme/Aufgaben treten ja immer mal wieder auf. Die Lösung mit wrdapp.Selection.TypeText sText ist natürlich viel einfacher und mein heutiges Problem gelöst..
Danke für Dein Bemühen
Grüße
Peter

Forumthread: Zwischenablage Kopie nach Word

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial