如何才能快速去除文件夹下所有WORD文件超链接?

回头浪子就是我 · 发表于 2020-10-11 12:19

文件夹A,里面有几级子文件夹,
每个子文件夹里面都有不少的WORD文档,
现在要把A文件夹下几百个WORD文档的超链接全部清除,
如果手工操作的话会非常费时间,并且还可能有漏网之鱼,
请问有没有快捷点的方法?
类似批处理的方式

先谢谢大家!!!

413191246se · 发表于 2020-10-11 23:46

请问楼主，你是想将 Word 文本中的超链接全部清除？为什么呢？

回头浪子就是我 · 发表于 2020-10-12 09:11

413191246se 发表于 2020-10-11 23:46
请问楼主，你是想将 Word 文本中的超链接全部清除？为什么呢？

因为有很多重复的工作,所以我就用EXCEL做数据源链接到WORD中,修改时只改EXCEl就行,然后把整个文件夹复制一份备份,如果不去除这些链接,那以后再修改源数据时,WORD文档的内容也会跟着改变,这样就不行了,所以需要去除掉这些链接,

413191246se · 发表于 2020-10-12 22:55

楼主，请先备份你要处理的文件夹（打包压缩/测试，或复制一份到另一盘），最好是先把两三个文件，放到一个试验文件夹中，来测试下面的宏：（循环遍历文件夹及子文件夹，清除所有域）

Sub LoopFolder_duquancai()
Dim pPath$, f As Object, fd As Object, fso As Object, Stack$(), top&, n&, stxt$, doc As Document, x&
pPath = SelectFolder
Set fso = CreateObject("Scripting.FileSystemObject")
top = 1
ReDim Stack(0 To top)
Do While top >= 1
For Each f In fso.getfolder(pPath).Files
n = n + 1
stxt = f.Path
If stxt Like "*.doc*" Then
Set doc = Documents.Open(FileName:=stxt)
doc.Fields.Unlink
doc.Close SaveChanges:=wdSaveChanges
x = x + 1
End If
Next
For Each fd In fso.getfolder(pPath).SubFolders
Stack(top) = fd.Path
top = top + 1
If top > UBound(Stack) Then ReDim Preserve Stack(0 To top)
Next
If top > 0 Then pPath = Stack(top - 1): top = top - 1
Loop
Set f = Nothing
Set fd = Nothing
Set fso = Nothing
MsgBox "文件夹包含 " & n & " 个文件！" & vbCr & "共处理 Word 文档(*.docx/*.doc) " & x & " 个！", 0 + 48
End Sub

复制代码

回头浪子就是我 · 发表于 2020-10-13 10:32

413191246se 发表于 2020-10-12 22:55
楼主，请先备份你要处理的文件夹（打包压缩/测试，或复制一份到另一盘），最好是先把两三个文件，放到一个 ...

非常感谢大神帮忙!!!

但是我看宏里面好像没有指定文件夹名, 我在测试的时候是怎么使用呢? 是不是把代码复制新建一个宏,然后把包含这个宏的WORD文档一起放在试验文件夹中,打开宏, 运行...

回头浪子就是我 · 发表于 2020-10-13 10:38

413191246se 发表于 2020-10-12 22:55
楼主，请先备份你要处理的文件夹（打包压缩/测试，或复制一份到另一盘），最好是先把两三个文件，放到一个 ...

再请教一下,我有些文档的后缀后是 .docx ,但代码中好像只指定了 .doc (If stxt Like "*.doc*" Then),

我应该怎么做才能把 .docx 的文件也包含在内?

小白一个,问题比较多,不好意思了

wdpfox · 发表于 2020-10-13 10:58

你不试用怎能知道是否好用！实践是检验真理的唯一标准。

回头浪子就是我 · 发表于 2020-10-13 11:04

wdpfox 发表于 2020-10-13 10:58
你不试用怎能知道是否好用！实践是检验真理的唯一标准。

呵呵,你说了才发现原来是包含.doc 草率了

回头浪子就是我 · 发表于 2020-10-13 17:57

413191246se 发表于 2020-10-12 22:55
楼主，请先备份你要处理的文件夹（打包压缩/测试，或复制一份到另一盘），最好是先把两三个文件，放到一个 ...

刚才试了一下,说错误,运行不了,大神帮忙看看怎么回事谢谢啦

413191246se · 发表于 2020-10-13 22:28

本帖最后由 413191246se 于 2020-10-13 23:00 编辑

略。。。。

		自动登录	找回密码
密码			免费注册

[求助] 如何才能快速去除文件夹下所有WORD文件超链接?