如何将word文档属性中的标题给word文档命名
来源:百度知道 编辑:UC知道 时间:2024/06/20 13:16:12
changefiles.ExE,你下载一个这个试试看,能不能满足你的要求。没有可以找我,我给你一个。
试一试 这个批量命名软件里的原变量 <NAME> 返回原文件名
只能一个个改吧
用vba代码来完成
Sub 用属性的标题更改选定目录下的office文档文件名()
Dim x As String, MyName As String
Dim i As Integer
Dim Response As Integer, TotalFiles As Integer
On Error Resume Next
Folder:
' Prompt the user for the folder to list.
x = InputBox(Prompt:="请添加要改名文件所在目录" & vbCr & vbCr _
& "For example: C:\My Documents", _
Default:=Options.DefaultFilePath(wdDocumentsPath))
If x = "" Or x = " " Then
If MsgBox("Either you did not type a folder name correctly" _
& vbCr & "or you clicked Cancel. Do you want to quit?" _
& vbCr & vbCr & _
"If you want to type a folder name, click No." & vbCr & _
"If you want to quit, click Yes.", vbYesNo) = v