Word 6.0 Line Wrapping Not Retained in Text Editor

• Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c

SYMPTOMS

Word-wrapped text that you copy from Word for Windows may paste into a text-based application, such as Windows Notepad or an electronic mail (email) text editor, without carriage returns at the end of each line. This causes the text to appear on a single long line in the text editor.

By contrast, wrapped text copied from Word version 2.x for Windows pastes into a text-based application with carriage returns at the end of each line.

CAUSE

By design, Word 6.0 does not include carriage returns at the end of word- wrapped lines in order to comply with OLE (object linking and embedding) version 2.0 specifications. Use the macro in the "Workaround" section below, to add carriage returns to word-wrapped Word 6.0 text.

WORKAROUND

When you copy text from Word and paste it into a text-based application such as your email editor, you may want to maintain the word wrapping as it appeared in Word. You can retain the word wrapping as it appears in Word 6.0 using the macro below, which does the following:

1. Cuts the selection, with paragraph formatting intact, and places it on the Windows Clipboard (the macro later restores the selection to its original position).

2. Opens a new document into which it pastes the selection.

3. Saves the new document to the TEMP directory in Text Only With Line Breaks file format, then closes the file.

4. Reopens the Text Only file, which now contains a paragraph mark at the end of each line.

5. Selects and copies the entire document.

6. Saves the file again (this removes the pointers to the Windows Clipboard, which makes it possible to delete the file).

7. Closes and deletes the file.

Macro Text

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Sub MAIN

   MsgBox "There must be a selection for this macro to run."

   ScreenUpdating 0
   Print "One moment please..."
   EditCut
   ParaDown 1, 1
   CopyFormat
   EditUndo
   FileNewDefault
   EditPaste
   EndOfDocument
   PasteFormat
   TmpName$ = Environ$("TEMP") + "\removeme.tmp"
   FileSaveAs .Name = TmpName$, .Format = 5, .AddToMru = 0
   DocClose 2
   FileOpen .Name = TmpName$
   EditSelectAll
   EditCopy
   FileSave
   DocClose
   Print "The text has been copied to the Windows Clipboard."
   Kill  TmpName$
   ScreenUpdating 1

End Sub