o que significa esse erro?

[Sistem]

que erro é esse?

Code: Select all  Expand view

Descrição detalhada do erro
---------------------------
   Error Word.Application:DOCUMENTS/9  'Item' não é uma propriedade.: ADD
   Parameter   :

Stack-List
----------
   chamado por TOLEAUTO:ADD(0)
   chamado por CONVERTTOWORDDOC(1904)
   chamado por TPREVIEW:SAVEAS(1808)
   chamado por (b)TPREVIEW:TPREVIEW(50)
   chamado por (b)TPREVIEW:SAVEASMENU(1738)
   chamado por TMENU:ACTIVATE(1582)
   chamado por TBTNBMP:LBUTTONUP(934)
   chamado por TCONTROL:HANDLEEVENT(1721)
   chamado por TBTNBMP:HANDLEEVENT(1909)
   chamado por _FWH(3368)
   chamado por WINRUN(0)
   chamado por TMDIFRAME:ACTIVATE(1043)
   chamado por MAIN(526)
 

[karinha]

'Item', existe mesmo? Word 9?

Code: Select all  Expand view

( "Word.Application.8" )   // Para versão 8
( "Word.Application.10" ) // Para versão 10
( "Word.Application.11" ) // Para versão 11
 

Abs.

[Sistem]

karinha sempre recebo esse erro de um cliente ou de vários clientes não lembro.
karinha como assim existe mesmo? não entendi

[karinha]

karinha sempre recebo esse erro de um cliente ou de vários clientes não lembro.
karinha como assim existe mesmo? não entendi

CONVERTTOWORDDOC(1904) // ??? O que tem nesta área?

De onde vem este "item" e qual é versão do word? talvez uma simples atualização, resolva.

[Sistem]

acredito que o CONVERTTOWORDDOC seja da classe TPREVIEW. esse erro acontece quando clica em exportar para word(acho) no preview do relatório

[karinha]

Verifique, se o RPREVIEW.PRG, é desta versão do FWH que usas. Verifique se o Word.exe está instalado e qual é a versão do word.exe.

Verifique se é windows de 64 bits e se for, verifique o caminho(path) do Word.exe no windows de 64 bits. Pode ser isto.

Abs.

Saludos - saudações.

[karinha]

Code: Select all  Expand view

function ConvertToWordDoc( oPreview )

   local aFiles   := oPreview:oDevice:aMeta
   local oWord, oDoc, cEMF

   if Len( aFiles ) > 0
      if ( oWord := WinWordObj() ) == nil
         lWord    := .f.
         MsgAlert( FWString( "MS Word not installed" ), FWString( "Alert" ) )
         oDoc = ToWordDocViaWriter( oPreview, aFiles, "W" )
      else
         lWord    := .t.
         oDoc = oWord:Documents:Add()
         if oDoc == nil
            MsgAlert( FWString( "Failed to Create Word Document" ), FWString( "Alert" ) )
         else
            oDoc:PageSetup:Orientation := If( oPreview:oDevice:GetOrientation() == 1, 0, 1 )
            WITH OBJECT oDoc:PageSetup
               :LeftMargin    := 0
               :TopMargin     := 0
               :RightMargin   := 0
               :BottomMargin  := 0
            END
            for each cEMF in aFiles
               oWord:Selection:InlineShapes:AddPicture( cEMF, .f., .t. )
            next
            // oDoc:Application:Visible   := .t.
         endif
      endif
   else
      MsgAlert( FWString( "There is no output for export" ), FWString( "Alert" ) )
   endif

return oDoc