运行错误““424”” 要求对象

ynlxyzr00 · 发表于 2023-6-21 11:00

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

代码：运行错误““424”” 要求对象，能帮忙改一下吗？谢谢！

ynlxyzr00 · 发表于 2023-6-21 18:34

代码：运行错误““424”” 要求对象，大家能帮忙改一下吗？谢谢！

ynlxyzr00 · 发表于 2023-6-21 18:36

代码：运行错误““424”” 要求对象，大家能帮忙改一下吗？谢谢！

batmanbbs · 发表于 2023-6-21 22:02

经测试，代码没有任何问题

vbee · 发表于 2023-6-22 12:30

.doc过时了吧，现在都是DOCX

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