People, please help me!!Originally Posted by FranChasing
Give me any tip that can make a DIRECT MAIL with pictures?
Below this VBA routine inserts a folder of images into a page and would like to file after completing individualized it position itself within each image of each page of Word mail merge.
Let's all help!!
'-- vba --
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFD As FileDialog
Dim vSelectedItem As Variant
Dim oShp As Word.Shape
Dim i As Long
Set oFD = Application.FileDialog(msoFileDialogFilePicker)
i = 0
With oFD
If .Show = -1 Then
For Each vSelectedItem In .SelectedItems
Set oShp = ActiveDocument.Shapes.AddPicture(FileName:=vSelectedItem, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=305 + i, _
Top:=1.9 + i, _
Width:=80, _
Height:=100, _
Anchor:=Selection.Range)
i = i + 0
Next vSelectedItem
End If
End With
Set oFD = Nothing
End Sub
Thank you





Reply With Quote