Doug
Tue Jan 13 17:00:13 CST 2004
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
"kas" <anonymous@discussions.microsoft.com> wrote in message
news:020f01c3d9f9$6c081920$a101280a@phx.gbl...
> 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.
>>-----Original Message-----
>>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
>>:-)
>>
>>.
>>