Word用宏有没可能实现这样的批量替换？

militant001

比如我想在Word文档中，将A替换成1， B替换成2，C替换成3，如此类推。。。。
然后我在excel中弄个n行两列的表格，分别为被替换的字符和用来替换的字符，


是否有可能写一个宏调用excel中的数据，并且对Word文档进行批量替换？
另外用来替换的字符可能包含特殊符号和格式？


这样能做么？老师布置的作业，想不明白，拜托各位大牛了！

sqhsqhli

问题1，见附件窗体及代码。
新建文件夹 (2).rar (1.65 KB, 下载次数: 473)

2011-12-10 20:52 上传

点击文件名下载附件

问题2，直接运行以下代码，与问题是可逆的。
Sub ccc()
Dim i, p
Dim MyXls As Object
Set MyXls = CreateObject("c:\test.xls")
p = MyXls.Sheets(1).Range("a65536").End(xlUp).Row
For i = 1 To p
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = MyXls.Sheets(1).Range("b" & i)
        .Replacement.Text = MyXls.Sheets(1).Range("a" & i)
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Next
MyXls.Close
Set MyXls = Nothing
End Sub

szqhb

做个记号先，待有空时慢慢实践一下。

AVEL

word编程不熟悉，不过看样子应该可以借用2楼的代码。

tawxf

好东西，做个记号

militant001

sqhsqhli 发表于 2011-12-10 20:52
问题1，见附件窗体及代码。
问题2，直接运行以下代码，与问题是可逆的。
Sub ccc()

谢谢你二楼i，但是看了代码发现不是我想要的功能，可能是我没表述清楚，不好意思。。。

其实我就一个问题：
就是我先弄个n行两列的excel表，第一列为被替换的字符，如A, B, C,。。。，第二列为用来替换的字符，如1,2,3，。。。这个表格保存为subsitute.xlsx.然后现在我有一个文档abc.docx，想将其中的A,B,C.....分别替换为1,2,3......，我想要的功能就是用一个宏调用subsitute.xlsx，来实现对abc.docx的批量替换。其次，用来替换的字符中可能包含特殊字符或格式，替换的时候想保留这些字符和格式，而不是清楚它们

不知道说清楚了没有。。不过终归还是很谢谢你！

sqhsqhli

militant001 发表于 2011-12-11 12:52
谢谢你二楼i，但是看了代码发现不是我想要的功能，可能是我没表述清楚，不好意思。。。

其实我就一个问 ...

基本和你要的一样啊（我安装的是2003，你的是更高版本）。只是格式不能同步，要实现格式也替换过来，可能在此基础上要逐一字符进行格式判断，包括字体、字号、颜色、加粗、划线，然后进行格式替换。加几句当可实现。

tawxf

sqhsqhli 发表于 2011-12-10 20:52
问题1，见附件窗体及代码。
问题2，直接运行以下代码，与问题是可逆的。
Sub ccc()

我也想实现跟楼主一样功能的想法（六楼）  盼指导

sqhsqhli

请传个excel表和word文档上来，试着做做看。我的是2003，高了看不了

tawxf

嗯，谢谢你，马上传