wordVBA批量写入文件夹里面word指定表格指定单元格内容
需积分: 0 15 浏览量
2023-04-13
23:32:20
上传
评论
收藏 11KB DOC 举报
Sub 宏 2()
Dim mypath, myfile
mypath = ThisDocument.Path & "\"
myfile = Dir(mypath & "*.docx")
Do While myfile <> ""
Documents.Open FileName:=mypath & myfile, Visible:=False
Documents(myfile).Activate
Do While Selection.Find.Execute("战战不疯") '寻找客户这个关键词，将其用表格中的姓名
来代替
Selection.Text = "战战如疯"
Selection.HomeKey Unit:=6
Loop
ActiveDocument.Save
ActiveDocument.Close
myfile = Dir
Loop
End Sub
资源评论
China13544389447
- 粉丝: 18
- 资源: 10
最新资源
- pta题库答案c语言之树结构2ListLeaves.zip
- pta题库答案c语言之树结构1树的同构.zip
- 基于C++实现民航飞行与地图简易管理系统可执行程序+说明+详细注释.zip
- pta题库答案c语言之复杂度1最大子列和问题.zip
- 三维装箱问题（Three-Dimensional Bin Packing Problem,3D-BPP）是一个经典的组合优化问题
- 以下是一些关于Linux线程同步的基本概念和方法.txt
- 以下是一个简化的示例，它使用pygame库来模拟烟花动画的框架.txt
- Linux线程同步机制深度解析与实用指南.zip
- PTA题库C语言解题策略与实战.rar
- SVPWM控制技术的simulink建模与仿真【包括simulink模型，参考文献，操作步骤】
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
