Manipulando arquivo word

[Wilson Pimenta 0]

Ola pessoal do forum.

 

Gostaria de saber se alguem poderia me ajudar no código abaixo uma vez que preciso substituir expressoes no word via ASP.

 

 

CÓDIGO:

 

<%Set objWord = Server.CreateObject("Word.Application")
 
DIM nome, perfil, arquivo, formacao, experiencia, objWord, cargos
Nome = ("codbarras")
arquivo = "e:\cod_asp\arquivostxt\teste2.doc"
 
 
objWord.Application.Documents.Add :\cod_asp\arquivostxt\teste2.doc"
 
With objWord.Application.Selection.Find
        .Text = "Nome:"
        .Replacement.Text = Nome
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    objWord.Application.Selection.Find.Execute
    objWord.Application.Selection = Nome
    
    If objWord.Application.Selection.Find.Forward = True Then
            objWord.Application.Selection.Collapse Direction:=wdCollapseStart
        Else
           objWord.Application.Selection.Collapse Direction:=wdCollapseEnd
        End If
           objWord.Application.Selection.Find.Execute Replace:=wdReplaceOne
        If objWord.Application.Selection.Find.Forward = True Then
           objWord.Application.Selection.Collapse Direction:=wdCollapseEnd
        Else
           objWord.Application.Selection.Collapse Direction:=wdCollapseStart
        End If
           objWord.Application.Selection.Find.Execute
    
        
    objWord.Application.Selection.Find.Replacement.ClearFormatting
    
    With objWord.Application.Selection.Find
        .Text = "Nome:"
        .Replacement.Text = Nome
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    objWord.Application.Selection.Find.Execute
    objWord.Application.Selection = Nome

If objWord.Application.Selection.Find.Forward = True Then
            objWord.Application.Selection.Collapse Direction:=wdCollapseStart
        Else
           objWord.Application.Selection.Collapse Direction:=wdCollapseEnd
        End If
           objWord.Application.Selection.Find.Execute Replace:=wdReplaceOne
        If objWord.Application.Selection.Find.Forward = True Then
           objWord.Application.Selection.Collapse Direction:=wdCollapseEnd
        Else
           objWord.Application.Selection.Collapse Direction:=wdCollapseStart
        End If
           objWord.Application.Selection.Find.Execute
     
        
        
    objWord.Application.Selection.Find.Replacement.ClearFormatting
 
 
 
objWord.Application.ActiveDocument.SaveAs Arquivo
 
objWord.Application.ActiveWindow.Close
Set objWord = nothing
%>

 

porém ao executar o código dá o erro abaixo

 

ERRO:

 

Microsoft VBScript compilation error '800a0400' 
Expected statement 
/cod_asp/csb/processo_t.asp, line 49 
objWord.Application.Selection.Collapse Direction:=wdCollapseStart-------------------------------------------------^

Se puderem me ajudar agradeceria muito uma vez que sou novo aqui no forum e estou começando a programar em ASP recetemente.

 

Muito Obrigado.

[Patrique 0]

Repare aqui

 

objWord.Application.Documents.Add :\cod_asp\arquivostxt\teste2.doc"

Outra é essa aqui

 

Nome = ("codbarras")

oque é esse codbarras? porque esta montado desta maneira? esta forma esta errada, arrume tb.

 

ta errado, arrume isso, teste e poste o resultado.

[xanburzum 169]

Isto é geralmente devido à utilização de uma instrução With em um servidor com uma versão mais antiga dos motores de script. Certifique-se que os motores de script mais recente em seu servidor, especificamente, sendo necessário apenas a versão 5.0. Ver o artigo # 2151 para informações sobre como obter as atualizações mais recentes.

 

 

o Collapse(Direction), Recolhe uma seleção seleção para a posição inicial ou final. Depois de uma seleção é recolhido, os pontos inicial e final são iguais. Direção pode ser wdCollapseStart (valor: 1) ou (valor: 0) wdCollapseEnd.

e olha este link

[Wilson Pimenta 0]

Obrigado pelos esclarecimentos abaixo, consegui fazer algumas alterações no código que resolveu meu problema.

Até hoje estava rodando tranquilamente sem nenhum problema, porém do nada começou a dar a seguinte mensagem de erro:

 

Server object error 'ASP 0177 : 80080005' 

Server.CreateObject Failed 

/cod_asp/csb/processo_t.asp, line 36 

Server execution failed 

que é exatamente na linha: Set objWord = Server.CreateObject("Word.Application")

 

Será que é alguma permissão ou atualização do Office?

Agradeço muito a ajuda de todos

 

Att

Wilson Pimenta

[xanburzum 169]

pode ter acontecido algum erro no server, pois ele nao conseguiu criar o objeto, e como ele ja estava funcionando normal, pode ser uma instabilidade no host, isso geralmente dá quando nao se tem o componente instalado no server, e reveja as permissões