Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.tables
dc1606 dc1606 is offline
external usenet poster
 
Posts: 1
Default tables in Word (Office 2003)

I am currently editing some 17th century inventories e.g.

one chair, one table xs viiid
corn in the ground ii£ vis viiid

0r £ s d
one chair, one table 0 10 08
corn 2 13 04
How can I line up the £ s d underneath one another in straight columns. Is
it possible to insert a table retrospectively? - the original transcriber
used an Amstrad and locoscript which has been converted but I cannot work out
how to line up the columns!
  #2   Report Post  
Posted to microsoft.public.word.tables
Suzanne S. Barnhill Suzanne S. Barnhill is offline
external usenet poster
 
Posts: 33,624
Default tables in Word (Office 2003)

I'm guessing the original document was produced with a monospaced font and
spaces. To get anywhere with that, you're going to have to replace each run
of spaces with a single tab character, making sure that each line/paragraph
has the same number of tab characters (columns). You can then use Table |
Convert | Text to Table to create a table from the tabbed text.

To replace spaces with tabs, you can try searching for ^w and replacing with
^t. If that totally messes things up, then Undo and start over with
wildcards. You'll need to use this search term:

space{2,}

where space represents a press of the spacebar. This will find instances
of two or more spaces, which can be replaced by a tab; if you have only a
single space between the £ s d amounts, you'll need to take care of those
manually, that is, by searching for a single space and replacing only as
needed.

Once you've got your table created, you'll find decimal tab stops very
helpful for aligning figures.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org

"dc1606" wrote in message
...
I am currently editing some 17th century inventories e.g.

one chair, one table xs viiid
corn in the ground ii£ vis viiid

0r £ s d
one chair, one table 0 10 08
corn 2 13 04
How can I line up the £ s d underneath one another in straight columns. Is
it possible to insert a table retrospectively? - the original transcriber
used an Amstrad and locoscript which has been converted but I cannot work
out
how to line up the columns!


  #3   Report Post  
Posted to microsoft.public.word.tables
Graham Mayor Graham Mayor is offline
external usenet poster
 
Posts: 19,312
Default tables in Word (Office 2003)

It is certainly possible to insert a table retrospectively. Much depends on
*exactly* how the document is formatted. From your description I assume that
the spacing is created with multiple spaces. You can therefore use that fact
to replace the superfluous spaces with tabs then convert the document to a
table. The following macro should do that. It uses three replacements (which
are the three parts of the first array replaced with the corresponding three
parts of the second array) to format a selected part of the document with
tabs rather than spaces.then converts that selection to a four column table.

Thus ([0-9]) @([0-9]) is replaced with \1^t\2 (which puts tabs between the
pounds, shillings and pence)
[space]{8,} is replaced with ^t (which replaces the long line of spaces
between the description and the amount - it assumes at least 8 spaces)
() @(s) @(d) is replaced by \1^t\2^t\3 (which puts the sd header in the
same format as the amounts.)

The resulting selection is then converted to the table.You can then change
the column widths and text alignment to produce the results you require.

Dim vFindText As Variant
Dim vReplText As Variant
Dim sFormat As Boolean
Dim oRng As Range
Dim i As Long
sFormat = Options.AutoFormatAsYouTypeReplaceQuotes
vFindText = Array("([0-9]) @([0-9])", " {8,}", "() @(s) @(d)")
vReplText = Array("\1^t\2", "^t", "\1^t\2^t\3")
With Selection
Set oRng = .Range
With .Find
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End With
With oRng
.Select
WordBasic.TextToTable ConvertFrom:=1, NumColumns:=4, NumRows:=3
End With

http://www.gmayor.com/installing_macro.htm


If that doesn't work for you, send a sample of your document to the link on
the home page of my web site.
--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org




dc1606 wrote:
I am currently editing some 17th century inventories e.g.

one chair, one table xs viiid
corn in the ground ii vis viiid

0r s d
one chair, one table 0 10 08
corn 2 13 04
How can I line up the s d underneath one another in straight
columns. Is it possible to insert a table retrospectively? - the
original transcriber used an Amstrad and locoscript which has been
converted but I cannot work out how to line up the columns!



Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Mailmerge to access + linked tables to SQL + Office 2003 P. Scaram Mailmerge 4 September 5th 07 02:06 PM
Software to migrate Office 2003 Word files to Office 2007 Vista Silver Dollar Bob Microsoft Word Help 3 May 2nd 07 05:33 AM
Why do tables in Word 2003 save as Access 2003 files? HumorMe407 Microsoft Word Help 7 December 18th 06 02:55 PM
How can I move my word styles from Office 2000 to Office 2003 on . Northof60 Microsoft Word Help 2 March 29th 05 11:16 PM
After upgrading to Office 2003 my Office 2000 word document layou. Wally Page Layout 2 March 20th 05 09:21 AM


All times are GMT +1. The time now is 01:57 AM.

Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright 2004-2023 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"