A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Word » Mailmerge
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

How do I get mail merge to work in Office 2007. Is there a bug?



 
 
Thread Tools Display Modes
  #1  
Old November 19th, 2008, 08:44 PM posted to microsoft.public.word.mailmerge.fields
Silverrand
external usenet poster
 
Posts: 6
Default How do I get mail merge to work in Office 2007. Is there a bug?

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
  #2  
Old November 20th, 2008, 05:15 AM posted to microsoft.public.word.mailmerge.fields
Doug Robbins - Word MVP
external usenet poster
 
Posts: 8,239
Default How do I get mail merge to work in Office 2007. Is there a bug?

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" wrote in message
news
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



  #3  
Old November 20th, 2008, 05:20 AM posted to microsoft.public.word.mailmerge.fields
Peter Jamieson
external usenet poster
 
Posts: 4,550
Default How do I get mail merge to work in Office 2007. Is there a bug?

This problem is related to the Tablet functionality on a PC, which you may
have installed on Vista even if you do not have a Tablet.

See http://tips.pjmsn.me.uk/t0005.htm

--
Peter Jamieson
http://tips.pjmsn.me.uk

"Silverrand" wrote in message
news
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


  #4  
Old November 20th, 2008, 06:17 PM posted to microsoft.public.word.mailmerge.fields
Silverrand
external usenet poster
 
Posts: 6
Default How do I get mail merge to work in Office 2007. Is there a bug

Thanks very much, Peter. Nice to know it's not operator weakness!
--
Judy


"Peter Jamieson" wrote:

This problem is related to the Tablet functionality on a PC, which you may
have installed on Vista even if you do not have a Tablet.

See http://tips.pjmsn.me.uk/t0005.htm

--
Peter Jamieson
http://tips.pjmsn.me.uk

"Silverrand" wrote in message
news
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



  #5  
Old November 20th, 2008, 06:20 PM posted to microsoft.public.word.mailmerge.fields
Silverrand
external usenet poster
 
Posts: 6
Default How do I get mail merge to work in Office 2007. Is there a bug

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:

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" wrote in message
news
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




 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 11:35 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.