Labels

[kas]

I need some assistance with the follwing:

I need to create a macro that will create a page of
labels with an existing list. The text to place in each
label is separated by a page break. (kind of like it does
in Wordperfect)

Any help on this would be greatly appreciated.

Thanks.

 

[Cindy M -WordMVP-]

Hi Kas,

If the data were in the proper format would mail merge work
for you? If yes, would you have any objection to running a
macro over the data source document that replaces the
paragrph marks with a field delimiter (such as a TAB) and
the page breaks with paragraph marks?

If you want to go the way you outline, would the label page
already exist as a document, or do you need to create that,
as well?

I need some assistance with the follwing:

I need to create a macro that will create a page of
labels with an existing list. The text to place in each
label is separated by a page break. (kind of like it does
in Wordperfect)

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Sep
30 2003)
http://www.mvps.org/word

This reply is posted in the Newsgroup; please post any
follow question or reply in the newsgroup and not by e-mail

 

[kas]

The labels have already been set up as templates. When
they click on a button on the toolbar, a new document
with a page of blank labels is created.

 

[Doug Robbins - Word MVP - DELETE UPPERCASE CHARACT]

Hi Kas,

It's a bit like re-inventing the wheel as Cindy's suggestion to use
Edit>Replace to convert the datasource to a regular mailmerge data source
and then use mailmerge would probably do just as well.

However, I believe that the following macro should do what you want.

Dim Source As Document, Target As Document, i As Long, data As Range
Target = ActiveDocument
Source = Documents.Open("[Path\Filename of data document]")
Source.Activate
Selection.HomeKey wdStory
Target.Activate
Target.Tables(1).Cell(1, 1).Range.Select
Selection.Collapse wdCollapseStart
For i = 1 To Source.BuiltInDocumentProperties(wdPropertyPages)
Set data = Source.Bookmarks("\page").Range
data.End = data.End - 1
Selection.InsertBefore data & vbTab
data.Delete
Set data = Source.Bookmarks("\Page").Range
data.Delete
Next i


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP