Автор | Сообщение |
|
| |
Пост N: 3
Зарегистрирован: 01.06.13
|
|
Отправлено: 15.03.15 15:55. Заголовок: Word c Minigui
Я хотел бы использовать в вашей программе файл Microsoft Word, и найти кусок текста и заменить его другим текстом или переменной.Программный код прилагается - но это не работает. Что я делаю не так. Может кто-то пожалуйста, помогите мне. С уважением Тедди. #define wdFindContinue 1 #define wdReplaceAll 2 function MAIN() local kolor, cdoc:="",data:=DtoC(date()), mnrdecyz:="111.2015" LOCAL oWord, oSelect //oWord:=TOleAuto():New( "Word.Application" ) oWord := CreateObject( "Word.Application" ) cDoc := "d:\praca\proj_new\Demo.dotx" oWord:Documents:Open(cDoc) oSelect:=oWord:Selection() oWord:Visible := .T. oWord:WindowState := 1 // Maximizado // oWord:ActiveDocument:SaveAs('d:\praca\proj_new\decyzja.docx') MSWord_Replace(oWord, "{maktualna_data}", data) MSWord_Replace(oWord, "{dr_adres[1]}", "tadek") MSWord_Replace(oWord, "{dr_adres[2]}", "nalewajka") MSWord_Replace(oWord, "{dr_adres[3]}", "kluczbork") MSWord_Replace(oWord, "{mnrdecyz}", mnrdecyz) //oWord:Visible := .T. //oWord:WindowState := 1 // Maximizado Return nil PROCEDURE MSWord_Replace(oWord, cFind, cReplace) LOCAL oFind oFind := oWord:Selection:Find oFind:ClearFormatting() oFind:Text := cFind oFind:Replacement:Text := cReplace oFind:Forward := .T. oFind:Wrap := wdFindContinue oFind:Format := .F. oFind:MatchCase := .F. oFind:MatchWholeWord := .T. oFind:MatchWildcards := .F. oFind:MatchSoundsLike := .F. oFind:MatchAllWordForms := .F. msginfo(cfind) msginfo(creplace) oFind:Execute() //oFind:Execute(Replace := wdReplaceAll) RETURN
|
|
|
Ответов - 4
[только новые]
|
|
|
| |
Пост N: 492
Зарегистрирован: 20.02.11
|
|
Отправлено: 16.03.15 13:10. Заголовок: Tadeusz пишет: Что ..
Tadeusz пишет: PROCEDURE MSWord_Replace(oWord, cFind, cReplace) With object oWord:Selection:Find :ClearFormatting() :Execute(cFind,0,0,0,0,0,1,1,0,cReplace,wdReplaceAll) :ClearFormatting() END RETURN
|
|
|
|
| |
Пост N: 4
Зарегистрирован: 01.06.13
|
|
Отправлено: 16.03.15 22:57. Заголовок: Haz пишет: PROCEDUR..
Haz пишет: цитата: | PROCEDURE MSWord_Replace(oWord, cFind, cReplace) With object oWord:Selection:Find :ClearFormatting() :Execute(cFind,0,0,0,0,0,1,1,0,cReplace,wdReplaceAll) :ClearFormatting() END RETURN |
| Спасибо, это работает так, как я хотел приветствовать
|
|
|
|
| |
Пост N: 5
Зарегистрирован: 01.06.13
|
|
Отправлено: 18.03.15 19:52. Заголовок: Есть ли у вас та же..
Есть ли у вас та же проблема кто-то помочь сохранить для Open Office ?
|
|
|
|
| |
Пост N: 494
Зарегистрирован: 20.02.11
|
|
Отправлено: 18.03.15 20:29. Заголовок: Tadeusz пишет: для ..
|
|
|
|