新手请教

qixy

请问如何用vba 读取word文档的属性，从而实现设置只读属性

守柔

欢迎qixy:

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-3-16 13:01:37 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub SetClearArchiveBit() Dim FSO As Object, F As Object, FilePath As String '创建系统文件夹 Set FSO = CreateObject("Scripting.FileSystemObject") FilePath = "C:\MyDoc\FootNotes.Doc"'指定文件夹位置 Set F = FSO.GetFile(FilePath) '获取指定路径下的文件 If F.Attributes <> ReadOnly Then '如果属性不为只读则提示: If MsgBox("你想将此文件设置为只读吗?", vbOKCancel + vbInformation) = vbOK Then _ F.Attributes = ReadOnly End If End Sub '----------------------

[此贴子已经被作者于2005-3-16 13:09:53编辑过]

qixy

谢谢版主，如何读取打开word文件自己本身的属性呢

守柔

MsgBox ActiveDocument.ReadOnly

对于 Document 对象：如果为 True，则对文档所作修改不能保存到原始文档中。Boolean 类型，只读。

expression.ReadOnly

expression 必需。该表达式返回以上一个对象。

能具体说一下，你的详细实施计划吗？