Поиск текста в строке и колонке таблицы, созданной в OpenOffice для программы, написанной на Delphi 7

@0810pavel · Регистрация: 02.02.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте уважаемые форумчане!
Помогите пожалуйста в таком деле для поиска текста в строке и колонке таблицы созданной в Worde делается так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function TForm6.FindRowColumnlnTable(FindText:string;var tab:variant; var Row,Column:integer):boolean;
begin
  FindRowColumnlnTable:=false;
  try
    W2.Selection.Find.Text:=FindText;
    if W2.Selection.Find.Execute then
    begin
      Column:=W2.Selection.Cells.Item(1).ColumnIndex;
      Row:=W2.Selection.Cells.Item(1).RowIndex;
      tab:=W2.Selection.Tables.Item(1) ;
      FindRowColumnlnTable:=true;
    end;
  except
    FindRowColumnlnTable:=false;
  end;    
end;

Может, кто уже знает как это сделать в OpenOffice, чтобы не изобретать велосипед. А нужно все это
из-за очень "умного" решения нашего примьера, отказаться от Windows и все что с ним связанное.

@qwertehok · 26.03.2019, 11:38

Не по теме:

Сообщение от 0810pavel

А нужно все это
из-за очень "умного" решения нашего примьера, отказаться от Windows и все что с ним связанное.

это как раз и правильно, нужно или свое разрабатывать или бесплатное использовать

а вы где делаете? OpenOffice это пакет программ. У вас таблица или документ?
в инете смотрели?
вот же пример
http://valeevildar.blogspot.co... elphi.html

А delphi у вас какая?

@Puporev · 26.03.2019, 11:43

такая

Сообщение от 0810pavel

для программы написанной на Delphi7

@0810pavel · 26.03.2019, 11:50 **[ТС]**

какая такая?

Добавлено через 4 минуты
Delphi 7, это написано в теме. А нельзя прямо процедуру тут привести, а не гонять по страницам инета. А насчет правильно или неправильно можно много и без толка разговаривать, но это с моей стороны совсем не правильно. Зачем делать шаг назад и использовать, то что было вчера.

@Puporev · 26.03.2019, 11:51

0810pavel, Не хами, не нравится у нас, свободен.

@0810pavel · 26.03.2019, 12:04 **[ТС]**

Я значит не хами, а ответ: такая, это не хамство.

Добавлено через 2 минуты
Puporev, Я значит не хами, а ответ: такая, это не хамство.

@Puporev · 26.03.2019, 12:07

Короче, я надеюсь Вы поняли что Вам уже никто не ответит по существу после Вашей не адекватной реакции.
Учитесь грамотно стоять на паперти.

@qwertehok · 26.03.2019, 12:13

Сообщение от 0810pavel

А нельзя прямо процедуру тут привести, а не гонять по страницам инета.

давай, не ленись, задание то у тебя - сам бы мог найти если бы не ленился)

а будут вопросы по коду - задавай

ЗЫ MS офис то купленный был?

@0810pavel · 26.03.2019, 12:30 **[ТС]**

qwertehok, Спасибо, большое. Все нашел. Попробую вставить в свою программу, точнее в комплекс программ службы в которой работаю.

Добавлено через 1 минуту
Puporev, На паперти никогда не стоял и не буду. Вы сам большой хам!!!!!

@Puporev · 26.03.2019, 12:36

Сообщение от 0810pavel

На паперти никогда не стоял и не буду.

Паперть это аллегория. Вы находитесь на форуме с протянутой рукой.

@D1973 · 26.03.2019, 17:42

Сообщение от 0810pavel

А нужно все это
из-за очень "умного" решения нашего примьера, отказаться от Windows и все что с ним связанное

0810pavel, Вы знаете, Delphi вообще и Delphi 7 в частности - это все просто гвоздями прибито к Windows! И если Вы ставите OpenOffice на Windows - ну это, по меньшей мере, странно - бесплатный линуксовый офисный пакет на платной (и, как правило, пиратской) ОС от МелкоМягких... Поэтому обратите внимание на Lazarus, который прекрасно работает и под Windows, и под Linux, а для Линуха ОпенОфис- родной офисный пакет... Если придется экстренно покидать винду - вариантов других не будет...

Не по теме:

И не надо этого апломба, который Вы проявили в посте #4 - ей богу, некрасиво... Пришли с вопросом, люди Вам дают ссылки, где можно почерпнуть информацию - а Вы что в ответ??? Найдите сами, все за меня сделайте и дайте мне халявы?!?!? Неправильная это политика...

@0810pavel · 28.03.2019, 14:01 **[ТС]**

D1973, Прочитал Ваше сообщение, долго не отвечал потому что, скачал Lazarus, установил. Если вы говорите, что когда надо будет покидать Windows альтернативы нет, не совсем согласен с Вами В Linux есть Wine. Поэтому оставив хотя-бы одну машину с Windows и Delphi можно будет сделать все в нормальной и привычной среде. А самое главное не переписывать целый комплекс программ для всей службы, в которой приблизительно 20 различных программ. Ну а насчет Lazarusа хочу вам сказать, что очень многого там просто нет, а некоторые вещи надо делать и иметь от этого очень большой геморой, как и все что касается перехода на Linux. Это я считаю не шажком, а целым десятилетием если не больше времени назад. Все таки нашему премьеру надо было хоть немного посоветоваться именно со специалистами, дать им время всесторонне изучить этот вопрос, хотя бы пару месяцев. Не все работают только с Wordом или с Excelом, Люди и их между прочим много, которые пишут программы под себя, под свою специфику, а поэтому переход будет для них весьма болезненным. А у некоторых из программы идет управление некоторыми приборами и механизмами.

Добавлено через 4 минуты
D1973, Да и еще забыл написать, что Вы знаете как подпрыгнули цены на лицензии Linux. За счет предприятий, все кто их продает, весьма обоготятся. Это Вы считаете правильно?

@krapotkin · 28.03.2019, 15:30

D1973, чот не понял немного
я на Libre Office сижу лет 10 а на Windows вообще всегда ))
что-то пошло не так ??? )))

@qwertehok · 28.03.2019, 16:07

Сообщение от 0810pavel

Поэтому оставив хотя-бы одну машину с Windows и Delphi

а делфи то вы купили?

Сообщение от 0810pavel

насчет Lazarusа хочу вам сказать, что очень многого там просто нет

так он бесплатный
что-то нужно - или создавай сам, или плати, или жди когда кто-то сделает бесплатно

Сообщение от 0810pavel

цены на лицензии Linux

это какие? которые Enterprise?

Не по теме:

Сообщение от 0810pavel

немного посоветоваться именно со специалистами

это кто специалисты? сначала напринимают родственников в начальник, потом на оставшуюся зп наберут джунов которые кроме винды ничего не знаю.

@0810pavel · 28.03.2019, 16:19 **[ТС]**

qwertehok, Да дельфи куплено,Windows у программистов стоит лицензионный, офис тоже. Лицензии на Linux Вы спрашиваете какие - стэковские с безопасностью. А вот бесплотно, Вы наверное слышали: что сыр бесплатный только в мышеловке. Вы такой преданный человек и не хотите понять, что все что предлагается сделать с Windows это огромный вред нанести свой стране!!!

@D1973 · 28.03.2019, 16:46

Не по теме:

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

что-то пошло не так ??? )))

Да нет, все так - но под Виндой... А вот лично я коснулся того, что приходится переходить с WinХР на какой-нибудь Линукс, т.к. более новую ОС от Microsoft комп не потянет... Вот и придется пытаться портировать под Lazarus те решения, что были в Delphi...

@Matan! · 28.03.2019, 16:50

0810pavel, что-то много демагогии от Вас.

И Вы не правы по отношению к Пупореву - в #3 у него был ответ не Вам, а qwertehokу.
По теме - Вам именно Writer нужен? Просто в Calc это удобнее... Вот работа с таблицами.

@D1973 · 28.03.2019, 16:53

Сообщение от 0810pavel

Это Вы считаете правильно?

Лицензия на Linux??? Да ну??? А как же их GNU???

@qwertehok · 28.03.2019, 17:09

Не по теме:

Сообщение от 0810pavel

Вы такой преданный человек и не хотите понять, что все что предлагается сделать с Windows это огромный вред нанести свой стране!!!

наоборот, вред уже нанесли когда все сели на винду и страна лет 10 не замечала этого
дети в школе, народ на работах - все сидели на винде и никто не задумывался что будет дальше
и вот в вин10 стала статистика литься в MS и сразу же поехал процесс переобувания
да будет больно и не приятно, а потому что раньше надо думать было

ЗЫ денег на всякие "отечественные ОС" распилено дофига, а толку 0

@krapotkin · 28.03.2019, 21:04

Не по теме:

бедный бедный мир. мужики и не знают, что такая опасность. и только молодая советская республика всегда в кольце врагов

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@0810pavel 0 / 0 / 0 Регистрация: 02.02.2017 Сообщений: 10
	26.03.2019, 11:50 [ТС]
	какая такая? Добавлено через 4 минуты Delphi 7, это написано в теме. А нельзя прямо процедуру тут привести, а не гонять по страницам инета. А насчет правильно или неправильно можно много и без толка разговаривать, но это с моей стороны совсем не правильно. Зачем делать шаг назад и использовать, то что было вчера. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.03.2019, 11:51
	0810pavel, Не хами, не нравится у нас, свободен. 0

@0810pavel 0 / 0 / 0 Регистрация: 02.02.2017 Сообщений: 10
	26.03.2019, 12:04 [ТС]
	Я значит не хами, а ответ: такая, это не хамство. Добавлено через 2 минуты Puporev, Я значит не хами, а ответ: такая, это не хамство. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.03.2019, 12:07
	Короче, я надеюсь Вы поняли что Вам уже никто не ответит по существу после Вашей не адекватной реакции. Учитесь грамотно стоять на паперти. 0

@0810pavel 0 / 0 / 0 Регистрация: 02.02.2017 Сообщений: 10
	26.03.2019, 12:30 [ТС]
	qwertehok, Спасибо, большое. Все нашел. Попробую вставить в свою программу, точнее в комплекс программ службы в которой работаю. Добавлено через 1 минуту Puporev, На паперти никогда не стоял и не буду. Вы сам большой хам!!!!! 0

@0810pavel 0 / 0 / 0 Регистрация: 02.02.2017 Сообщений: 10
	28.03.2019, 14:01 [ТС]
	D1973, Прочитал Ваше сообщение, долго не отвечал потому что, скачал Lazarus, установил. Если вы говорите, что когда надо будет покидать Windows альтернативы нет, не совсем согласен с Вами В Linux есть Wine. Поэтому оставив хотя-бы одну машину с Windows и Delphi можно будет сделать все в нормальной и привычной среде. А самое главное не переписывать целый комплекс программ для всей службы, в которой приблизительно 20 различных программ. Ну а насчет Lazarusа хочу вам сказать, что очень многого там просто нет, а некоторые вещи надо делать и иметь от этого очень большой геморой, как и все что касается перехода на Linux. Это я считаю не шажком, а целым десятилетием если не больше времени назад. Все таки нашему премьеру надо было хоть немного посоветоваться именно со специалистами, дать им время всесторонне изучить этот вопрос, хотя бы пару месяцев. Не все работают только с Wordом или с Excelом, Люди и их между прочим много, которые пишут программы под себя, под свою специфику, а поэтому переход будет для них весьма болезненным. А у некоторых из программы идет управление некоторыми приборами и механизмами. Добавлено через 4 минуты D1973, Да и еще забыл написать, что Вы знаете как подпрыгнули цены на лицензии Linux. За счет предприятий, все кто их продает, весьма обоготятся. Это Вы считаете правильно? 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	28.03.2019, 15:30
	D1973, чот не понял немного я на Libre Office сижу лет 10 а на Windows вообще всегда )) что-то пошло не так ??? ))) 0

@0810pavel 0 / 0 / 0 Регистрация: 02.02.2017 Сообщений: 10
	28.03.2019, 16:19 [ТС]
	qwertehok, Да дельфи куплено,Windows у программистов стоит лицензионный, офис тоже. Лицензии на Linux Вы спрашиваете какие - стэковские с безопасностью. А вот бесплотно, Вы наверное слышали: что сыр бесплатный только в мышеловке. Вы такой преданный человек и не хотите понять, что все что предлагается сделать с Windows это огромный вред нанести свой стране!!! 0

@Matan! 1882 / 1016 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	28.03.2019, 16:50
	0810pavel, что-то много демагогии от Вас. И Вы не правы по отношению к Пупореву - в #3 у него был ответ не Вам, а qwertehokу. По теме - Вам именно Writer нужен? Просто в Calc это удобнее... Вот работа с таблицами. 0

@krapotkin
	28.03.2019, 21:04
	Не по теме: бедный бедный мир. мужики и не знают, что такая опасность. и только молодая советская республика всегда в кольце врагов 0