CREATE Excel from WORD Table - HELP PLEASE

[bas]

Looking for help to - Find text, replace with carriage return in cell.

Previous posts most helpful in converting badly formatted Word table to
formatted Excel worksheet. The goal is to copy bulleted cells in Word
to become bulleted cells in Excel. I replace ^t^t and ^p with "zz" in
Word doc. Then copy to Excel. That prevents bulleted lists becoming
separate cells in Excel. Now I want to find "zz" and replace with
"Alt-Return" for a carriage return within the cell. Obviously looking
for simple solution for newbie.

CRITICAL NEED: I'm looking for a macro to Global replace all "zz" with

<Alt-return> {next line} and " " within the cell

I do have a limited range A1-J1100 that I need to search.

Also the final end users won't be using macros, and would like to not
get error msg re MACROS - is there a way to bypass the error msg,
disabling macros?

EVEN BETTER: Each "copy and paste" will go into a separate range, not
a specific # of rows, but will always be same column and preceding row
has special format. Long-term I would like "onaction" buttons - find
formatted cell, down 1 = active cell, prompt user to select to "paste &
replace" or go to next target cell. But for now, I could use 2 macros,
if macro can find next target cell, user can just re-run appropriate
macro, either find next target or PASTE & FORMAT.
I have a few pieces from previous posts, but can't bring it together.

Sub PASTE & FORMAT

Application.ScreenUpdating = False
Range("C4:C1080").
Range(Selection, Selection.End(xlDown)).Select
FIND NEXT Font =
.Name = "Times New Roman"
.FontStyle = "Bold"
.Size = 10
Activecell.offset(1,0).select

<need help here to find "zz", replace with paste, add Alt-Return>

Sub FIND NEXT TARGET
On (F8 or press user button) "run paste & replace routine as above" -
or
on (double click or user button) "find next target"

THIS IS A GREAT GROUP, MANY HELPFUL SUGGESTIONS

 

[bas]

EXAMPLE - Formatted Cell "DAYS OF WEEK" would be followed by a single
cell listing days of week. Must be bulleted cells, partly because we
were given formatting constraints, also because end user for the table
will transfer to PDA.

C2 DAYS OF WEEK:
C3 Work Days
Monday
Tuesday
Wednesday
Thursday


C42 MONTHS OF YEAR
C43 Months for 2006
March - first work day after start
April
May

This is very simplified - actual data data being copied is very
erratic, sometimes 1 word, sometimes a list, sometimes an entire
paragraph, but hopefully this shows what we're trying to accomplish.

 

[bas]

WORD to EXCEL - help with moving from section to section.
I have the hard return & bullets working well, with lots of trial&error
and "copy and paste" from the Group - see below. Since this worked so
well, would like to incorporate 2d part of puzzle, moving to next
section. Hard Return and replace bullets:

Sub HardReturn()

Range("A1:J1070").Select
Selection.Replace What:="zz", _
Replacement:=Chr(10) & "· ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="··", _
Replacement:="· ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="· ·", _
Replacement:="· ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False