danuk76
02-24-2015, 12:01 PM
Any advice please
I have a excel file, cell A1 has the text Item(1)
I have a mailmerged PUBLISHER file with macro
Sub exceltopublisher()
With ActiveDocument.MailMerge.DataSource
Set temp1 = .DataFields.Item(1)
End With
Dim data As String
data = temp1.Value
With ActiveDocument.Pages(1).Shapes(1).TextEffect
.Text = data
End With
End Sub
The above macro changes my publisher text shapes(1) to whatever is in excel Cell A2 great, but I cannot figure out how to link the above to cell A3
Something needs adding to
Set temp1 = .DataFields.Item(1)
say Set temp1 = .DataFields.Item(1) ????row(2)?????
stumped
I have a excel file, cell A1 has the text Item(1)
I have a mailmerged PUBLISHER file with macro
Sub exceltopublisher()
With ActiveDocument.MailMerge.DataSource
Set temp1 = .DataFields.Item(1)
End With
Dim data As String
data = temp1.Value
With ActiveDocument.Pages(1).Shapes(1).TextEffect
.Text = data
End With
End Sub
The above macro changes my publisher text shapes(1) to whatever is in excel Cell A2 great, but I cannot figure out how to link the above to cell A3
Something needs adding to
Set temp1 = .DataFields.Item(1)
say Set temp1 = .DataFields.Item(1) ????row(2)?????
stumped