Word能否写出个文件1变成文件2的宏

常扬帆

我有两个比较大的文件，文件1和文件2。哪位能帮我把文件1替换成文件2吗？(cnbook能找到，但是，字体麻烦较大)，能的话，请帮我写个宏好吗？万分感谢！

文件1：

你

他

根

字

𡪒

𦜹

文件2：

字=⿱宀子

根=⿰木艮

你=⿰亻尔

𦜹=⿱户攴⺝

他=⿰亻也

𡪒=⿳宀巾巾田

gwjkkkkk

文件2拷贝成一个临时文件，删除文件1，临时文件改成文件1，不知道这个思路行不行？

常扬帆

gwjkkkkk 发表于 2024-1-27 12:52
文件2拷贝成一个临时文件，删除文件1，临时文件改成文件1，不知道这个思路行不行？

这个不行，我的目的是调整字序。上传的文件论坛有些字不能显示。图片如下：

zhanglei1371

完全不能理解什么意思。替换，按字面意思不就是把一个文件删了，把另一个文件替换过去？

413191246se

zhanglei 老师好！提前祝过年好！——就是一个排序问题，但我怕我的代码效率不好，没敢出手。

常扬帆

zhanglei1371 发表于 2024-1-27 13:38
完全不能理解什么意思。替换，按字面意思不就是把一个文件删了，把另一个文件替换过去？

您好！怪我表达不清：我是要把文件二的“=及其后面的内容”移到文件一的对应位置，哈哈，不知道表达清楚了没有，书到用时方恨少啊！

zhanglei1371

常扬帆 发表于 2024-1-27 19:38
您好！怪我表达不清：我是要把文件二的“=及其后面的内容”移到文件一的对应位置，哈哈，不知道表达清楚 ...

简单的方法：就是复制到Excel，分列，然后一个vlookup搞定
VBA方案：

1. Sub ss()
   
2.     Dim doc1 As Document
   
3.     Dim doc2 As Document
   
4.     Dim dic As Object
   
5.     Dim s1$, s2$
   
6.     Set dic = CreateObject("scripting.dictionary")
   
7.     Set doc2 = Documents("文件2")
   
8.     Set doc1 = Documents("文件1")
   
9.     strA = doc1.Range.Text
   
10.     strB = doc2.Range.Text
    
11.     For Each f In Split(strB, vbCr)
    
12.         If InStr(f, "=") Then
    
13.             s1 = CStr(Split(f, "=")(0))
    
14.             s2 = CStr(Split(f, "=")(1))
    
15.             dic(s1) = s2
    
16.         End If
    
17.     Next
    
18.     For Each f In Split(strA, vbCr)
    
19.         If dic.Exists(CStr(f)) Then
    
20.             strC = strC & f & "=" & dic(CStr(f)) & vbCr
    
21.         End If
    
22.     Next
    
23.     doc1.Range.Text = strC
    
24. End Sub
    
25. 
    

复制代码

过客fppt

常扬帆 发表于 2024-1-27 19:38
您好！怪我表达不清：我是要把文件二的“=及其后面的内容”移到文件一的对应位置，哈哈，不知道表达清楚 ...

你的意思是从文件2中查找内容到文件1？？？如果不是建议截图画方框、箭头表示清楚

过客fppt

是这样的意思吗

运行后的文件1

过客fppt

修正一下，如果文件2中没有就显示未找到