View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
MikeW[_2_] MikeW[_2_] is offline
external usenet poster
 
Posts: 4
Default 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


.