如果用VBA以可读写方式打开建议只读的WORD文档？

xiaowonet

EXCEL的OPEN方法中有ReadOnlyRecommended类型，可以跳过是否以只读方式打开的选择

在WORD的OPEN中好像没有ReadOnlyRecommended类型，而在打开后设置ReadOnlyRecommended = False，再保存时只能另存为，而不能直接保存了，请问有什么方法解决这个问题吗？

sqhsqhli

你的别字用的出神入化，实在不懂，也许是这个意思吧。
Sub 对word只读文件的读写()
    Dim oFileSystem As Object
    Dim oFile As Object
    Dim wd As Word.Document, c As String
    c = "C:\Documents and Settings\Administrator\桌面\1.doc"'假设桌面有个只读文件1.doc
    Set oFileSystem = CreateObject("Scripting.FileSystemObject")
    Set oFile = oFileSystem.GetFile(c)
    oFile.Attributes = 0 '改为读写
'-------------------------------------------------------------------------word编辑
    Set wd = Documents.Open(FileName:=c, ReadOnly:=False, Visible:=True)
    wd.Range.InsertAfter "钓鱼岛"
    wd.Save
    wd.Close savechanges:=True
    Set wd = Nothing
'-------------------------------------------------------------------------word编辑
oFile.Attributes = 1 '改回原来的只读
    Set oFile = Nothing
    Set oFileSystem = Nothing
End Sub

xiaowonet

sqhsqhli 发表于 2012-8-12 20:01
你的别字用的出神入化，实在不懂，也许是这个意思吧。
Sub 对word只读文件的读写()
    Dim oFileSystem  ...

不好意思，我心太急了，没表达清楚

我说的是在 工具 - 选项 - 安全性 里面勾选了 建议以只读方式打开文档

请问用VBA有方法以可读写的方式打开勾选了这一选项的WORD文档吗？
或者打开文档并且修改后直接保存时不会弹出提示保存的窗口吗？

xiaowonet

sqhsqhli 发表于 2012-8-12 20:01
你的别字用的出神入化，实在不懂，也许是这个意思吧。
Sub 对word只读文件的读写()
    Dim oFileSystem  ...

还请高人出手相救……

duquancai

xiaowonet 发表于 2012-8-13 16:04
还请高人出手相救……

简单，但是目前手机上网中。