Отправлено: 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

 Отправлено: 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

 Отправлено: 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

Спасибо, это работает так, как я хотел
приветствовать

 Отправлено: 18.03.15 19:52. Заголовок: Есть ли у вас та же..

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

 Отправлено: 18.03.15 20:29. Заголовок: Tadeusz пишет: для ..

Tadeusz пишет:

цитата:

для Open Office

https://github.com/harbour/core/blob/master/contrib/hbwin/tests/ole.prg