VB自动化与word.document问题

时间:2011-11-01 09:29:48

标签: html vbscript ms-office

我有一个word文档,我使用vbscript在iframe中打开。 问题在于它可由用户编辑。我不想让用户更改文档中的任何内容。它应该处于只读模式。所以我想我应该在保存之前应用只读属性,但我不知道如何。 有任何想法吗?

我的代码如下:

  Dim oWord
  Dim WordDoc
  Dim rng

  Set oWord = CreateObject("Word.Application")
  Set WordDoc = oWord.documents.open("c:\try.doc")
  cnt = WordDoc.Characters.Count
  cnt = cnt - 1
  Set rng = WordDoc.Range(Start:=cnt, End:=cnt)
  rng.Text = vbNewLine & "Added Text!"
  WordDoc.SaveAs "c:\try.doc"
  oWord.Quit
    Set rng = Nothing
  Set oWord = Nothing
  Set WordDoc = Nothing

1 个答案:

答案 0 :(得分:0)

您可以在保存文档之前使用以下文件保护文档:

WordDoc.Protect密码:=“mypassword”,NoReset:= False,类型:= wdAllowOnlyReading,UseIRM:= False,EnforceStyleLock:= False

请注意,如果您的应用程序稍后要对文档进行更改,则需要在进行更改之前关闭保护