Thanks very much, Doug. I'll try to figure that out myself before I call my
techie son-in-law.
--
Judy
"Doug Robbins - Word MVP" wrote:
[Quoted Text] > Here is a macro that will work around that problem
>
> 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
>
> "Silverrand" <Silverrand[ at ]discussions.microsoft.com> wrote in message
> news:DD1D6012-0078-45F5-8F9D-96BD7BEE8A60[ at ]microsoft.com...
> > I've been trying to make labels using Office 2007 using an Excel 2007 mail
> > list but when I preview the labels, only the first 3 and last two labels
> > on a
> > sheet are shown. Is there a bug in this program? I tried to download any
> > Office 2007 updates but I get a message saying my pc is up to date. I'm
> > using
> > Vista Home Premium. Any suggestions will be appreciated.
> > --
> > Judy
>
>
>
|