vba怎样批量为多个word文档用文件名作为页眉文字

abcttud · 发表于 2020-8-3 20:41

cuanju 发表于 2020-8-3 12:51
俺不爱声明变量，所写代码较为随意^_^追求只要能达到效果就行，（第一版代码修改后，已声明变量，并加上O ...

朋友，批量操作不成功

cuanju · 发表于 2020-8-4 07:01

本帖最后由 cuanju 于 2020-8-4 10:48 编辑

估计是2003的原因

cuanju · 发表于 2020-8-4 07:11

本帖最后由 cuanju 于 2020-8-4 10:48 编辑

估计是2003的原因

413191246se · 发表于 2020-8-4 10:02

本帖最后由 413191246se 于 2020-8-4 10:03 编辑

小花鹿老师辛苦了！cuanju 老师辛苦了！——abcttud 朋友，看文档类型，是 2003 版本的，按理说，是应该用 filesearch 来搜索；cuanju 老师的代码，在 2007 以上版本中是通过的，但是在 2003 版本中是不是能通过呢？这个不好说，因为我现在在家里用 2019。——abcttud 朋友，可以试试 cuanju 老师的代码，选择文件时，点击第一个文件，然后按住 Shift 键，再点击最后一个文件，这样，就把文件夹中的所有文件都选中了！再按打开就行了。
* 我试过，在 2003 中，dir 函数做的循环遍历文件夹程序根本不运行！

gbgbxgb · 发表于 2020-8-4 10:56

413191246se 发表于 2020-8-4 10:02
小花鹿老师辛苦了！cuanju 老师辛苦了！——abcttud 朋友，看文档类型，是 2003 版本的，按理说，是应该 ...

Dir()函数的运行就目前来看不存在宿主（指Office）版本的问题。

你说Dir()函数在2003版本下使用时根本不运行，我不知道你运行的是什么样的循环遍历代码，这代码是你摘自他人处呢，还是你自个儿写的？不管哪种，我想不运行的原因应该是那代码有逻辑错误。

413191246se · 发表于 2020-8-4 12:20

老师，有一个是我从网上找的(DIR)，一个杜老师写的（FSO)，在 2003 上均不运行；在 2007 中 OK！

gbgbxgb · 发表于 2020-8-4 12:32

413191246se 发表于 2020-8-4 12:20
老师，有一个是我从网上找的(DIR)，一个杜老师写的（FSO)，在 2003 上均不运行；在 2007 中 OK！

循环遍历代码是一个写烂了的代码。

试试附件。

hhh.rar (8.12 KB, 下载次数: 20)

413191246se · 发表于 2020-8-4 13:34

老师辛苦了！请注意休息。——由于我水平太低，无法判断正确与否（当然老师那么厉害，应该没问题）。由于对字典/数组怕得要命，待有时间测试（又到关机时间了，可别把我宝贝电脑热坏了）。
另：这个程序是否能横跨 2003/2007 两界呢？

凌空一羽 · 发表于 2020-8-4 14:51

Sub lkyy()
Dim Mp$, Mf
Mp = ThisDocument.Path & "\文件\"
Mf = Dir(Mp & "*.doc")
Do While Mf <> ""
With Word.Documents.Open(Mp & Mf)
      mn = Replace(.Name, ".doc", "")
      .Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = mn '默认第1节。处理页眉
      .Save
      .Close
End With
Mf = Dir
Loop
End Sub

ynlxyzr00 · 发表于 2023-6-21 09:27

本帖最后由 ynlxyzr00 于 2023-6-21 09:56 编辑

vba运行错误424：要求对象

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