批量替换word里面的日期

xcz123m · 发表于 2017-9-17 16:38

对word VBA 都没接解过，刚也在论坛搜过也没有搞好…………

如题：一个文件夹里有多个word文档，现在我想不一个个的打开文档批量替换每个文档里面的日期这一项！！改成自己想要改的日期。。小白一个大家帮帮忙谢谢 …………] TIM截图20170917162434.png

duquancai · 发表于 2017-9-17 18:51

Sub ChangRiqi()
Dim doc As Document, fol As Object, aFile$, Aset$
Set fol = CreateObject("Shell.Application").BrowseForFolder(0, "目标文件夹", 0)
If Not fol Is Nothing Then pa$ = fol.Items.Item.Path Else MsgBox "请选目标文件夹": Exit Sub
If Right(pa, 1) <> "\" Then pa = pa & "\"
aFile = Dir(pa & "*.doc*")
Aset = InputBox("输入更改的日期", , "2017-2-10")
If Aset = "" Then MsgBox "你没有输入日期！请输入日期": Exit Sub
Do While aFile <> ""
      If ThisDocument.Name <> aFile Then
         Set doc = Documents.Open(pa & aFile, Visible:=False)
         If doc.Bookmarks.Exists("djsj") Then
            With doc.Bookmarks("djsj").Range
                  .MoveEndUntil vbCr
                  .Text = Aset
            End With
            doc.ActiveWindow.View.Type = 4
            doc.Close -1
         Else
            doc.Close 0
         End If
      End If
      aFile = Dir
Loop
MsgBox "OK!"
End Sub

jiminyanyan · 发表于 2017-9-17 19:50

学一下du老师的方法。。。。

xcz123m · 发表于 2017-9-17 20:54

本帖最后由 xcz123m 于 2017-9-17 20:55 编辑

jiminyanyan 发表于 2017-9-17 19:50
学一下du老师的方法。。。。

一定好好学习一下！！！

xcz123m · 发表于 2017-9-17 21:31

duquancai 发表于 2017-9-17 18:51
Sub ChangRiqi()
Dim doc As Document, fol As Object, aFile$, Aset$
Set fol = CreateObject(" ...

If doc.Bookmarks.Exists("djsj") Then
With doc.Bookmarks("djsj").Range 老师这里面的书签 “djsj” 是什么意思啊？

我想替换别的内容不一定是日期怎么改啊？

duquancai · 发表于 2017-9-17 21:35

xcz123m 发表于 2017-9-17 21:31
If doc.Bookmarks.Exists("djsj") Then
With doc.Bookmarks("djsj").Range ...

你标题：“[求助] 批量替换word里面的日期 ” ？？？？？？？？

duquancai · 发表于 2017-9-17 21:37

xcz123m 发表于 2017-9-17 21:31
If doc.Bookmarks.Exists("djsj") Then
With doc.Bookmarks("djsj").Range ...

书签 “djsj” 是什么意思？这得问你自己吧！你的文档中，你自己添加的定位书签，你不知道？？？

xcz123m · 发表于 2017-9-17 21:50

duquancai 发表于 2017-9-17 21:37
书签 “djsj” 是什么意思？这得问你自己吧！你的文档中，你自己添加的定位书签，你不知道？？？

是的要求是写的就是日期不过想多学点，还有不好意思哪个模版是别的软件自带的没注意，让老师见笑了！！

duquancai · 发表于 2017-9-17 22:10

xcz123m 发表于 2017-9-17 21:50
是的要求是写的就是日期不过想多学点，还有不好意思哪个模版是别的软件自带的没注意，让老师见笑了！！

既然文档中事先有了这些定位书签，那么就用这些位置书签来定位，是很好的办法，同时定位速度也非常快。

xcz123m · 发表于 2017-9-17 22:22

duquancai 发表于 2017-9-17 22:10
既然文档中事先有了这些定位书签，那么就用这些位置书签来定位，是很好的办法，同时定位速度也非常快。

老师如果文件夹里有子文件夹，我想把子文件夹里的word文档也处理应该怎么改呢？

		自动登录	找回密码
密码			免费注册