Работа с word

[Alex711]

Здравствуйте, подскажите почему данный код работает с word 2007, 2010, а в 2013 отказывается работать, вылетает предупреждение: "Данная команда недоступна" и открывается незаполненный документ.

procedure TFormGF.repl(stroke:string;rpl:string);
const
  wdFindContinue = 1;
  wdReplaceOne = 1;
  wdReplaceAll = 2;
  wdDoNotSaveChanges = 0;
var   pth,fnn:string;
begin
 msword.Selection.Find.ClearFormatting;
        msword.Selection.Find.Text:=stroke;
        msword.Selection.Find.Replacement.Text:=rpl;
        msword.Selection.Find.Forward:=True;
        msword.Selection.Find.Wrap:=wdFindContinue;
        msword.Selection.Find.Format:=False;
        msword.Selection.Find.MatchCase:=False;
        msword.Selection.Find.MatchWholeWord:=True; //искать слово целиком
        msword.Selection.Find.MatchWildcards:=False;
        msword.Selection.Find.MatchSoundsLike:=False;
        msword.Selection.Find.MatchAllWordForms:=False;
        msword.Selection.Find.Execute(Replace:=wdReplaceAll);
end;

[Alex711]

Проблемы в этой строке:

msword.Selection.Find.Execute(Replace:=wdReplaceAll);

столько перечитал и не нашёл что не так, помогите

[Alex711]

Разобрался, проблема не в коде, проблема в том, что word 2013 открывает файл в режиме безопасного просмотра и никак не могу с этим ничего сделать. Подскажите куда копать.

[NetSpace]

1. попробуй на форуме поискать строку, в которой задавался бы параметр, что открывает Ворд не в безопасном просмотре, а в полнофункциональном режиме редактирования....
была такая похожая ошибка, когда программа автоматически записывала в EXCEL 2003 данные, а в EXCEL 2007 и выше записывала, но там была чушь - не открывался потом... надо было всего-то поменять какой-то один параметр и всё записывалось нормально....
------------
2. попробуй программно запускать ворд в обычном режиме, и уж потом туда вставлять свои данные и сохранять. криво-косо, проблемы с открытым на весь экран окном, но может работать

[perceptron]

Добавлю что тоже стала возникать такая ошибка у одного из пользователей при формировании Word-шаблона и выдавало "Данная команда недоступна". Причём вчера у неё ещё всё работало а сегодня уже нет. У всех остальных 300+ пользователей всё в норме на разных компах и офисах. С Word.Application всё норм - проверил через PowerShell.

$word = New-Object -ComObject Word.Application -ErrorAction SilentlyContinue
if ($word -ne $null) {
    Write-Host "Word.Application is REGISTERED."
    $word.Quit()  # Close Word
} else {
    Write-Host "Word.Application is NOT REGISTERED."
}

Админы и Office переставляли и надстроек никаких не стояло, и защищенный просмотр был выключен, а заработало лишь после того, как в настройках Word -> Параметры -> Надёжные расположения Добавили путь к расположению, куда файлы шаблонов из базы в темповую директорию из программы сбрасываются и модифицируются (uses IOUtils; TPath.GetTempPath): C:\Users\User_Name

Подозреваю где-то админы накосячили с групповыми политиками, раз у всех работает и параметры Word никто не менял.

P.s. Может кому-то поможет.

[DIONISKA]

Ох уж эти некропостеры..

Сообщение от perceptron

админы накосячили с групповыми политиками

Это прилетает с обновлением офиса и лечится отключением галок в [настройки]->[центр управления безопасностью]->[защищённый просмотр], пункт про потенциально небезопасные расположения. Вероятно админы не отключили обновление других продуктов MS или поставили обновления безопасности офис. Альтернативно можно перестать использовать временные папки, их офис по умолчанию считает небезопасным расположением.

[perceptron]

Сообщение от DIONISKA

Ох уж эти некропостеры..

Всегда улыбали люди, которые начинают свои сообщения с воспоминаний про некропостеров. В данной теме по сути вопроса ответа я к примеру для себя не увидел. А ты, советчик, советуешь даже не читая, что уже отключали [защищённый просмотр] и это никак не помогло. А помогло то, что я написал выше. И админы ставят обновления всем ровно одинаково в AD и такой же офис с теми же обновлениями работает ровно.