View Single Post
  #4   Report Post  
Posted to microsoft.public.word.mailmerge.fields
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default Mail merge problem with Word 2007

See the article "What do I do with macros sent to me by other newsgroup
readers to help me out?" at:

http://www.word.mvps.org/FAQs/Macros...eateAMacro.htm


--
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

"goffer23" wrote in message
...
Many thanks for your response but not being an expert I am unclear as to
your
reasoning as to the cause of the problem.
However rather than bamboozle me further, if you would be kind enough to
give a brief summary as to how to do as you suggest with implementing a
macro within a template, it would be much appreciated.
Is this a common problem or am I an oddball?
Once again many thanks for your trouble.


"Doug Robbins - Word MVP" wrote:

Sounds like you possibly have some tablet-like functionality on your PC

Use the following 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

"goffer23" wrote in message
news
I am having a problem in getting a successful mail merge to print some
labels usng Excel as a data source on a 3 column, 7 row sheet under
Office
2007/Vista.
When doing the merge, only the first row of labels gets completed.
I have used the same Excel data under XP without problem.
I have tried doing it manually and using the 'wizard' but have failed
miserably - any thoughts please as to whether its me or a glitch
somewhere?
(The Excel sheet and mail merge works well on my desktop under XP Pro
and
Office XP)