![Board logo](images/default/logo.gif)
标题: [问题求助] 求解vbs批量替换world [打印本页]
作者: xubin3000 时间: 2024-6-9 15:37 标题: 求解vbs批量替换world
新手小白。打算写个vbs小程序。目标:运行程序后,1、弹出界面,界面上可以填写文件夹路径、姓名、性别、住址、身份证号等多个信息。2、填写完毕后,点替换按钮3、点按钮后,自动查找替换该路径下所有world文档的姓名、性别等信息,自动替换为填写的内容。高手给个思路,今天刚开始学vds。目前进度,打开一个world,利用宏,抄了别人几段代码。分别为:替换代码,弹出对话框代码,初始化代码。但是运行的时候,只能运行一段,比如至运行替换代码,实在是不懂了。求高手帮助。微:15306350566,有偿。已收集代码如下:- Private Sub CommandButton1_Click()
- '关闭屏幕刷新
- Application.ScreenUpdating = False
- '定义变量
- Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$
- '设置应用对象,建立临时进程
- Set myAPP = New Word.Application
- '显示选择文件夹对话框
- With Application.FileDialog(msoFileDialogFolderPicker)
- .Title = "选择目标文件夹"
- If .Show = -1 Then
- '读取选择的文件路径
- myPath = .SelectedItems(1)
- Else
- Exit Sub
- End If
- End With
- '文件夹目录和文件完整路径
- myPath = myPath & ""
- myFile = Dir(myPath & "\*.docx")
- '获取被替换的文字
- txt = InputBox("需要替换的文字:")
- '获取替换文件
- Re_txt = InputBox("替换成:")
- '显示打开文档
- myAPP.Visible = True '是否显示打开文档
- '循环处理文件夹中的全部文件
- Do While myFile <> "" '文件不为空
- '打开文件
- Set myDoc = myAPP.Documents.Open(myPath & "\" & myFile)
- '判断文件是否受保护,仅对未受保护的文件有效
- If myDoc.ProtectionType = wdNoProtection Then
- '查找替换
- With myDoc.Content.Find
- .Text = txt
- .Replacement.Text = Re_txt
- .Forward = True
- .Wrap = 2
- .Format = False
- .MatchCase = False
- .MatchWholeWord = False
- .MatchByte = True
- .MatchWildcards = False
- .MatchSoundsLike = False
- .MatchAllWordForms = False
- .Execute Replace:=2
- End With
- End If
- '设置文件窗口状态,避免再次打开时被隐藏
- Application.WindowState = wdWindowStateNormal
- '保存并关闭文档
- myDoc.Save
- myDoc.Close
- myFile = Dir
- Loop
- '关闭临时进程
- myAPP.Quit
- '打开屏幕更新
- Application.ScreenUpdating = True
- '输出提示信息
- MsgBox ("全部替换完毕!")
- End Sub
-
-
-
- Private Sub UserForm_Initialize()
- ' 初始化表单时设置控件属性
- Me.Label1.Caption = "输入你的名字:"
- Me.TextBox1.Value = ""
- Me.CommandButton1.Caption = "提交"
- End Sub
-
- Private Sub CommandButton1_Click()
- ' 按钮点击事件处理程序
- MsgBox "你好," & Me.TextBox1.Value
- Me.TextBox1.Value = "" ' 清空文本框
- End Sub
-
- Sub RunUserForm()
- UserForm1.Show
- End Sub
复制代码
作者: xubin3000 时间: 2024-6-9 15:38
求高手帮助。微:15306350566,有偿。
作者: xubin3000 时间: 2024-6-9 17:01
暂时有人接单,正协商中。
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |