quote:

---

num = "13"
found = False
Application.ActiveWindow.Page = Application.ActiveDocument.Pages.Item(num)
ActiveWindow.DeselectAll
For Each Sh In ActivePage.Shapes
If Sh.Cells("PinX") > 0 And Sh.Cells("PinY") > 0 Then
ActiveWindow.Select Sh, visSelect
End If
Next Sh

Application.ActiveWindow.Selection.Copy

Application.Documents.AddEx "", visMSDefault, 0

Application.ActiveWindow.Page.Paste
Application.ActiveWindow.Selection.Export "K:\sx\" & num & ".dwg"

---

quote:

---

The BeforeDocumentSaveAs event fires when a document is saved to either a native format (for example, VSD or VDX) or a non-native format (for example, HTM or BMP). It does not fire when a document is saved to DWG, DXF, and DGN formats. To save a document in a non-native format programmatically, you must use the Export method of the Page object.

---

Application.ActiveWindow.Selection.Export "K:\sx\" & num & ".dwg"

Application.ActivePage.Export "K:\sx\" & num & ".dwg"