Форум » [x]Harbour » Word c Minigui » Ответить

Word c Minigui

Tadeusz: Я хотел бы использовать в вашей программе файл 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

Haz: 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

Tadeusz: 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 Спасибо, это работает так, как я хотел приветствовать

Tadeusz: Есть ли у вас та же проблема кто-то помочь сохранить для Open Office ?


Haz: Tadeusz пишет: для Open Office https://github.com/harbour/core/blob/master/contrib/hbwin/tests/ole.prg



полная версия страницы