Hi Andy,
it is always kind of wierd with dialogs,
and I don't understand it all,
nevertheless, this one seems to work:
Sub Macro2()
Dim oDlg As Dialog
Set oDlg = Dialogs(wdDialogEditPasteSpecial)
With oDlg
.Update
.datatype = "Bitmap"
.Execute
End With
End Sub
You may test what other datatypes there are, like:
Sub Macro2()
Dim oDlg As Dialog
Set oDlg = Dialogs(wdDialogEditPasteSpecial)
With oDlg
.Update
.datatype = "Bitmap"
.Display
MsgBox .datatype
.Update
.Display ' choose another type
MsgBox .datatype
.Update
.Display ' choose another type
MsgBox .datatype
End With
End Sub

Signature
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"
Andy - 14 Sep 2005 10:57 GMT
Hi Helmut
Thanks for this - it works perfectly!
On a completely irrelevent point - I've visited Friesenried in Bavaria and
think its a beautiful part of the world - I hope you enjoy living there!
Thanks
Andy
> Hi Andy,
>
[quoted text clipped - 30 lines]
> End With
> End Sub
Naz - 30 Oct 2005 01:32 GMT
I used this code today - Many thanks

Signature
_______________________
Naz,
London
> Hi Andy,
>
[quoted text clipped - 30 lines]
> End With
> End Sub