[求助]如何获取word替换记录？

wxg

我在编辑word文档时，要进行许多次不同的替换。如何在文件编辑结束后，获得一个替换列表（可为左右对应的两列词，格式如：“查找内容”制表符“替换内容”）——即所有单次替换的总记录？

konggs

给你一个思路：用修改命令改editreplace，然后，自己做一个窗体，把相关的查找中的所有（或部分）功能整合到这个窗体上，再通过后面的静态变量数组，存储这个信息。然后，通过在查找的窗体上加二个按钮，一个复位数组，一个在文档结尾加上你要的结果。

到此为止，估计在200行的代码，自己写吧。不要指望别人噢。如果听的懂的话。

鑫11

我的思路是先把手动把文档设为修订状态，这样所有的替换都会被记录下来。（当然前提是只进行替换修改）
因为不同次的替换在时间上是不同的（除非你在1分钟内能完成2次替换操作）
这样我编一个宏，遍历所有的修订对象。
出错，要怎么改
Sub zxj1()
Dim pa As Revision, b As Variant, d(1, 1) As String
ReDim b(1, ActiveDocument.Revisions.Count)'先声明一个二维数组来存放替换的时间和“什么替换为什么”的字符串
i = 1　'i为下次存放时的列数（一行存放一个修订对象）
For Each a In ActiveDocument.Revisions　'遍历所有的修订对象。
q = VBA.Cstr(a.Date)
    c = Filter(b, q)'这行出错，提示：数据类型不配，
'判断这次替换是否存入数组　（因为不同次的替换在时间上是不同的),如果没有存入，则存入
    If IsEmpty(c) Then
        b(0, i) = q
        e = a.Range.Text
        f = ActiveDocument.Range(a.Range.Start, a.Range.Start + 1)
        g = f & "替换为" & e
        b(1, i) = g
        i = i + 1
      
    End If
Next
MsgBox b(1, 1)
End Sub

[此贴子已经被作者于2006-6-26 20:24:02编辑过]

守柔

直接在当前文档中使用修改WORD命令，即修改EDITREPLACE，将每次用户的替换后的内容写到文档变量或者新文档中，如果需要查看时，运行某个命令即可，总代码应该在50行以内。

鑫11

能帮我看看错在哪吗？虽然我这个方法有局限性。

鑫11

试一试附件中这个文档，不知是否符合要求
注意：在使用前先在word的默认目录下新建一个名为“替换”的文档
该文档的替换功能在菜单栏上（该替换功能只适用于该文档，如果要在所有文档上适用，请把该文档设为公共模板） Mi8n4Xel.rar (70.24 KB, 下载次数: 12)

2006-6-26 23:16 上传

点击文件名下载附件
[求助]如何获取word替换记录？

wxg

多谢各位老师了，我是一个（CAT）计算机辅助翻译的受好者，但对于VBA实在是个门外汉。虽然了解了VBA功能之强大，但苦于无时间仔细研究，只能录制修改一些简单的文字编辑方面的宏，稍一复杂就不行了。

特别感谢鑫11兄提供的模板，但小弟仍未能正常使用，经过如下：

下载附件，解压，得到Doc6.doc,将其拷贝至my document下，改名为替换。

运行，出现出错对话框“溢出堆栈空间”，点确定，侧又出现一个显示乱码的出错对话框，再点确定，则word关闭。

不懂这是什么原因，鑫11兄能否再给予指点？先谢了。