EXPORTACAO PARA WORD
E digo mais, pelo que pesquisei este erro "5174" significa que o arquivo que vc está tentando abrir não está sendo encontrado.
Então verifique se o caminho do arquivo .DOC que está tentando abrir realmente existe.
Então verifique se o caminho do arquivo .DOC que está tentando abrir realmente existe.
pelo menos no meu exemplo esse erro que o MARCELOHF comentou é verdade , sempre aparece esse erro quando o doc esta no desktop envez da pasta meus documentos
Amigos, ja coloquei o doc. no caminho correto, agora esta gerando um outro erro.
[txt-color=#ff0000]Erro Nº: 424[/txt-color]
Alguem sabe me informar o pq desse erro?
Vlw!
[txt-color=#ff0000]Erro Nº: 424[/txt-color]
Alguem sabe me informar o pq desse erro?
Vlw!
424 - Object Required
Vc está usando algum objeto no seu código que não existe. Quando digo objeto falo que pode ser algum controle do seu form, algum objeto do Word criado que vc digitou com nome errado, algo do tipo.
Ainda aconselho a tirar o tratamento de erro e verificar qual é efetivamente a linha que o mesmo ocorre.
Vc está usando algum objeto no seu código que não existe. Quando digo objeto falo que pode ser algum controle do seu form, algum objeto do Word criado que vc digitou com nome errado, algo do tipo.
Ainda aconselho a tirar o tratamento de erro e verificar qual é efetivamente a linha que o mesmo ocorre.
o modo mais façil é você inserir um campo texto e preencher este campo pelo vb
No MEnu do Word Exibir\Barra de Ferramenta\Formulários
Insira um campo Texto
No VB faça referencia ao WORD instalado na sua máquina
dim WordAberto as Boolean
Para abrir o documento do word
If WordAberto = False Then
Set DocWord = New Word.Application (abre uma estancia do word)
Else
Set DocWord = GetObject(, "Word.Application") (Qdo word já está aberto)
End If
With DocWord
.Documents.Open App.Path & ("\ArquivodoWord.doc")
end with
Para Preencher o campo do Word
With DocWord.ActiveDocument
.FormFields("NomedocampoTextodoWord").Result = "CpodoFormdoVBouTabela"
End With
No final do procedimento
Set DocWord=Nothing
essa maneira serve tanto para preencher campos em doc como para criar um doc a partir do zero de dentro do VB. é só usar a imaginação
Obs. o exemplo do macoratti funciona sim, mas tem que fazer algumas pequenas alterações e não pode esquer da referencia
No MEnu do Word Exibir\Barra de Ferramenta\Formulários
Insira um campo Texto
No VB faça referencia ao WORD instalado na sua máquina
dim WordAberto as Boolean
Para abrir o documento do word
If WordAberto = False Then
Set DocWord = New Word.Application (abre uma estancia do word)
Else
Set DocWord = GetObject(, "Word.Application") (Qdo word já está aberto)
End If
With DocWord
.Documents.Open App.Path & ("\ArquivodoWord.doc")
end with
Para Preencher o campo do Word
With DocWord.ActiveDocument
.FormFields("NomedocampoTextodoWord").Result = "CpodoFormdoVBouTabela"
End With
No final do procedimento
Set DocWord=Nothing
essa maneira serve tanto para preencher campos em doc como para criar um doc a partir do zero de dentro do VB. é só usar a imaginação
Obs. o exemplo do macoratti funciona sim, mas tem que fazer algumas pequenas alterações e não pode esquer da referencia
Ta dando um erro de dll agora.
[txt-color=#ff0000]Run-time error '48':
Error in loading DLL[/txt-color]
Alguem por favor?
Vlw!
[txt-color=#ff0000]Run-time error '48':
Error in loading DLL[/txt-color]
Alguem por favor?
Vlw!
ta dando erro na linha:
Set ObjWord = New Word.Application
[txt-color=#ff0000]Run-time error '48':
Error in loading DLL[/txt-color]
Set ObjWord = New Word.Application
[txt-color=#ff0000]Run-time error '48':
Error in loading DLL[/txt-color]
ta dando erro na linha:
Set ObjWord = New Word.Application
[txt-color=#3333ff]Run-time error '48':
Error in loading DLL[/txt-color]
Set ObjWord = New Word.Application
[txt-color=#3333ff]Run-time error '48':
Error in loading DLL[/txt-color]
Alguem!?!? Por favor...
Esse eh o codigo que estou usando:
O erro aparece na linha em azul:
[txt-color=#ff0000]Referencia do Word:
Microsoft Word 10.0 Object Library[/txt-color]
Por favor... alguem me ajuda a identificar o erro e corrigir!
O erro aparece na linha em azul:
[txt-color=#ff0000]Referencia do Word:
Microsoft Word 10.0 Object Library[/txt-color]
Private Sub cmdContrato_Click()
Dim temp As String
'On Error GoTo trata_erro
[txt-color=#3333ff]Set ObjWord = New Word.Application[/txt-color]' Desabilita o botao de comando
CmdContrato.Enabled = False
' nome do relatorio pré montado
ObjWord.Documents.Open ("c:\gcs\SGC.doc")
' chama rotina para substituicao
Call Substitui_Var("@data", TxtData)
Call Substitui_Var("@vob", CmbVob)
Call Substitui_Var("@view", TxtView)
Call Substitui_Var("@versao", TxtVersao)
Call Substitui_Var("@informacao", TxtInformacao)
' Salva o documento com um novo nome
ObjWord.ActiveDocument.SaveAs TxtContrato [txt-color=#006600]'(neste caso estou usando um nome diferente do inicial SGC.doc)[/txt-color]
'Encerra o word
ObjWord.Quit
' informa ao usuario que o contrato foi gerado
MsgBox " gerado com sucesso! em : " & TxtContrato, vbInformation, " Contrato Gerado "
' libera memoria
Set ObjWord = Nothing
Exit Sub
'trata_erro:
'MsgBox "Ocorreu um erro durante o processamento " & " - Erro numero : " & Err.Number
End SubPor favor... alguem me ajuda a identificar o erro e corrigir!
Tópico encerrado , respostas não são mais permitidas