使用程序怎么在word中添加一个组织结构图

dongdonggege

我在使用word的过程中，想在word中添加一个组织结构图，请问，怎么用程序解决？谢谢。

https://learn.microsoft.com/zh-t ... ffice-2010/ff839505(v=office.14)
在上面的网址中，我使用如下程序，

1. Sub test1()
   
2.     Dim myShape As Shape
   
3.     Dim mySmartArt As SmartArt
   
4.      
   
5.     Set myShape = ActiveDocument.Shapes.AddSmartArt(Application.SmartArtLayouts(1), 50, 50, 200, 200)
   
6.     Set mySmartArt = myShape.SmartArt
   
7.     mySmartArt.Layout = Application.SmartArtLayouts(15)
   
8. End Sub

复制代码

本来想添加一个组织结构图，却出现许多错误，第三行用户类型未定义，第四行方法或数据成员未找到。
我是学习word新手，期盼各位老师的执教，谢谢。

dongdonggege

我已经找到一个，是论坛的里面lee1892高手编的，《VBA编程技巧 之 玩转组织结构图（暂2003版）》网址：https://club.excelhome.net/thread-955890-1-1.html。
程序是Excel的，调用word来复制文本框及文字，我正在学习这个程序，学会后再改编。