|
#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; |