Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.06.2020, 11:30   #1
Alex711
Пользователь
 
Регистрация: 21.09.2018
Сообщений: 99
По умолчанию Работа с 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;
Alex711 вне форума Ответить с цитированием
Старый 02.06.2020, 12:37   #2
Alex711
Пользователь
 
Регистрация: 21.09.2018
Сообщений: 99
По умолчанию

Проблемы в этой строке:
Код:
msword.Selection.Find.Execute(Replace:=wdReplaceAll);
столько перечитал и не нашёл что не так, помогите
Alex711 вне форума Ответить с цитированием
Старый 02.06.2020, 19:42   #3
Alex711
Пользователь
 
Регистрация: 21.09.2018
Сообщений: 99
По умолчанию

Разобрался, проблема не в коде, проблема в том, что word 2013 открывает файл в режиме безопасного просмотра и никак не могу с этим ничего сделать. Подскажите куда копать.
Alex711 вне форума Ответить с цитированием
Старый 04.06.2020, 09:10   #4
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

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

Последний раз редактировалось NetSpace; 04.06.2020 в 09:12.
NetSpace вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с Word Владислав-2012 Общие вопросы Delphi 19 22.06.2015 12:41
Работа с Word в VBA RaTeN Microsoft Office Word 8 26.12.2011 13:35
Работа на VBA (Word) pro100 я Помощь студентам 1 29.05.2010 22:32
Работать в Word, не открывая документы (работа с закрытыми документами Word) Георгиевич Microsoft Office Word 10 07.09.2009 11:19
Работа с Word-ом grey Помощь студентам 6 25.11.2007 14:28