How do I make labels from contents in a table i.e table of content

[lilhoot]

Hi, I am using Word 2003 and I am trying to figure out how I can put
information from a table (looks like a table of contents) into a label.

An example would be:

1310 MANAGEMENT ANALYSES, SURVEYS, AND EVALUATIONS

1310-1 Worldwide Dashboard Report
1310-2 Local Dashboard Report
1310-3 Customer Feedback 200 Branch

1320 Trend Analyses

1320-1 Worldwide Analyses
1320-2 Regional Analyses
1320-3 Local Analyses

I have over 200 different lines like these in a table. Can I make labels
for each line in a few steps rather than copying and pasting into each label
at a time?

 

[Doug Robbins - Word MVP]

Use that document as the data source for a label type mail merge.

To do that, insert a new paragraph at the top of the list and in that
paragraph type a word such as LabelName to be used as the name for the
Mergefield

If there are two paragraph marks creating the spaces

1310 MANAGEMENT ANALYSES, SURVEYS, AND EVALUATIONS¶
¶
1310-1 Worldwide Dashboard Report¶
1310-2 Local Dashboard Report¶
1310-3 Customer Feedback 200 Branch¶
¶
1320 Trend Analyses¶
¶
1320-1 Worldwide Analyses¶

you will need to use Find and Replace to replace ^p^p with ^p then, use
Ctrl+A to select everything in the document and from the Tables menu, select
Convert text to table and you should then get a one column table with each
entry in a separate row. Save this document and use it as the data source
for a label type mail merge to create your labels.

See the article "Mailmerge Labels with Word XP" on fellow MVP Graham Mayor's
website at

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

..

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[lilhoot]

Hi Doug:

Thanks for the response. I apologize for not telling you that these are in
3 columns and no space in between row. Let me specify below.

Col1 Col2 Col3
1310 MANAGEMENT ANALYSES, SURVEYS, AND EVALUATIONS
1310-1 Worldwide Dashboard Report
1310-2 Local Dashboard Report
1310-3 Customer Feedback 200 Branch
1320 Trend Analyses
1320-1 Worldwide Analyses
1320-2 Regional Analyses
1320-3 Local Analyses
1100-1 Meeting Minutes – ASW-290 Staff Meetings
1110 COMMITTEES AND CONFERENCE RECORDS
1110-1 Analysis of Data Meetings (AOD)
1330 Feedback
1330-1 Customer Feedback Branch 100
1330-2 Customer Feedback Branch 200
1330-3 Customer Feedback Branch 300
3430 PERFORMANCE EVALUATIONS
3430-1 Employee Performance File
3430-2 Employee SCI
3600 ATTENDANCE AND LEAVE RECORDS

Is this still possible to put into labels?

Thanks again!

 

[Doug Robbins - Word MVP]

It is still not clear to me how your data is arranged. If you want to send
the file to me at (e-mail address removed), I will take a look at it and let you know.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[lilhoot]

Genius! Thanks Doug! That worked! I'll post the procedures here so it'll
help someone in the community if they ever need it!

Procedures:
Running a macro containing the following code will convert your document
tothe format attached. If you then delete the empty row at the top of
thetable, you can use it as the data source for a mail merge operation
Sub Macro1()
' Macro1 Macro'
Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:=
_
True
Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs,
_NestedTables:=True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormattingWith Selection.Find
..Text = "^p^p"
..Replacement.Text = "^p"
..Forward = True
..Wrap = wdFindAsk
..Format = False
..MatchCase = False
..MatchWholeWord = False
..MatchWildcards = False
..MatchSoundsLike = False
..MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
WordBasic.TextToTable ConvertFrom:=0, NumColumns:=1, NumRows:=36,
_InitialColWidth:=wdAutoPosition, Format:=0, Apply:=1184, AutoFit:=0,
_
SetDefault:=0, Word8:=0, Style:="Table Grid"
End Sub