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.
