Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Трансляция строки из VBA(Word) в Delphi  (Прочитано 10898 раз)
0 Пользователей и 3 Гостей смотрят эту тему.
grb1zli
Интересующийся

ua
Offline Offline

« : 28-11-2010 10:04 » 

Здравствуйте.
Помогите транслировать следующую строку написанную в VBA(word)
Selection.Information(wdFirstCharacterColumnNumber)
в код на Delphi, если объявленная переменная имеет вид
MsWord:Variant.
Спасибо!
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 28-11-2010 11:10 » 

Будет выглядеть точно также.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
grb1zli
Интересующийся

ua
Offline Offline

« Ответ #2 : 28-11-2010 11:18 » 

пробовал так не работает выдает ошибку:"Project Project1.exe raised exception class EOleException with message "Information' не является методoм'.... "
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 28-11-2010 11:50 » 

grb1zli, какой вопрос задаешь, такой ответ и получаешь...

В VBA строка ведь не сама по себе, а в контексте.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
grb1zli
Интересующийся

ua
Offline Offline

« Ответ #4 : 28-11-2010 11:58 » 

Если другой способ узнать эту информацию Selection.Information(wdFirstCharacterColumnNumber)?

Добавлено через 9 минут и 13 секунд:
Код:
procedure Word.Poisk(nachalo,konez:string);
var n_strok,n_slb,n_stran,k_strok,k_slb,k_stran:integer;
begin
MsWord.Selection.Find.ClearFormatting;
MsWord.Selection.Find.Text := 'по курсу "';
MsWord.Selection.Find.Replacement.Text:= '';
MsWord.Selection.Find.Forward:= True;
MsWord.Selection.Find.Wrap:= 2;
MsWord.Selection.Find.Format:= False;
MsWord.Selection.Find.MatchCase:= False;
MsWord.Selection.Find.MatchWholeWord:= False;
MsWord.Selection.Find.MatchWildcards:= False;
MsWord.Selection.Find.MatchSoundsLike:= False;
MsWord.Selection.Find.MatchAllWordForms:= False;
MsWord.Selection.Find.Execute;
MsWord.Selection.MoveRight(1,1);
n_slb:=MsWord.Selection.Information(9);//Функция работает вот до этой строчки
« Последнее редактирование: 28-11-2010 12:07 от grb1zli » Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines