Главная страница
    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.008 c
15-1256486186
berlios
2009-10-25 18:56
2009.12.27
Задачка


15-1256681905
Германн
2009-10-28 01:18
2009.12.27
Мнемоника


4-1226246501
sqrttrqs
2008-11-09 19:01
2009.12.27
вывод изображения на печать


1-1231859045
Игорь_Залозных
2009-01-13 18:04
2009.12.27
DrawText и текст, который не вместился в прямоугольник


15-1256634915
{RASkov}
2009-10-27 12:15
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский