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

Вниз

HTML & DOC.   Найти похожие ветки 

 
Ahmad K   (2003-12-01 18:45) [0]

Мастера и подмастерья!
Возникла такая задача, рано или поздно она песещает всех, вот и до меня дошло. Проблема в том что приходиться печатать много документов в формате .doc черех MS Word, причем текст в них почти одинаковый за исключением некоторых изменений в определенных местах текста (например вставить иной номер документа, дату и т.д.). Делать это открывая каждый раз все документы и меняя их не совсем удобно.
Я лично решил переводить документы в формат html, вносить через WebBrouse в опреденные места текст, сохранять и отпечатывать.
Мне очень интересно есть ли возможность работы напрямую с форматом .doc и можно ли вносить изменения в документы прямо из программы?
С уважением,


 
Думкин   (2003-12-01 18:56) [1]

Можно. OLE.


 
me   (2003-12-01 20:15) [2]

Я использую RTF для хранения, для представления "некоторых изменений в определенных местах текста" использую свои теги вида <#table.field> (данные берутся из БД) и парсер TCopyParser, который эти теги перед выводом "расширяет". Вместе с RichEdit для просмотра получается намного более "легкое" решение. И нет проблем с лицензионной чистотой (офис стоит денег)


 
Labert   (2003-12-01 21:03) [3]

Сам пока не делал, но идея такая возникла: делать документ вручную, а потом в нужные места вставить Bookmarks - есть такие штуки в ворде. А потом программно эти закладки искать, вставлять в них нужный текст и сохранять документ. Через OLE, естественно.


 
MagaSoft   (2003-12-01 22:18) [4]

Я просмотрел примеры "демосы" которые поставляются вместе с делфи, и обнаружил несколько прог показывающих работу с вордом, обе работают на WordObject"e, но я там не нашел фукций поиска и вставления текста в определенное место. Может кто сталкивался?


 
MagaSoft   (2003-12-01 22:19) [5]


> Я использую RTF для хранения, для представления "некоторых
> изменений в определенных местах текста" использую свои теги
> вида <#table.field> (данные берутся из БД) и парсер TCopyParser,
> который эти теги перед выводом "расширяет". Вместе с RichEdit
> для просмотра получается намного более "легкое" решение.
> И нет проблем с лицензионной чистотой (офис стоит денег)

Может расскажете поподробнее, а еще лучше примерный код, я что-то не понял.


 
MagaSoft   (2003-12-01 22:21) [6]


> Сам пока не делал, но идея такая возникла: делать документ
> вручную, а потом в нужные места вставить Bookmarks - есть
> такие штуки в ворде. А потом программно эти закладки искать,
> вставлять в них нужный текст и сохранять документ. Через
> OLE, естественно.

В том-то и проблема как их искать и вставлять на их место текст пока не понятно.


 
Maxud   (2003-12-01 22:33) [7]


> MagaSoft © (01.12.03 22:18) [4]

Эту ф-цию добавь в TWordObject.
procedure TWordObject.Replace(FindStr, ReplaceStr: string);
var f, r, mc, mww, mwc, msl, maf,
fwd, w, fmt, rw: OleVariant;
begin
with FWordApp do
begin
With Selection.Find do
begin
ClearFormatting;
Replacement.ClearFormatting;
fwd := True;
w := wdFindContinue;
fmt := False;
mc := False;
mww := False;
mwc := False;
msl := False;
maf := False;
f := FindStr;
rw := ReplaceStr;
r := wdReplaceAll;
Execute(f, mc, mww, mwc, msl, maf, fwd, w, fmt, rw, r);
end;
end;
end;

P.S.А вообще в справке по VB смотри.



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

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

Наверх





Память: 0.46 MB
Время: 0.349 c
3-36530
Mic_2000
2003-11-18 00:39
2003.12.12
Динамические колонки в хранимых процедурах на IB7.1


1-36721
TUser
2003-12-01 16:16
2003.12.12
jedi&gif


3-36534
st_av
2003-11-21 01:58
2003.12.12
Описание EhLib


1-36617
frost
2003-12-01 14:31
2003.12.12
Beep при нажатии на клавишу?


8-36767
Zorik
2003-08-14 11:10
2003.12.12
как отобразить 3D карту поверхности





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский