如何宏语句实现断开文件中的所有链接（非超级链接）

gues1688

试着学习守柔老师、konggs编一个：

Option Explicit
Sub delLink()
Dim shapeLoop As Shape
On Error Resume Next
For Each shapeLoop In ActiveDocument.Shapes
With shapeLoop
If .Type = msoLinkedOLEObject Then
'.LinkFormat.Update
.LinkFormat.BreakLink
End If
If .TextFrame.HasText Then
fieldUnlink aFields:=.TextFrame.TextRange.Fields
End If
End With
Next
fieldUnlink aFields:=ActiveDocument.Content.Fields
End Sub

Sub fieldUnlink(aFields As Fields)
Dim myField As Field
For Each myField In aFields
If myField.Type = wdFieldLink Then myField.Unlink '只删除文件链接
Next myField
End Sub

zhaoxh889

为什么在较短的文件中都运行得很好,长篇的文章就出现WORD没有足名够的内存,操作完成后无法撤消的提示

gues1688

以下是引用zhaoxh889在2005-12-10 10:07:03的发言：

为什么在较短的文件中都运行得很好,长篇的文章就出现WORD没有足名够的内存,操作完成后无法撤消的提示

传一个会出错的文档上来，调试一下看看是什么是原因

zhaoxh889

好的,我传一份上来,请用前面三位高手的程序都试一下,帮忙看看问题出在哪里

刚才传的可能有问题，我又传了一个

Gcrlu7uO.rar (159.9 KB, 下载次数: 14)

2005-12-10 11:07 上传

点击文件名下载附件

[此贴子已经被作者于2005-12-10 11:07:05编辑过]

zhaoxh889

[QUOTE][/QUOTE]我又换了一篇文章在14楼，如果用守柔和konggs的会报错，能不能帮我调试一下

守柔和konggs

konggs

不用VBA照样搞定，信不？

信的话，告诉你。不比VBA慢！

zhaoxh889

快告诉我吧,可别是用编辑——断开链接做，其实我之所以想用VB实现断开链接是为了将这段VB嵌入到另外的宏中，这样只点击一按钮就可以完成所有这些事

konggs

当然不是，是后台的操作。感谢七叶一支梅兄吧！

他的以前贴给了我的灵感：

步骤：

1.工具／宏／microsfot 脚本编辑器

2.双击右边“项目资源管理器”下你的文档，

3.查找：（如下图）。

”）

4.全部替换，再到Word中，点刷新。怎么样，还行吗？

再次感谢七兄带我们进入脚本的世界（虽然我没进，但关键时刻就会想到“她”）。

谢谢七兄！

zhaoxh889

这也是断开链接的一个途径，感谢大家为我的事出谋献策，但我还是想用VB语句写出来（就是我上面所说的目的）。因为一、我的机器上面WEB脚本创作的功能没有安装，二、我虽然没有这样操作过，但感觉过程和在编辑——链接——断开链接的操作好像一样麻烦，并非只点击一次按扭就能完成的[em17]

gues1688

以下是引用zhaoxh889在2005-12-10 12:23:44的发言：
这也是断开链接的一个途径，感谢大家为我的事出谋献策，但我还是想用VB语句写出来（就是我上面所说的目的）。因为一、我的机器上面WEB脚本创作的功能没有安装，二、我虽然没有这样操作过，但感觉过程和在编辑——链接——断开链接的操作好像一样麻烦，并非只点击一次按扭就能完成的[em17]

下载并测试了会出错的文档。

因守柔版主提供的代码，就是微软帮助文件中提供的标准代码，但这段代码感觉很奇怪？用它断开链接时，即使把自动更新链接的语句屏蔽掉，但好像在断开之前仍然会自动更新链接的文件，导致删除链接非常之慢。

编写了新的代码，共有2个程序可以删除链接，其中一个因涉及到用户窗体，因此把代码连同文档一起上传。

原来的方法(程序之一)，现在不会出错了，但删除链接很慢。

新的方法(程序之二)，是模拟手工删除链接，速度很快。