VBA Word - Documents.Open 网站 URL，但间接取自 Word 文档

Question

我正在尝试通过将不同网站页面的内容放在一个 Word 文档中来制作一本“自学手册”。

我使用 Documents.Open("URL LINK") 然后添加一些演示代码将它们堆叠在一起，效果很好。但是，有时我会获得多达 50 个网址。

为了避免 50 个 sub pagenumberx () 除了一个 URL 之外完全相同，并且对所有不同的 URL 有一个概述，我将它们放在一个 Word 上并想更改它们直接在上面，然后有一个宏读取每个链接。我正在尝试使用 FOR LOOP：

For j = 1 to 50
study = Documents.Open(ActiveDocument.Paragraphs(j).Range.Text)
Next j

但是，这就是我得到的： 错误 5174 抱歉，我们找不到您的文件。它被移动、重命名或删除了吗？ (https://the-url-that-i-put.com)

很明显，代码有效，因为我在错误消息中放置的链接是正确的，但似乎 VBA 只在我的计算机中搜索，而不是在线搜索。

请问有人知道怎么弄吗？

问候， 露西

Answer 1

每个段落都以回车符（Ascii 13）结尾，我认为它不应该是您网址的一部分。不确定这是否会解决您的错误，但试试这个

For j = 1 to 50
set study = Documents.Open(Replace(ActiveDocument.Paragraphs(j).Range.Text, Chr(13), ""))
Next j

编辑：您还需要 Set 您的 study 变量，因为它是对文档的引用。顺便说一句，除非您要在循环中执行某些操作，否则您不需要将文档设置为变量。