|
|
| 查看权限： |
需要 [年费会员] 级别以上才能查看。 |
| 发布时间： |
2022-11-13 17:49:44 |
| 信息简介： |
Sub 改名()
Set wdapp = CreateObject("word.application")
Set FSO = CreateObject("scripting.filesystemobject")
Set d = CreateObject("scripting.dictionary")
pth = ThisWorkbook.Path & "\"
wdapp.Visible = True
Application.ScreenUpdating = False |
|
