FiveTech Software tech support forums

Ciao

I have a problem to write this line in a word file
oSel:TypeText("àèìòù")


I suppose it is a special character

How to solve it ?

Grazie

... line spacing between 2 lines in a Word file Example, to write in a Word file i do: oWord := CREATEOBJECT( "Word.Application" ) ... ... oSel = oWord:Selection ... ... oSel:Font:Size:=14 oSel:Font:Bold:=.t. oSel:Font:Color:=CLR_RED oSel:Font:name:="Nome Font" oSel:TypeText("Descrizione ...

... una riga e un'altra in un file Word? Ad esempio, per scrivere in file Word, io uso: oWord := CREATEOBJECT( "Word.Application" ) ... ... oSel = oWord:Selection ... ... oSel:Font:Size:=14 oSel:Font:Bold:=.t. oSel:Font:Color:=CLR_RED oSel:Font:name:="Nome Font" oSel:TypeText("Descrizione ...

... //AQUI: si estos estan omitidos, siempre quedarán abiertos los documentos * oWord:Quit() Function G_Francisco2() Local oWord, oSel, oDoc,cOrigen,cDestino,cFile,cSave, Nom1,rut1,naci1 local oActiveDoc,aArrReplace, n cOrigen := "C:\Desa\FichasWin\Doc\Doc_Bases\" cDestino ...

... this: In the word document I created the # qrcode #; I created the QRCode; QRCode ("test", cImage_QRCode) In the code I put like this: oSel: Find: Execute ("# qrcode #") oSel: InLineShapes: AddPicture (cImage_QRCode, .F., .T.) Printing is taking place at the tag location. ...

... que publico Antonio para el browse y anda de maravillas es asi: nOp++ (si sube) nOp-- (si baja) cMes := aMeses[nOp] oSay:SetText('MES: '+ cMes ) oSel := oTree:Scan( { | o | cMes $ o:cPrompt } ) oTree:Select( oSel ) el metodo Scan(bAction) del oTree te devuelve el objeto del branch correspondiente ...

Lucas,

lucasdebeltran wrote:oSel:InsertFile(HB_DIRBASE()+"LABEL-TEMPLATE.DOC")

oSel:InsertFile(HB_DIRBASE()+"LABELS-TEMPLATE.DOC")



EMG

Ciao EMG, una volta mi hai dato ottimi input per rimpiazzare variabili in foglio di Word tramite le funzioni: oSel:Range:Text = "Pluto..." oDoc:Range:insertAfter("pippo...") Non ricordo però di averti chiesto anche come fare per inserire un file immagine. Qualche ...

You have to pass oDoc too to WORDREPLACE() function so you can use it in the expression oDoc:StoryRanges[7] that you erroneously wrote as oSel:StoryRanges[7]. Please note that oSel is not equal to oDoc.

EMG

... of the funcion looks like : FUNCTION WORDREPLACERNGALL( oDoc, cSrc, cRpl ) My start of the function looks like : FUNCTION WORDREPLACE(oSel,cSrc,cRpl,cSrt) So my "oSel" = your "oDoc". I use "oSel" since "oWord" has already been used in the ...

Sorry, I meant "you have erroneously replaced oDoc with oSel":

It is not:

Code: Select all  Expand view

oSel:StoryRanges[7]

It must be:

Code: Select all  Expand view

oDoc:StoryRanges[7]

EMG

Please review my sample: you have erroneously replaced oWord with oSel.

EMG

... Enrico Maria" at the beginning of the file. How can one check to see if "<toreplace>" is in the document and only if it is, - WORDREPLACE( oSel, "<toreplace>", "Giordano Enrico Maria" ) FUNCTION WORDREPLACE( oSel, cSrc, cRpl ) LOCAL lOk oSel:Start = 0; oSel:End = -1 ...

WORDREPLACE( oSel, "<toreplace>", "Giordano Enrico Maria" ) oWord:Visible = .T. RETURN NIL FUNCTION WORDREPLACE( oSel, cSrc, cRpl ) oSel:Start = 0 oSel:End = -1 oSel:Find:Execute( cSrc ) oSel:Range:Text = cRpl RETURN NIL When ...

... 22) oTable:Cell( 1, 1 ):Range:InsertAfter( "Prova" ) oWord:ActiveDocument:Shapes:AddPicture( "mia.bmp", .F., .T., 0, 0, 50, 50 ) oSel = oWord:Selection oSel:Find:Execute( cSrc ) oSel:Range:Text = cRpl oDoc:PrintOut( .F. ) oWord:Visible = .T. oWord:WindowState = 1 ecc..,ecc.. ****************************** ...