如何编程实现在word中插入AutoCAD图形？

[mygisforum]

如题，困扰了好几天的问题，望高人指点。

[mygisforum]

[Quote=引用 2 楼 zhuzhi 的回复:]
哦，看错了，是编程实现呀。
http://discussion.autodesk.com/thread.jspa?threadID=604446
Public Sub Run_This_Sub_From_Acad()

Dim oWord As Word.Application

ThisDrawing.SendCommand "copyclip" & vbCr & "ALL" & vbCrLf

On Error Resume Next
Set oWord = GetObject(, "Word.application")

If Err Then
Set oWord = CreateObject("Word.application")
oWord.Visible = True
oWord.Documents.Add
End If

On Error GoTo 0

oWord.Selection.Paste

End Sub 


[/Quote]

原来“粘贴”还有这个妙用，受教啦！非常感谢！

程序有点小问题，改了一下，代码如下(WORD 2003)：

Public Sub Run_This_Sub_From_Acad() 

Dim oWord As Object

'ThisDrawing.SendCommand "copyclip" & vbCr & "ALL" & vbCrLf

On Error Resume Next 
Set oWord = GetObject(, "Word.Application.11") 

If Err Then 
Set oWord = CreateObject("Word.Application.11") 
oWord.Visible = True 
oWord.Documents.Add 
End If 

On Error GoTo 0 

oWord.Selection.Paste 

End Sub  

[zhuzhi]

给你一篇文章参考看看：
http://hi.baidu.com/sk_hr/blog/item/c94d223e9febbb3571cf6c21.html

就是先复制cad，再用编辑菜单中的“选择性粘贴”进行操作，以“图片”格式粘贴。

[zhuzhi]

哦，看错了，是编程实现呀。
http://discussion.autodesk.com/thread.jspa?threadID=604446
Public Sub Run_This_Sub_From_Acad()

Dim oWord As Word.Application

ThisDrawing.SendCommand "copyclip" & vbCr & "ALL" & vbCrLf

On Error Resume Next
Set oWord = GetObject(, "Word.application")

If Err Then
Set oWord = CreateObject("Word.application")
oWord.Visible = True
oWord.Documents.Add
End If

On Error GoTo 0

oWord.Selection.Paste

End Sub

[huoyanming]

搜索 代码 cad嵌入word中 获得大约 38,200 条查询结果
可以自己先找找……

http://club.excelhome.net/thread-59710-1-2.html

[mygisforum]

ThisDrawing.SendCommand "copyclip" & vbCr & "ALL" & vbCrLf

不要注释掉