WORD

CARLINHOS.SONEG 22/05/2013 11:25:13
#423847
Pessoal estou quase louco de tantos bugs que aparecem do nada, faço essa rotina abaixo na minha maquina e na de mais uns 15 funciona normal sendo offices variado desde 2003 até o 2010 (32 e 64 bits), mas na maquina de uma bendito a rotina abre o arquivo normal mas não executa a troca e nem da erro nenhum simplesmente não faz nada o office dele é 2010, me ajudem.... (abaixo o trecho com problema)

Dim OBJ_WORD2 As Object
Set OBJ_WORD = GetObject(, [Ô]word.application[Ô])
OBJ_WORD.Documents.Open [Ô]c:\Teste.doc[Ô]
OBJ_WORD.Selection.Find.Forward = True
OBJ_WORD.Selection.Find.Text = [Ô]@BASES_0[Ô]
OBJ_WORD.Selection.Find.Wrap = wdFindContinue
OBJ_WORD.Selection.Find.Format = True
OBJ_WORD.Selection.Find.MatchCase = False
OBJ_WORD.Selection.Find.MatchWholeWord = False
OBJ_WORD.Selection.Find.MatchWildcards = False
OBJ_WORD.Selection.Find.MatchSoundsLike = False
OBJ_WORD.Selection.Find.MatchAllWordForms = False
OBJ_WORD.Selection.Find.Replacement.Text = [Ô][Ô]
OBJ_WORD.Selection.Find.Execute

OBJ_WORD.Selection.typetext Text:=[Ô]texto_da_base_relatorio[Ô]
MARCELO.TREZE 22/05/2013 16:58:19
#423884 Resposta escolhida
Acredito que esteja fazendo isso no vb6, se sim vc alterou a referencia

ou seja: Projects / references e selecionar Microsoft Word 14.0 object library
CARLINHOS.SONEG 23/05/2013 07:08:48
#423914
Não amigo eu não uso referencia justamente para evitar problemas de versão do office, esse erro parece ser outra coisa, tipo alguma coisa no word que bloqueia o acesso via DDE....
MARCELO.TREZE 23/05/2013 08:14:16
#423916
experimenta então reinstalar o office dele, pois é meio complicado a sua situação, um avez que não apresenta nenhuma mensagem.

já depurou o código acompanhando passo a passo o que ocorre?
Tópico encerrado , respostas não são mais permitidas
Voltar