none
Conversao RRS feed

  • Pergunta

  • Preciso fazer a conversão de varios arquivos do office 2003 para o office 2007, sem causar problemas em imagens e figuras que existem no office 2003.

    Alguem sabe como fazer isso em lote ou seja varios arquivos de uma vez?

    sexta-feira, 11 de março de 2011 17:33

Respostas

Todas as Respostas

  • qual é a extensão desses arquivos?

    tem algo de VBA ou coisa do genero?

    post aqui um exemplo de problemas que voce encontrou.

    att


    Microsoft Certified Professional - Windows 2003 Server
    sexta-feira, 11 de março de 2011 18:45
  • DOC para DOCX, nao sei se me expressei corretamente, mas quero conveter varios arquivos DOC para DOCx de uma so vez.

    pois na empresa agora so usamos o office 2007

    nao tenho nada e nem sei com proceder.

    sexta-feira, 11 de março de 2011 22:07
  • Verifique esse link: http://www.ambienteoffice.com.br/word/converter_documentos_antigos_do_word_para_o_formato_novo/
    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    domingo, 13 de março de 2011 12:48
  • Muito bom o link, te agradeço

    Tenho apenas algumas duvidas:

    Em que formato eu salvo o codigo???

    No codigo de conversão ja esta definido que a conversao é de DOC para DOCx ??

     

     

    segunda-feira, 14 de março de 2011 12:46
  • Muito bom o link, te agradeço

    Tenho apenas algumas duvidas:

    Em que formato eu salvo o codigo???

    No codigo de conversão ja esta definido que a conversao é de DOC para DOCx ??

     

     


    Salvei o codigo abaixo com extensao .vbs

     

    Sub ConverterFormatoNovo()
       
        'Altere esse caminho para a pasta que contém os arquivos
        Const sCaminho = "H:\Sistemas\Danilo\Transcricoes\Livro 2-B"
       
        Dim fso As Object
        Dim fld As Object
        Dim fl As Object
        Dim ff As WdSaveFormat
        Dim doc As Document
       
        'Utiliza-se a técnica de Late Binding para criar o objeto fso
        Set fso = CreateObject("Scripting.FileSystemObject")
        Set fld = fso.GetFolder(sCaminho)
       
        For Each fl In fld.Files
            If Mid(fl.Name, Len(fl.Name) - 2, 3) = "doc" Then
                Set doc = Documents.Open(fl.Path)
                'O Documento contém macros?
                Select Case doc.HasVBProject
                    Case True
                        ff = wdFormatXMLDocumentMacroEnabled
                    Case False
                        ff = wdFormatXMLDocument
                End Select
                doc.SaveAs2 Mid(doc.FullName, 1, Len(doc.FullName) - 4), FileFormat:=ff
                doc.Close
            End If
        Next fl
       
    End Sub

    coloquei o arquivo dentro da ultima pasta no caso livro 2-B, mas deu erro de compilação
    na linha 6 caracter 13.

    Rodei em um servidor windows 2003 server.

    Como faço para corrigir o problema?

    segunda-feira, 14 de março de 2011 13:08
  • Linha 6 caractere 13? Não entendi.

     

    Você está tentando executar essa rotina dentro do Word?


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    segunda-feira, 14 de março de 2011 20:59
  • não, entrei no bloco de notas, colei o codigo acima e alterei o caminho, salvei com extensao .VBS, e tentei executar, ai deu o erro que citei acima
    segunda-feira, 14 de março de 2011 23:11
  • Olá,

    Essa rotina deve ser executada a partir de um documento do Word. Você deve colar o código num módulo de um Documento: http://www.ambienteoffice.com.br/officevba/modulos_em_vba/


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    terça-feira, 15 de março de 2011 04:58
  • Felipe, desculpe, porem fiz o seguinte:

    Abri um documento office 2007, alt+f11, colei o codigo, mandei executar ai pede pra mim gravar uma macro nova, fiz isso, mas nao acontece nada.

    Desculpe se estou perguntando demais, porem se puder me dar mais uma dica.

     

    quarta-feira, 16 de março de 2011 12:09
  • O Documento Office é, por acaso, um Documento do Word?

     

    Certifique-se de que o cursor intermitente (ao qual o texto é digitado) está entre as linhas do Procedimento ConverterFormatoNovo e execute a macro (pressionando F5, por exemplo).


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    quarta-feira, 16 de março de 2011 16:02
  • Peço aos amigos do forum  por um acaso puder fazer o procedimento, pois comigo nao funcionou.

    O Thread pode ser encerrado.

    Obrigado.

    quarta-feira, 16 de março de 2011 17:40
  • Olá Danilo.

    Não entendi o seu último post, o problema foi resolvido?

     

    Abraço.

     


    Richard Juhasz - Microsoft LATAM Forum Support Engineer
    http://www.forumguys.com.br
    sexta-feira, 25 de março de 2011 19:19
  • Pelo que foi passado nao foi resolvido
    sábado, 26 de março de 2011 12:47
  • Você está colocando o caminho correto?

     

    Baixe o exemplo pronto, que tem no fim da página do link que te mandei, experimente mudar apenas o caminho e execute a rotina.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    domingo, 3 de abril de 2011 19:48
  • Alguma novidade sobre este topico?
    Diego Piffaretti- www.mundotecnologico.net
    quinta-feira, 7 de abril de 2011 19:02
  • Gostaria de saber de o Danilo conseguiu resolver o problema. Fiz vários testes, e a rotina parece estar funcionando corretamente.
    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    quinta-feira, 7 de abril de 2011 19:06