Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / New Users / March 2006

Tip: Looking for answers? Try searching our database.

CREATE Excel from WORD Table - HELP PLEASE

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
bas - 11 Mar 2006 20:35 GMT
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 - 11 Mar 2006 21:00 GMT
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 - 12 Mar 2006 06:28 GMT
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
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.