Q107533 - InputBox$() Function Inserts an Extra Soft Return

InputBox$() Function Inserts an Extra Soft Return

Q107533

The information in this article applies to:

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

SUMMARY

If the ENTER key is pressed in an edit box created by the WordBasic InputBox$ function, an erroneous soft return (newline character) will be inserted into the document in addition to a hard return (paragraph mark).

For example:


     first line  <soft return>
   <hard return>
   second line  <soft return>
   <hard return>

MORE INFORMATION

To remove the soft return characters, use the CleanString$() function, as in the following macro example:


   Sub MAIN
   a$ = InputBox$("Type more than one line")
   a$ = CleanString$(a$)
   Insert a$
   End Sub

The above macro inserts a hard return after each new line entered into the InputBox$() edit control.

For example:


   first line   <hard return>
   second line  <hard return>

To insert a soft return after each new line entered into an InputBox, use the following macro example:


   Sub MAIN
   a$ = InputBox$("Enter more than one line")
   Para = InStr(a$, Chr$(10))
   While Para <> 0
    a$ = Left$(a$, para - 1) + Right$(a$, Len(a$) - para)
    Para = InStr(a$, Chr$(10))
   Wend
   Insert a$
   End Sub

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.

Kbcategory: kbusage kbmacro

Additional query words: 6.0 InputBox$() input box paragraph word6 7.0 word95 word7 winword cleanstring hard carriage newline inputbox duplicate

Keywords :
Issue type :
Technology :