Автоматизация VB с помощью word.проблема с документом

#html #vbscript #ms-office

#HTML #vbscript #ms-office

Вопрос:

У меня есть документ word, который я открываю в iframe, используя vbscript. Проблема в том, что он доступен для редактирования пользователем. Я не хочу разрешать пользователю что-либо изменять в документе. он должен быть в режиме только для чтения. поэтому, я думаю, мне следует применить атрибут только для чтения перед сохранением, но я не знаю как. есть идеи?

мой код выглядит так:

   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 amp; "Added Text!"
  WordDoc.SaveAs "c:try.doc"
  oWord.Quit
    Set rng = Nothing
  Set oWord = Nothing
  Set WordDoc = Nothing
 

Комментарии:

1. я не думал WordDoc.Range(Start:=cnt, End:=cnt) , что будет работать в VBScript?

Ответ №1:

Вы можете защитить документ перед его сохранением, используя это:

Пароль wordDoc.Protect:=»mypassword», NoReset:=False, Type:= wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False

Обратите внимание, что если ваше приложение должно внести изменения в документ позже, вам необходимо отключить защиту перед внесением изменений