Word VBA 插入文件语法

发布于 2024-12-18 20:08:26 字数 328 浏览 1 评论 0原文

我正在尝试将一个Word文件插入到另一个Word文件中,重要的是还有一个链接...所以我找到了下面的选项

selection.InsertFile(FileName, Range,ConfirmConversions, Link, Attachment)

但我的问题是我需要添加几个文件(因此使用宏)并且我想每次自己选择文件(而不是将目录添加到代码中)。这有可能吗?我不熟悉VBA语法。

我也可以只使用 Dialogs(wdDialogInsertFile).Show 但在那里我找不到打开链接选项的地方。

我希望某人能帮助我。

谢谢!

I'm trying to insert one word file to another word file and it's important that there's also a Link... So I found the option below

selection.InsertFile(FileName, Range, ConfirmConversions, Link, Attachment)

But my problem is that I need to add several files (hence using the macro) and I want to choose the file every time myself (not add the directory to the code). Is it somehow possible? I'm not familiar with the VBA syntax.

I could also just use Dialogs(wdDialogInsertFile).Show But there I couldn't find a place where turn on the link option.

I hope sb can help me out.

Thanks!

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(1

生死何惧 2024-12-25 20:08:26

您可以使用输入框( http://www.functionx.com/vb/functions/inputbox .htm

 FileName = InputBox ("Enter file name")

甚至是 FileDialog ( http://msdn.microsoft.com/en-us/library/aa163948(v=office.10).aspx )

With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .InitialFileName = ""
    .Title = "File Location"
    .AllowMultiSelect = False
    .Filters.Add "Word", "*.doc*, 1
    .Filters.Add "All Files", "*.*", 2

    .Show

    If .SelectedItems.Count > 0 Then
        FileName = .SelectedItems(1)
    End If
End With

You can use an Inputbox ( http://www.functionx.com/vb/functions/inputbox.htm )

 FileName = InputBox ("Enter file name")

Or even the FileDialog ( http://msdn.microsoft.com/en-us/library/aa163948(v=office.10).aspx )

With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .InitialFileName = ""
    .Title = "File Location"
    .AllowMultiSelect = False
    .Filters.Add "Word", "*.doc*, 1
    .Filters.Add "All Files", "*.*", 2

    .Show

    If .SelectedItems.Count > 0 Then
        FileName = .SelectedItems(1)
    End If
End With
~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文