Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.12.27;
Скачать: [xml.tar.bz2];

Вниз

MS Word 2000 - Работа с копированием текста.   Найти похожие ветки 

 
Kostas ©   (2009-11-10 06:05) [0]

Здравствуйте, уважаемые мастера.

Опишу свою проблему - есть 2 MS Word документа. Один шаблон (WA1), другой с информацией для выборки (WA2) . Каким образом можно выбрать текст по определенному условию (есть начальный и конечный тег в тексте) из WA2 и скопировать его в WA1? Возможно ли это, используя метод selection или какой-либо другой метод? На данный момент эту задачу я решил через цикл побуквенным сравнением, но это очень громоздко и медленно, текста в WA2 много. Если есть идеи - напишите, буду очень благодарен.


 
KilkennyCat ©   (2009-11-10 09:57) [1]

отказаться от вордовского формата.


 
Kostas ©   (2009-11-10 10:19) [2]

Уважаемый, KilkennyCat - не получиться. Документ приходит ко мне в word формате. С отчетами в Excel проблем никаких нет, но тут все сложнее.


 
KilkennyCat ©   (2009-11-10 14:56) [3]

А уходит в каком?


 
KilkennyCat ©   (2009-11-10 14:57) [4]

Я имел ввиду наличее тех же ограничений на выход, они есть?


 
Kostas ©   (2009-11-11 04:07) [5]

На выходе должен быть обязательно текстовый файл, не Excel.

С выходом проблем нет, самая большая проблема именно с входным файлом, выборка определенных строк по условию. Хотя бы скажите возможно ли это вообще с помощью метода selection.


 
Анна   (2009-11-11 09:29) [6]

ExportSource:=CreateOleObject("Word.Application");
ExportSource.Documents.Add(path_dot+"\aaa.dot");
ExportSource.Selection.Find.Text:=trim(Q_marker.FieldByName("name_marker").Asstr ing);
ExportSource.Selection.Find.Replacement.Text:=trim(Q_dot.FieldByName(trim(Q_mark er.FieldByName("pole_table").Asstring)).Asstring);
ExportSource.Selection.Find.Execute(Replace:=2);

Находит и заменяет быстро и на больших документах.


 
Kostas ©   (2009-11-11 09:57) [7]

Анна, благодарю за ваше внимание, но то что вы написали очень просто и совсем не то что надо. Задачи поиска и замены нет, нужно выделить область в тексте (как-будто бы мы выделили мышкой текст), скопировать его и вставить в другой документ.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.12.27;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.051 c
4-1225560998
POP
2008-11-01 20:36
2009.12.27
Добраться до PortName, через SetupAPI.


1-1230135789
du_hast
2008-12-24 19:23
2009.12.27
Нужно получить кол-во Chart-ов в текущем Excel Sheet-е


15-1256765411
Юрий
2009-10-29 00:30
2009.12.27
С днем рождения ! 29 октября 2009 четверг


2-1257532084
Незнайка
2009-11-06 21:28
2009.12.27
вызов KeyPress


2-1257285507
Jaroslight
2009-11-04 00:58
2009.12.27
Вызов диалога настроек печати





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский