
Estou escrevendo um relatório Microsoft Word 2011 for mac
usando a funcionalidade Comentário.
É possível redimensionar a largura da área de comentários?
Essa área é muito grande para minha preferência.
Atualizar
No meu painel de preferências "Rastrear alterações", não há opção que permita alterar a largura do painel de marcação.
Responder1
Não consigo ver nenhuma facilidade para fazer isso na interface do usuário, mas você pode fazer isso em código. Como sempre, há muito mais etapas do que eu gostaria. Na parte inferior, adicionei um pouco de VBA para inserção em seu modelo Normal para quem está familiarizado com isso.
Para VBA, não tenho certeza se você não precisa ativar a guia Desenvolvedor, mas...
Abra seu documento e habilite a Visualização que deseja alterar (a largura pode ser diferente para diferentes visualizações).
Clique em Word->Ferramentas->Macro->Editor Visual Basic .
O ideal é tentar organizar as janelas do Word e do VBE para poder clicar em ambas sem ocultar uma ou outra.
Se você não conseguir ver uma janela intitulada "Janela Imediata" no VBE, use Visualizar->Janela Imediata do VBE para exibi-la
Digite o seguinte na janela imediata ou copie/cole daqui e pressione Enter/Return no final
?activewindow.view.revisionsballoonwidthtype
Acho que você verá o valor "1" exibido na janela imediata. Nesse caso, altere o comando para o seguinte (exclua o "?" e acrescente "=0")
activewindow.view.revisionsballoonwidthtype=0
e executá-lo
Em seguida, altere o comando para
activewindow.view.revisionsballoonwidth=10
(coloque a porcentagem desejada onde coloquei "10") e execute-o.
Se você realmente deseja uma largura em pontos, execute
activewindow.view.revisionsballoonwidthtype=1
então execute
activewindow.view.revisionsballoonwidth=200
onde você coloca a largura em pontos em vez de "200"
Notas:
- quando tentei alterar o valor da largura pela primeira vez, não funcionou. Parecia que eu precisava modificar o revisionsballoonwidthtype primeiro, então minha alteração "pegaria". Mas talvez eu tenha feito algo errado ao longo do caminho.
- pode ser necessário prefixar "ActiveWindow" por "ActiveDocument". (sem as aspas) para que isso funcione.
FWIW, eu daria a você o applescript equivalente, mas não consigo ver os nomes das propriedades equivalentes no Dicionário do Word 2011.
Alternativamente, você pode colocar o seguinte código em um novo Módulo em seu modelo Normal (você pode fazer isso no Editor VB). Altere os valores de largura na parte superior para aqueles que você deseja usar. Então, com um documento em branco (ou seja, "baseado em" Normal.dotm), execute a rotina @@@. Isso deve corrigir o próprio normal.dotm e alterar o comportamento padrão no futuro (eu acho!).
No entanto, há também uma rotina AutoOpen que vocêpoderiaprecisa alterar as configurações dos documentos existentes. Não tenho certeza se você precisa disso. Caso contrário, exclua ou renomeie o sub AutoOpen. Se você precisar e já tiver um AutoOpen em seu Normal.dotm, precisará modificar sua rotina existente e, em seguida, remover/renomear a minha.
No caminho percebi que existe uma largura mínima, que foi o que me levou a pensar que os valores não estavam “pegando”. Mas, por exemplo, definir uma largura de 5%, 10%, 15% aqui tem exatamente o mesmo efeito, e preciso ir para 21% ou algo assim para aumentá-lo. Word não informa a larguraistodefiniu quando você inspeciona os valores - ele informa as larguras que vocêtestadopôr. Se você quiser "o mínimo", suponho que usar o valor "1" possa ser suficiente para pontos ou porcentagem.
' set your preferred measurement type and width here.
' NB, there seems to be a minimum anyway, but that may depend on things I have
' not looked at such as screen size and so on.
' The numbers Word reports are the numbers you have set, not the values
' it has actually set the width to.
'Const preferredBalloonWidthType As Integer = WdRevisionsBalloonWidthType.wdBalloonWidthPoints
'Const preferredBalloonWidth As Single = 300
Const preferredBalloonWidthType As Integer = WdRevisionsBalloonWidthType.wdBalloonWidthPercent
Const preferredBalloonWidth As Single = 25
Sub autoopen()
Call changeBalloonSettings
End Sub
Sub changeBalloonSettings()
With ActiveWindow.View
.RevisionsBalloonWidthType = preferredBalloonWidthType
.RevisionsBalloonWidth = preferredBalloonWidth
' debug check
'If .RevisionsBalloonWidthType = WdRevisionsBalloonWidthType.wdBalloonWidthPercent Then
' MsgBox "Percent: " & .RevisionsBalloonWidth
'Else
' MsgBox "Points: " & .RevisionsBalloonWidth
'End If
End With
End Sub
Sub fixupNormaldotm()
' Sets the Normal template to have the settings we would like
' for future documents
' to run this, start word and ensure that a single blank doument,
' based on Normal.dotm, is open (this is by default what you get
' when you start the Word application without e.g. double-clicking
' on a doument in Finder)
Dim d As Word.Document
Dim t As Word.Template
Set t = ActiveDocument.AttachedTemplate
Set d = Documents.Open(t.FullName)
' autoopen should run, so that's all we need. If you removeed
' autoopen, uncomment the following line:
call changeBalloonSettings
d.Save
d.Close
Set d = Nothing
Set t = Nothing
End Sub
Responder2
Para PCs: Para alterar a largura da seção de comentários no lado direito do documento.
Para o Word 2016, vá para Revisão, na caixa Acompanhar alterações, clique na seta inferior direita, depois no botão Opções avançadas e defina a largura de sua preferência. Mudei o meu para 2,5".