Estou utilizando o Hmg 3.2 para fazer meu trabalho e gostaria que alguem se possivel desse uma ajuda.
Eu monto um DBF com todos os dados que preciso EX. Nome, Idade, estado civil, etc
E Tenho varios arquivos no Word para determinados problemas que interpretam estes dados e montam o documento.
Abro o documento pelo Word o mesmo reconhece o dbf, interpreta os dados e monta o documento sem problema.
Ate ai esta otimo não preciso de nada. :))
O problema veem agora :'(
Eu resolvi usar o programa para abrir o documento direto, Ele abre o diretorio, eu escolho o documento, ele abre o documento no Word.
x := Getfile ( { {'All Files','*.Doc'} } , 'Abrir Arquivos' , 'C:\ADMI2\DOC\'+RTRIM(LEFT(cUsuario,8))+'\' , .F. , .T. )
IF !Empty(x)
MsWord( x )
ENDIF
PROCEDURE MsWord( x )
LOCAL oWord
oWord := CreateObject( "Word.Application" )
oWord:Visible := .T.
oWord:WindowState := 1
oWord:Documents:Open( x )
RETURN
Mas não consigo fazer ele encontrar o dbf para interpretar os campos. Alguém pode me dar uma dica
ja tentei usar assim
* pega a fonte de dados : MontaEdt.dbf
oWord:MailMerge:OpenDataSource('C:\ADMI2\DOC\'+RTRIM(LEFT(cUsuario,8))+'\'+'MontaEdt.DBF')
LinkToSource:= .T.
Connection:="TABLE MontaEdt"
SQLStatement:= "Select * from [ 'C:\ADMI2\DOC\'+RTRIM(LEFT(cUsuario,8))+'\'+'MontaEdt.DBF' ]"
* Executa a mala direta
oWord:MailMerge:Execute
e nada feito