|
#1
|
|||
|
|||
Работа с word
Здравствуйте, подскажите почему данный код работает с 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; |
#2
|
|||
|
|||
Проблемы в этой строке:
Код:
msword.Selection.Find.Execute(Replace:=wdReplaceAll); |
#3
|
|||
|
|||
Разобрался, проблема не в коде, проблема в том, что word 2013 открывает файл в режиме безопасного просмотра и никак не могу с этим ничего сделать. Подскажите куда копать.
|