Word-Text formatiert in die Zwischenablage

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Dideldum.

    Word-Text formatiert in die Zwischenablage

    Hallo zusammen,

    folgende Frage:
    Wie kann man bewerkstelligen, dass wenn man von Word einen formatierten Text (nicht RTF) mit Strg+A, Strg+C in die Zwischenablage kopiert, dort auch der formatierte und kein Plain-Text ankommt. D.h., erkennt die Zwischenablage, was da ankommt??

    Grüße - Dietrich

    Wenn ich das richtig sehe, gibt es beim Clipboard die Methoden GetText() für Plain-Text und GetText(TextDataFormat) für formatierten Text, siehe learn.microsoft.com/en-us/dotn…t?view=windowsdesktop-8.0

    Und es gibt dort nur CSV, HTML, RTF und Text, somit wird das aus Word wohl RTF sein. Wobei ich da Bilder vermisse.

    Es ist auf jeden Fall immer formatiert und unformatiert in der Zwischenablage, weil Strg+V ist formatiert und Strg+Shift+V ist unformatiert.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

    Hi Ihr, es gibt m.W. folgende ZwischenablageFormate (Beispiel aus meinem Proggi):
    Spoiler anzeigen

    VB.NET-Quellcode

    1. If Clipboard.ContainsImage = True AndAlso (My.Settings.Import_NeueBildObjekte > 0 OrElse importArt > 0) Then
    2. ' Bild
    3. ZwischenablageFormat = 4
    4. ordnerWahl = My.Settings.DefaultOrdner_NeueBildObjekte
    5. objektWahl = My.Settings.Import_NeueBildObjekte
    6. Else
    7. If Clipboard.ContainsFileDropList = True AndAlso (My.Settings.Import_NeueDateiObjekte > 0 OrElse importArt > 0) Then
    8. ' Datei
    9. ZwischenablageFormat = 5
    10. ordnerWahl = My.Settings.DefaultOrdner_NeueDateiObjekte
    11. objektWahl = My.Settings.Import_NeueDateiObjekte
    12. Else
    13. If Clipboard.ContainsText = True Then
    14. If Clipboard.ContainsData(DataFormats.MetafilePict) = True AndAlso (My.Settings.Import_NeueRTFObjekte > 0 OrElse importArt > 0) Then
    15. ZwischenablageFormat = 2
    16. ordnerWahl = My.Settings.DefaultOrdner_NeueRTFObjekte
    17. objektWahl = My.Settings.Import_NeueRTFObjekte
    18. Else
    19. If Clipboard.ContainsText(TextDataFormat.Rtf) = True AndAlso (My.Settings.Import_NeueRTFObjekte > 0 OrElse importArt > 0) Then
    20. ' RTF
    21. ZwischenablageFormat = 2
    22. ordnerWahl = My.Settings.DefaultOrdner_NeueRTFObjekte
    23. objektWahl = My.Settings.Import_NeueRTFObjekte
    24. Else
    25. If Clipboard.ContainsText(TextDataFormat.Html) = True AndAlso (My.Settings.Import_NeueHTMLObjekte > 0 OrElse importArt > 0) Then
    26. ' HTML
    27. ZwischenablageFormat = 3
    28. ordnerWahl = My.Settings.DefaultOrdner_NeueHTMLObjekte
    29. objektWahl = My.Settings.Import_NeueHTMLObjekte
    30. Else
    31. If Clipboard.ContainsText(TextDataFormat.UnicodeText) = True AndAlso (My.Settings.Import_NeueTextObjekte > 0 OrElse importArt > 0) Then
    32. ' Unicode-Text
    33. ZwischenablageFormat = 1
    34. ordnerWahl = My.Settings.DefaultOrdner_NeueTextObjekte
    35. objektWahl = My.Settings.Import_NeueTextObjekte
    36. Else
    37. If Clipboard.ContainsText(TextDataFormat.Text) = True AndAlso (My.Settings.Import_NeueTextObjekte > 0 OrElse importArt > 0) Then
    38. ' Text
    39. ZwischenablageFormat = 0
    40. ordnerWahl = My.Settings.DefaultOrdner_NeueTextObjekte
    41. objektWahl = My.Settings.Import_NeueTextObjekte
    42. End If
    43. End If
    44. End If
    45. End If
    46. End If
    47. End If
    48. End If
    49. End If



    Und speichern des Clipboard-Inhaltes (Beispiel aus meinem Proggi):
    Spoiler anzeigen

    Quellcode

    1. Select Case ZwischenablageFormat
    2. Case = 5
    4. ' Datei(en) / Ordner
    5. dName = IO.Path.Combine(dOrdner, IO.Path.GetFileName(Clipboard.GetFileDropList(0)))
    7. ergebnis = DateienImICEKopieren(Clipboard.GetFileDropList(), IO.Path.Combine(dOrdner, nName), 2, My.Resources.ICE_Main_ObjektAusZwischenablage_Info0, My.Resources.ICE_Main_ObjektAusZwischenablage_Info1, False, False)
    8. If ergebnis = 0 Then
    10. If manuellerImport = True Then
    11. Statistik_ObjekteManuellAusClipboard += Clipboard.GetFileDropList.Count
    12. Else
    13. Statistik_ObjekteAutomatischAusClipboard += Clipboard.GetFileDropList.Count
    14. End If
    16. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_Datei & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Erfolgreich, importArt)
    17. Else
    18. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_Datei & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Fehlgeschlagen, importArt)
    19. End If
    21. Case = 4
    23. ' Bild
    25. Dim bildObjekt As New PictureBox
    26. dName = IO.Path.Combine(dOrdner, dName & "." & My.Settings.Import_BildFormat)
    27. nName = dName
    29. ' Objekt schon vorhanden?
    30. If IO.File.Exists(dName) = True Then
    31. vara = 1
    32. Do
    33. dName = IO.Path.Combine(dOrdner, IO.Path.GetFileNameWithoutExtension(nName) & " (" & vara & ")" & "." & My.Settings.PicEditor_SpeichernBildFormat)
    34. vara += 1
    35. Loop While IO.File.Exists(dName) = True
    36. End If
    38. bildObjekt.Image = Clipboard.GetImage
    39. returnfehler = BildObjekt_Speichern(bildObjekt, dName, My.Settings.Import_JPGQualität)
    40. If returnfehler = False Then
    42. If manuellerImport = True Then
    43. Statistik_ObjekteManuellAusClipboard += 1
    44. Else
    45. Statistik_ObjekteAutomatischAusClipboard += 1
    46. End If
    47. form_Einstellungen.UpdateStatistik()
    49. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_Bild & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Erfolgreich, importArt)
    50. Else
    51. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_Bild & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Fehlgeschlagen, importArt)
    52. End If
    53. Case = 3
    55. ' HTML
    57. Select Case My.Settings.Import_HTMLalsXImportieren
    58. Case 0
    60. ' als HTML
    62. Dim htmlObjekt As New WebBrowser
    63. vara = 0
    64. Do Until htmlObjekt.ReadyState = WebBrowserReadyState.Complete Or vara > 20000
    65. vara += 1
    66. System.Windows.Forms.Application.DoEvents()
    67. Loop
    69. dName = IO.Path.Combine(dOrdner, dName & ".html")
    71. Dim html As String = Clipboard.GetText(TextDataFormat.Html)
    72. HtmlUmformatieren(html, dName)
    74. htmlObjekt.DocumentText = html
    75. vara = 0
    76. Do Until htmlObjekt.ReadyState = WebBrowserReadyState.Complete Or vara > 20000
    77. vara += 1
    78. System.Windows.Forms.Application.DoEvents()
    79. Loop
    81. ' Objekt schon vorhanden?
    82. nName = dName
    83. If IO.File.Exists(dName) = True Then
    84. vara = 1
    85. Do
    86. dName = IO.Path.Combine(dOrdner, IO.Path.GetFileNameWithoutExtension(nName) & " (" & vara & ")" & ".html")
    87. vara += 1
    88. Loop While IO.File.Exists(dName) = True
    89. End If
    91. returnfehler = WebbrowserObjekt_Speichern(htmlObjekt, dName)
    92. If returnfehler = False Then
    94. If manuellerImport = True Then
    95. Statistik_ObjekteManuellAusClipboard += 1
    96. Else
    97. Statistik_ObjekteAutomatischAusClipboard += 1
    98. End If
    99. form_Einstellungen.UpdateStatistik()
    101. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_HTML & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Erfolgreich, importArt)
    102. Else
    103. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_HTML & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Fehlgeschlagen, importArt)
    104. End If
    105. Case 1
    106. ' Als RTF
    107. Dim textObjekt As New RichTextBox
    108. Dim htmlObjekt As New WebBrowser
    109. vara = 0
    110. Do Until htmlObjekt.ReadyState = WebBrowserReadyState.Complete Or vara > 20000
    111. vara += 1
    112. System.Windows.Forms.Application.DoEvents()
    113. Loop
    114. htmlObjekt.Navigate("about:")
    116. dName = IO.Path.Combine(dOrdner, dName & ".rtf")
    118. Dim html As String = Clipboard.GetText(TextDataFormat.Html)
    119. HtmlUmformatieren(html, dName)
    121. htmlObjekt.Document.Write(html)
    123. vara = 0
    124. Do Until htmlObjekt.ReadyState = WebBrowserReadyState.Complete Or vara > 20000
    125. vara += 1
    126. System.Windows.Forms.Application.DoEvents()
    127. Loop
    129. isLoaded = False
    130. htmlObjekt.Document.ExecCommand("SelectAll", False, Nothing)
    131. htmlObjekt.Document.ExecCommand("Copy", False, Nothing)
    133. textObjekt.SelectAll()
    134. textObjekt.Paste()
    135. isLoaded = True
    137. ' Objekt schon vorhanden?
    138. nName = dName
    139. If IO.File.Exists(dName) = True Then
    140. vara = 1
    141. Do
    142. dName = IO.Path.Combine(dOrdner, IO.Path.GetFileNameWithoutExtension(nName) & " (" & vara & ")" & ".rtf")
    143. vara += 1
    144. Loop While IO.File.Exists(dName) = True
    145. End If
    147. returnfehler = TextObjekt_Speichern(textObjekt, dName, TextDataFormat.Rtf)
    148. If returnfehler = False Then
    150. If manuellerImport = True Then
    151. Statistik_ObjekteManuellAusClipboard += 1
    152. Else
    153. Statistik_ObjekteAutomatischAusClipboard += 1
    154. End If
    155. form_Einstellungen.UpdateStatistik()
    157. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_HTMLAlsRTF & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Erfolgreich, importArt)
    158. Else
    159. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_HTMLAlsRTF & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Fehlgeschlagen, importArt)
    160. End If
    161. Case 2
    163. ' Als Text
    165. dName = IO.Path.Combine(dOrdner, dName & ".txt")
    166. nName = dName
    168. ' Objekt schon vorhanden?
    169. If IO.File.Exists(dName) = True Then
    170. vara = 1
    171. Do
    172. dName = IO.Path.Combine(dOrdner, IO.Path.GetFileNameWithoutExtension(nName) & " (" & vara & ")" & ".txt")
    173. vara += 1
    174. Loop While IO.File.Exists(dName) = True
    175. End If
    177. returnfehler = SpeichernAddtext(dName, TextDataFormat.Text)
    178. If returnfehler = False Then
    180. If manuellerImport = True Then
    181. Statistik_ObjekteManuellAusClipboard += 1
    182. Else
    183. Statistik_ObjekteAutomatischAusClipboard += 1
    184. End If
    185. form_Einstellungen.UpdateStatistik()
    187. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_HTMLAlsText & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Erfolgreich, importArt)
    188. Else
    189. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_HTMLAlsText & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Fehlgeschlagen, importArt)
    190. End If
    191. End Select
    193. Case = 2
    195. ' RTF
    197. If My.Settings.Import_RTFalsText = True Then
    198. dName = IO.Path.Combine(dOrdner, dName & ".txt")
    199. nName = dName
    201. ' Objekt schon vorhanden?
    202. If IO.File.Exists(dName) = True Then
    203. vara = 1
    204. Do
    205. dName = IO.Path.Combine(dOrdner, IO.Path.GetFileNameWithoutExtension(nName) & " (" & vara & ")" & ".txt")
    206. vara += 1
    207. Loop While IO.File.Exists(dName) = True
    208. End If
    210. returnfehler = SpeichernAddtext(dName, TextDataFormat.Text)
    211. If returnfehler = False Then
    213. If manuellerImport = True Then
    214. Statistik_ObjekteManuellAusClipboard += 1
    215. Else
    216. Statistik_ObjekteAutomatischAusClipboard += 1
    217. End If
    218. form_Einstellungen.UpdateStatistik()
    220. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_RTFAlsText & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Erfolgreich, importArt)
    221. Else
    222. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_RTFAlsText & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Fehlgeschlagen, importArt)
    223. End If
    224. Else
    225. dName = IO.Path.Combine(dOrdner, dName & ".rtf")
    226. nName = dName
    227. Dim textObjekt As New RichTextBox With {
    228. .Rtf = Clipboard.GetText(TextDataFormat.Rtf)
    229. }
    231. ' Objekt schon vorhanden?
    232. If IO.File.Exists(dName) = True Then
    233. vara = 1
    234. Do
    235. dName = IO.Path.Combine(dOrdner, IO.Path.GetFileNameWithoutExtension(nName) & " (" & vara & ")" & ".rtf")
    236. vara += 1
    237. Loop While IO.File.Exists(dName) = True
    238. End If
    240. returnfehler = TextObjekt_Speichern(textObjekt, dName, TextDataFormat.Rtf)
    241. If returnfehler = False Then
    243. If manuellerImport = True Then
    244. Statistik_ObjekteManuellAusClipboard += 1
    245. Else
    246. Statistik_ObjekteAutomatischAusClipboard += 1
    247. End If
    248. form_Einstellungen.UpdateStatistik()
    250. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_RTF & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Erfolgreich, importArt)
    251. Else
    252. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_RTF & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Fehlgeschlagen, importArt)
    253. End If
    254. End If
    255. Case = 1
    257. ' UnicodeText
    259. dName = IO.Path.Combine(dOrdner, IO.Path.GetFileNameWithoutExtension(dName) & ".txt")
    260. nName = dName
    262. ' Objekt schon vorhanden?
    263. If IO.File.Exists(dName) = True Then
    264. vara = 1
    265. Do
    266. dName = IO.Path.Combine(dOrdner, IO.Path.GetFileNameWithoutExtension(nName) & " (" & vara & ")" & ".txt")
    267. vara += 1
    268. Loop While IO.File.Exists(dName) = True
    269. End If
    271. returnfehler = SpeichernAddtext(dName, TextDataFormat.UnicodeText)
    272. If returnfehler = False Then
    274. If manuellerImport = True Then
    275. Statistik_ObjekteManuellAusClipboard += 1
    276. Else
    277. Statistik_ObjekteAutomatischAusClipboard += 1
    278. End If
    279. form_Einstellungen.UpdateStatistik()
    281. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_UnicodeText & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Erfolgreich, importArt)
    282. Else
    283. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_UnicodeText & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Fehlgeschlagen, importArt)
    284. End If
    285. Case = 0
    287. ' Text
    289. dName = IO.Path.Combine(dOrdner, dName & ".txt")
    290. nName = dName
    292. ' Objekt schon vorhanden?
    293. If IO.File.Exists(dName) = True Then
    294. vara = 1
    295. Do
    296. dName = IO.Path.Combine(dOrdner, IO.Path.GetFileNameWithoutExtension(nName) & " (" & vara & ")" & ".txt")
    297. vara += 1
    298. Loop While IO.File.Exists(dName) = True
    299. End If
    301. returnfehler = SpeichernAddtext(dName, TextDataFormat.Text)
    302. If returnfehler = False Then
    304. If manuellerImport = True Then
    305. Statistik_ObjekteManuellAusClipboard += 1
    306. Else
    307. Statistik_ObjekteAutomatischAusClipboard += 1
    308. End If
    309. form_Einstellungen.UpdateStatistik()
    311. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_Text & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Erfolgreich, importArt)
    312. Else
    313. BalloonTip_AusZwischenablageImportiert(My.Resources.ICE_Common_Text & " - " & My.Resources.ICE_Main_ObjektAusZwischenablage_Fehlgeschlagen, importArt)
    314. End If
    315. End Select



    Also für kopierte Word-Ausschnitte gilt:
    Clipboard.ContainsData(DataFormats.MetafilePict) wenn Text und Bilder aus Word kopiert wurden
    Clipboard.ContainsText(TextDataFormat.Rtf) wenn nur formatierter Text kopiert wurde
    Speichern:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim textObjekt As New RichTextBox With {.Rtf = Clipboard.GetText(TextDataFormat.Rtf)}
    2. returnfehler = TextObjekt_Speichern(textObjekt, dName, TextDataFormat.Rtf)

    VB.NET-Quellcode

    1. Private Function TextObjekt_Speichern(textObjekt As RichTextBox, dName As String, textTyp As Integer) As Boolean
    2. Dim returnFehler As Boolean = False
    3. Dim textbox As New RichTextBox
    5. Try
    6. FileWatcherSwitch(False)
    7. Select Case textTyp
    8. Case = TextDataFormat.Text
    9. ' Text
    10. Dim tmpStr As String = textObjekt.Text
    11. Dim encodingSplit = mainformTextEncodingTXT.Split(CChar(","))
    12. textbox.Text = tmpStr
    13. IO.File.WriteAllText(dName, tmpStr, System.Text.Encoding.GetEncoding(encodingSplit(0)))
    14. Case = TextDataFormat.UnicodeText
    15. ' Text
    16. Dim tmpStr As String = textObjekt.Text
    17. Dim encodingSplit = mainformTextEncodingTXT.Split(CChar(","))
    18. textbox.Text = tmpStr
    19. IO.File.WriteAllText(dName, tmpStr, System.Text.Encoding.GetEncoding(encodingSplit(0)))
    20. Case = TextDataFormat.Rtf
    21. textbox.Rtf = textObjekt.Rtf
    22. textObjekt.SaveFile(dName, RichTextBoxStreamType.RichText)
    23. End Select
    24. FileWatcherSwitch(True)
    25. Catch ex As System.Exception
    26. Me.Cursor = Cursors.Default
    27. Dim form_exclamation As New ICE_Eingabe
    28. form_exclamation.Initialisiere(False, My.Resources.ICE_Common_ICEFehler, String.Format(My.Resources.ICE_Common_Speichern_Fehler, My.Resources.ICE_Common_TextDokument & ":", dName, ex.Message), MessageBoxButtons.OK, 4)
    29. AppWinStatusSetzen(VordergrundFensterTitel, aktivesFensterState.showCmd)
    30. returnFehler = True
    31. End Try
    33. Return returnFehler
    34. End Function



    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Dideldum“ ()

    @Dideldum Wenn Du Deine Code so formatierst, kann man ihn wesentlich besser lesen:

    VB.NET-Quellcode

    1. If A Then
    2. ' ...
    3. Else If B Then
    4. ' ...
    5. Else If C Then
    6. ' ...
    7. Else If D Then
    8. ' ...
    9. End If
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo zusammen, ich benutze jetzt folgenden Code:

    VB.NET-Quellcode

    1. Dim iData As IDataObject
    2. Dim Str as string
    3. ......
    4. iData = Clipboard.GetDataObject
    5. If iData.GetDataPresent(DataFormats.Rtf) Then
    6. str = Clipboard.GetData(DataFormats.Rtf)
    7. Else
    8. str = Clipboard.GetText
    9. End If

    Danke an alle für die Tipps!!
    Grüße - Dietrich

    Hi @RodFromGermany
    Danke Dir, ja, da hast recht - Dieser Codeschnipsel stammt noch aus meinen ersten Gehversuchen auf VB.net :D
    Das muss ich noch korrigieren.

    Hi @dherr
    ich kenne Dein Projekt nicht, würde aber beim Übernehmen von Word-Zwischenablagen-Inhalten unbedingt folgenden Code verwenden - Falls einmal Text und Bilder im Word kopiert werden:

    VB.NET-Quellcode

    1. ' Dim iData As IDataObject (nicht erforderliche Zuweisung)
    2. Dim Str as string
    3. ......
    4. 'iData = Clipboard.GetDataObject (nicht erforderliche Zuweisung)
    5. If Clipboard.ContainsData(DataFormats.RTF) orelse Clipboard.ContainsData(DataFormats.MetafilePict) Then
    6. str = Clipboard.GetData(DataFormats.Rtf)
    7. ElseIf Clipboard.ContainsText(TextDataFormat.Text) then
    8. str = Clipboard.GetText
    9. else
    10. ' Fehlerbehandlung weder RTF, MetafilePict oder Text
    11. endif
    12. End If


    Nicht jeder Zwischenablage-Inhalt ist RTF, MetafilePict oder Text.
    Daher würde ich in der Else-Bedingung auch prüfen, ob der Zwischenablage-Inhalt auch wirklich Text ist, Bevor ich diesen an die String-Variable str übergebe.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dideldum“ ()