none
Problemas de compatibilidade World 2010 para 2013 RRS feed

  • Pergunta

  • Recentemente tive que atualizar a versão do Word, e infelizmente todos os modelos que funcionavam perfeitamente, com a troca do 2010 para o 2013 se tornaram extremamente lerdos e em alguns casos botões, que utilizo para imprimir simplesmente param de funcionar, não sei se alguém passou por dificuldade similar, mas não encontrei nada a respeito do que poderia ser.

    Utilizo nos modelos diversos FormFields e no Word 2010 replicava o conteúdo dos campos utilizando Ctrl + F9 --> ex: {REF  AE1c  \* Charformat}, isso era extremamente rápido do Word 2010, talvez pela quantidade de campos isso se tornou extremamente lerdo no Word 2013, praticamente inutilizou os modelos. Consegui contornar isso no Word 2013 utilizando mapeamento xml e usando os novos tipos de FormFields.

    Mas o porque dos botões desabilitarem após certo tempo de uso do modelo, esta além de meus conhecimentos, assim eles funcionam, mas depois de certo tempo, não consigo clicar neles o mouse fica em modo de seleção de texto quando coloco em cima do botão, tenho que fechar o documento e abrir novamente o modelo para poder clicar nos botões e utilizar o script de impressão.

    Além dos códigos que citei acima utilizando o Ctrl + F9, utilizo alguns scripts no VBA, segue abaixo um exemplo de script que utilizo para imprimir:

    Private Sub ImprimirT8_Click()
        Application.Run MacroName:="Macro2Print8T"
    End Sub
    Sub Macro2Print8T()
    On Error Resume Next
    If ActivePrinter = "Xerox Phaser 3500 PS" Then
        ActivePrinter = "Xerox Phaser 3500 PS"
        Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
            wdPrintDocumentWithMarkup, Copies:=1, Pages:="s38-s39", PageType:= _
            wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
            PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
            PrintZoomPaperHeight:=0
    ElseIf ActivePrinter <> "Xerox Phaser 3500 PS" Then
       ActivePrinter = "Samsung SCX-6x55 Series PCL6"
        Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
            wdPrintDocumentWithMarkup, Copies:=1, Pages:="s38-s39", PageType:= _
            wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
            PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
            PrintZoomPaperHeight:=0
    End If
    End Sub

    Agradeço antecipadamente qualquer ajuda com a questão.

    sexta-feira, 30 de janeiro de 2015 15:51

Todas as Respostas

  • Boa noite Gabardo,

    seu código precisará ser reescrito para ficar de acordo com a nova versão, não sou programador mas a versão 2010 e 2013 são diferentes, por isso o comportamento não está como o esperado.

    abs

    domingo, 8 de fevereiro de 2015 03:40
  • Assim, pensei nisso também.. mas utilizando a função de gravar macro que vem com o Word verifiquei que não houve modificações nesse código em questão, e o código funciona. 

    O problema é que após algum tempo os botões "desabilitam", se abrir o VBA e clicar em Executar Sub/UserForm o código roda normalmente, é apenas o botão que para de ser "clicável".

    abs


    • Editado Gabardo 2015 sexta-feira, 20 de fevereiro de 2015 17:52 correção
    sexta-feira, 20 de fevereiro de 2015 17:51