[求助]请教如何批量修改WORD文件的属性》摘要》标题中的信息。

homelgx

某文件夹中有很多个WORD文件，但每个文件的属性》摘要》标题里面的内容有错，需要作同样的改动。 （鼠标在文件上一指总显示黄色背景的文件属性信息，因为错误，非常碍眼。） 请教各位： （１）如何进行批量修改。 或者（２）如何批量删去标题中的全部内容。 或者（３）如何设置自动往属性》摘要》标题里添加正文中的（某些比如是第一行）内容。

烦请指教，即使回答其中１个也可。谢谢了。

（ＸＰ２002＋ＯＦＦＩＣＥ2003）

守柔

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-8 13:42:48 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0007^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example2() '此代码功能为列出指定文件夹中所有选取的WORD文件并修改其标题属性 Dim MyDialog As FileDialog, GetStr As String, vrtSelectedItem As Variant Dim MyDoc As Document, strTitle As String On Error Resume Next '忽略错误 strTitle = "请换成您要的标题" '如果strtitle=""则删除了标题 '定义一个文件夹选取对话框 Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog .Filters.Clear '清除所有文件筛选器中的项目 .Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件 .AllowMultiSelect = True '允许多项选择 If .Show = -1 Then '确定 For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环 ' MsgBox vrtSelectedItem Set MyDoc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False) With MyDoc ' Debug.Print .BuiltInDocumentProperties("Title") .BuiltInDocumentProperties("Title") = strTitle .Close True End With Next End If End With End Sub '----------------------

homelgx

多谢守大侠。不过还不懂ＶＢＡ，慢慢消化吧。～～