首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 媒体动画 > CAD教程 >

怎么编程实现在word中插入AutoCAD图形

2012-03-24 
如何编程实现在word中插入AutoCAD图形?如题,困扰了好几天的问题,望高人指点。[解决办法]哦,看错了,是编程实

如何编程实现在word中插入AutoCAD图形?
如题,困扰了好几天的问题,望高人指点。

[解决办法]
哦,看错了,是编程实现呀。
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

热点排行