在word文档中嵌入对象并显示为图标?

Embed object and display as icon in word document?

我有一个word文档。在 word 文档中我有命令按钮。

我想要的是当用户按下命令按钮时,它会打开一个对话框,以便用户可以嵌入一个文件并在 word 文档中显示为一个图标。

我该如何在 VBA 中执行此操作?

最终我想要以下内容:

  1. 用户点击按钮
  2. 打开对话框供用户选择文件(任何类型)
  3. 用户点击确定
  4. 文件作为图标嵌入(未链接)在文档中
  5. 如果用户单击取消,对话框 window 将关闭。

好的开始了

Option Explicit
Sub AddFileIcon()
    SendKeys "%F{TAB 4} {TAB 5}"
    Dialogs(wdDialogInsertObject).Show
End Sub

现在您创建 Button :-) 并调用宏

这里是完整的帮助链接

VBA SendKeys


Word Dialog Boxes