Importing Word Paragraph to Excel - 1 cell, same formating -- I lose the format
Agreed you may not be able to hold the format during the
paste but you can restore it with code like this:
Sub Macro1()
Range("C4").Select
ActiveCell.FormulaR1C1 = "AAAAAAAAAA"
With ActiveCell.Characters(Start:=4, Length:=4).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
End Sub
This turns position 4 to 8 bold and blue
Regards,
Mike
-----Original Message-----
I am trying to copy a formated paragraph in word, with
SHIFT Enter. This
text also has BOLD, and underline text in it.
I want to copy this to a single cell -- retaining the
same format (i.e. bold
and underline) as well as change the SHIFT ENTER
characters to ALT ENTER.
If I do a Copy from Word, after selecting the paragraph,
and paste it into
Excel -- all the SHIFT Enter goes to new lines in Excel.
I have tried to first copy this over to Word, change all
the SHIFT Enter's
to ALT Enter, and then paste to Excel -- but I either
lose the format, or I
get back the multiple lines.
Reading some posts suggested that I convert all the SHFT
enter's to $$$, and
then in Excel Replace the $$$ with ALT ENTER. Problem
is, I lose the
formating, or everthing goes to plain text.
Is there a way to copy a paragraph to Excel -- retaining
the same format?
Thanks
.
|