MAKRO: Aus MS Word heraus nur Text kopieren

[webald]

Es hat in letzter Zeit Beiträge gegeben, bei denen der Text in MS Word erstellt wurde und per copy/paste in den Shop eingefügt wurde. hierbei werden aber fast immer die Formatierungen des Wordformat mitkopiert, so dass u. U. Fehler in der Anzeige entstehen können. Ich habe daher ein kleines Makro, das aus Word nur den Text kopiert, ohne Formatierungen. Vernünftig ist es einen Button in Word zum direkten Aufruf des Makros anzulegen.

Code: PHP  [Auswählen]

Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) _
   As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) _
   As Long
Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, _
   ByVal dwBytes As Long) As Long
Declare Function CloseClipboard Lib "User32" () As Long
Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) _
   As Long
Declare Function EmptyClipboard Lib "User32" () As Long
Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, _
   ByVal lpString2 As Any) As Long
Declare Function SetClipboardData Lib "User32" (ByVal wFormat _
   As Long, ByVal hMem As Long) As Long

Public Const GHND = &H42
Public Const CF_TEXT = 1
Public Const MAXSIZE = 4096
               
Sub CopyTextOnly()
'
' CopyTextOnly Makro
'
'
    Dim Tmp As String
   
    Tmp = Selection.Text
   
ClipBoard_SetData (Tmp)
   
End Sub

Function ClipBoard_SetData(MyString As String)
   Dim hGlobalMemory As Long, lpGlobalMemory As Long
   Dim hClipMemory As Long, X As Long

   ' Allocate moveable global memory.
   '-------------------------------------------
   hGlobalMemory = GlobalAlloc(GHND, Len(MyString) + 1)

   ' Lock the block to get a far pointer
   ' to this memory.
   lpGlobalMemory = GlobalLock(hGlobalMemory)

   ' Copy the string to this global memory.
   lpGlobalMemory = lstrcpy(lpGlobalMemory, MyString)

   ' Unlock the memory.
   If GlobalUnlock(hGlobalMemory) <> 0 Then
      MsgBox "Could not unlock memory location. Copy aborted."
      GoTo OutOfHere2
   End If

   ' Open the Clipboard to copy data to.
   If OpenClipboard(0&) = 0 Then
      MsgBox "Could not open the Clipboard. Copy aborted."
      Exit Function
   End If

   ' Clear the Clipboard.
   X = EmptyClipboard()

   ' Copy the data to the Clipboard.
   hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory)

OutOfHere2:

   If CloseClipboard() = 0 Then
      MsgBox "Could not close Clipboard."
   End If

   End Function

Linkback: https://www.modified-shop.org/forum/index.php?topic=29128.0

[noRiddle (revilonetz)]

Nett, aber dafür gibt es doch
1. eine Funktion im FCK-Editor
   und
2. Editoren in die man es zwischenkopieren kann.

Gruß,
noRiddle

[webald]

1. Stimmt.
2. Einen weiteren Editor zum kopieren ist umständlich und wird von den meisten eh nicht genutzt, haben ja Word.

Ich habe nur das gelesen, dass die AGB aus Word kopiert die Funktion in der checkout_payment gestört haben. Viele kopieren und fügen mit der Tastatur ein (Strg+C und Strg+V). Da nutzt die Funktion in FCK nix und den Zwischenschritt über einen anderen Editor wird auch nicht gemacht. Theoretisch könnte man das Makro auch einer Tastaturbelegung zuordnen (ggf. sogar auf Strg+C, wenn man weiss was man tut). Wer will nutzt es, wer nicht nicht. Ich hatte max 5 Minuten Arbeit damit.

[noRiddle (revilonetz)]

Die Leute von denen du redest wissen gar nicht, daß man beim normalen Kopieren aus MS Word oder OpenOffice Writer unsichtbare tags mitkopiert.

Wollte mit meinen Bemerkungen jedoch nicht deine Arbeit und die Nettigkeit des Teilens kritisieren.

Gruß,
noRiddle

[web28]

Die Pappenheimer, die direkt aus Word Texte in den Shop kopieren, wissen gar nicht was ein Makro ist und wie man es in Word einbaut.

Und wer sich mit Wordmakros noch nie beschäftigt hat, weiss es auch nicht!

Die Idee ist aber gut, das man per Makro die Formatierungen entfernen kann.

Ich hatte wieder so eine Fall: 300 Zeilen Formatierungen für 10 Zeilen Text im Impressum. 

[noRiddle (revilonetz)]

Die Pappenheimer, die direkt aus Word Texte in den Shop kopieren, wissen gar nicht was ein Makro ist und wie man es in Word einbaut.

Stimmt auch wieder.
Von daher, schon eine nette Idee für Wissende.

Wenn man fair sein will, und das wollen wir doch, muß man natürlich auch sagen, daß man das auch nicht zwingend wissen muß, daß, wenn man aus MS Word oder OO Writer etwas kopiert, man Formatierungs-Code mitkopiert. Das passiert ja nun mal unsichtbar und ist eine Frage der Erfahrung.
Was für uns selbstverständlich ist, ist es eben nicht für Unerfahrene.

Gruß,
noRiddle

[Morka]

Kleine Ergänzung:
Auch wenn man Texte aus dem Internet kopiert (- was vielleicht auch häufiger vorkommt; z.B. wenn man Produktbeschreibungen der Hersteller übernehmen will), werden die Formatierung mit kopiert.

Viele Grüße

Morka

[mr.mc.mauser]

Auch für das kopieren aus dem Internet.
- es gibt Addons - die nur Plaintext kopieren, ähnlich dem Makro
- auch hier ist ein einfacher Editor dazwischen eine gute wenn auch umständliche Lösung

Noch schlimmer wird es ja wenn Bilder im Dokument sind....

Ich finde es gut das webald ein Makro gemacht hat, das diese "Fehlerquelle" minimieren kann.

Meine "Kunden" egal ob Shop, TYPO3 oder Wordpress (was mir persönlich nur auf den S..k geht ) wissen wenn die Formatierungen mit Kopieren helfe ich ihnen nicht das zu Fixen.
Die gehen alle wenn es auch umständlich ist über einen weiteren Editor.

[Morka]

- auch hier ist ein einfacher Editor dazwischen eine gute wenn auch umständliche Lösung

Finde ich eigentlich gar nicht so umständlich- Viel 'schlimmer' ist es ja bzw. der selbe Aufwand, wenn man den Code wieder bereinigen will.
Der Vorteil an Word und Co ist im Grunde ja 'nur' die Rechtschreibprüfung und die Gliederung/Formatierung (Überschriften); letztere lassen sich aber dann genauso Online im FCK-Editor zuweisen.

zu

"Meine "Kunden"...

Da hilft wohl nur Aufklärung und etvtl. eine praktische Einweisung (- könnte man evtl. in dein Geschäftsmodell einbauen?). Als 'Normalanwender' wusste ich auch vorher nicht, dass sich die 'aufgeblähte' Codierung durch Word & Co negativ auswirken könnte ...

Viele Grüße und Danke für die Antwort/Rückmeldung

Morka