Text without word wrap

[Ken Runge]

I am fairly new to Excel, converting from QPro. and having trouble with
a feature I miss a lot. I find word wrap and/or joining cells clunky,
QPro has a feature called Text Reformatting .In the QPro help file text
reformatting is described as :
"About Reformatting Text
Format Text Reformat lets you adjust word wrapping in a series of label
entries as though they were in a paragraph. You can enter text as a long
label or a series of labels, then reorganize the text as a paragraph,
using any number of cells or columns."

Does anyone know of an Excel equivalent, or VBA code to do the same
thing?
Thanks

 

[copycollie]

Hi Dot,

you can try formatting the cells.Under the tab Alignment you shoul
find three options.Don't know the exact names of them, but one of the
is called textwrap (the third). One of these options should split u
your text so that it will show all of the text.

Hope that this is what you were looking for,


Copycolli

 

[Andy B]

Ken

This sounds like a combination of WordWrap and Merge Cells. If you
right-click on the cell and left-click on Format, on the Alignment tab will
be the WordWrap option.
To join cells you'll need to merge them. A lot of people (including me)
would not encourage merging cells because it can cause problems in some
cases.

Andy.

 

[Gord Dibben]

Ken

If my take on this is correct, you want one cell with a long string of text
split into several rows over several columns.

Try this code from Bob Flanagan.....copied here without his comments on how
procedure works.

Sub Paragraph()
Dim cell As Range
If ActiveCell.Row = 1 Then GoTo warning
If Selection.Columns.Count = 1 Then _
If MsgBox(prompt:= _
"You have only selected a single column. " & _
"Is this wide enough for your paragraph?", _
Buttons:=vbYesNo) = vbNo Then End
For Each cell In Intersect(Selection, _
Selection.Cells(1, 1).EntireColumn)
If Left(cell.Formula, 1) = " " And _
IsEmpty(cell.Offset(-1, 0)) Then _
cell.Formula = "zz|zz" & Mid(cell.Formula, 2)
Next
Application.DisplayAlerts = True
On Error Resume Next
Selection.Justify
On Error GoTo 0
Cells.Replace What:="zz|zz", Replacement:=" ", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Exit Sub
warning:
MsgBox "Activecell must not be in Row 1"
End Sub

Assuming you have all the text in this sentence in one cell, select this cell
and several other blank cells adjacent to it, say a 4x4 cell matrix, then run
the Macro.

Gord Dibben Excel MVP