[scarll]

I have been trying to create mailing labels in Word 2007, using my Excel 2007
data base. I have followed all of the steps, but am getting four label
sheets with only the first label filled out on each sheet. I know it is
probably a simple thing I am missing, but after spending nearly four hours on
this today, I can't, for the life of me, figure out what it is. HELP! (If
it makes a difference, my operating system is Vista)
--
Sheryl

[Graham Mayor]

See http://www.gmayor.com/merge_labels_with_word_2007.htm
If you are using a Tablet PC - see http://support.microsoft.com/?kbid=898630

--

Graham Mayor - Word MVP

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



"scarll" wrote in message
...
I have been trying to create mailing labels in Word 2007, using my Excel
2007
data base. I have followed all of the steps, but am getting four label
sheets with only the first label filled out on each sheet. I know it is
probably a simple thing I am missing, but after spending nearly four hours
on
this today, I can't, for the life of me, figure out what it is. HELP!
(If
it makes a difference, my operating system is Vista)
--
Sheryl

[Doug Robbins - Word MVP]

If you are using a tablet PC, here is a macro to overcome the problem with
propagation of mail merge field fields with a label type mail merge when
using a Tablet PC and some other Computers that have Tablet PC Functionality
available:

Sub MailMergePropagateLabel()
Dim atable As Table
Dim i As Long, j As Long
Dim source As Cell, target As Cell
Dim myrange As Range
Set atable = ActiveDocument.Tables(1)
Set source = atable.Cell(1, 1)
Set myrange = source.Range
myrange.Collapse wdCollapseStart
ActiveDocument.Fields.Add Range:=myrange, Text:="NEXT", _
PreserveFormatting:=False
source.Range.Copy
For j = 2 To atable.Columns.Count
Set target = atable.Cell(1, j)
If target.Range.Fields.Count 0 Then
target.Range.Paste
End If
Next j
For i = 2 To atable.Rows.Count
For j = 1 To atable.Columns.Count
Set target = atable.Cell(i, j)
If target.Range.Fields.Count 0 Then
target.Range.Paste
End If
Next j
Next i
atable.Cell(1, 1).Range.Fields(1).Delete
End Sub

It is suggested that you put this code into a template that you save in the
Word Startup folder so that it becomes an add-in and will be available
whenever you need it. As the macro has the same name as the Word Command
that is supposed to do the job, this macro will run when the Update Labels
button is used when setting up the mail merge label main document.


--
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, originally posted via msnews.microsoft.com

"scarll" wrote in message
...
I have been trying to create mailing labels in Word 2007, using my Excel
2007
data base. I have followed all of the steps, but am getting four label
sheets with only the first label filled out on each sheet. I know it is
probably a simple thing I am missing, but after spending nearly four hours
on
this today, I can't, for the life of me, figure out what it is. HELP!
(If
it makes a difference, my operating system is Vista)
--
Sheryl