Solución:
No veo ninguna facilidad para hacer esto en la interfaz de usuario, pero puede hacerlo en código. Como de costumbre, hay muchos más pasos de los que me gustaría. En la parte inferior, ahora agregué algunos VBA para insertarlos en su plantilla Normal para aquellos que están familiarizados con eso.
Para VBA, no estoy seguro de que no necesite habilitar la pestaña Desarrollador, pero …
Abra su documento y habilite la Vista que desea cambiar (el ancho puede ser diferente para diferentes vistas).
Haga clic en Word-> Herramientas-> Macro-> Editor de Visual Basic.
Idealmente, intente organizar las ventanas de Word y VBE para que pueda hacer clic en ambas sin ocultar una u otra.
Si no puede ver una ventana titulada “Ventana inmediata” en el VBE, use Vista de VBE-> Ventana inmediata para mostrarla
Escriba lo siguiente en la ventana inmediata, o cópielo / péguelo desde aquí, y presione regresar / ingresar al final
?activewindow.view.revisionsballoonwidthtype
Creo que verá el valor “1” en la ventana Inmediato. Si es así, cambie el comando a lo siguiente (elimine el “?” Y agregue “= 0”)
activewindow.view.revisionsballoonwidthtype=0
y ejecutarlo
Luego cambie el comando a
activewindow.view.revisionsballoonwidth=10
(ponga el porcentaje que desee donde he puesto “10”) y ejecútelo.
Si realmente desea un ancho en puntos, ejecute
activewindow.view.revisionsballoonwidthtype=1
luego ejecutar
activewindow.view.revisionsballoonwidth=200
donde pones el ancho en puntos en lugar de “200”
Notas:
- cuando intenté cambiar el valor de ancho por primera vez, no funcionó. Parecía que primero tenía que modificar las revisionesballoonwidthtype, luego mi cambio “tomaría”. Pero tal vez hice algo mal en el camino.
- es posible que deba anteponer “ActiveWindow” por “ActiveDocument”. (sin las comillas) para que esto funcione.
FWIW Le daría el código de manzana equivalente, pero no puedo ver los nombres de propiedad equivalentes en el Diccionario de Word 2011.
Alternativamente, puede poner el siguiente código en un nuevo Módulo en su plantilla Normal (puede hacerlo en el Editor de VB). Cambie los valores de ancho en la parte superior por los que desee usar. Luego, con un documento en blanco (es decir, “basado en” Normal.dotm “, ejecute la rutina @@@. Esto debería arreglar normal.dotm y cambiar el comportamiento predeterminado en el futuro (¡creo!).
Sin embargo, también hay una rutina de AutoOpen en la que mayo necesita cambiar la configuración de los documentos existentes. No estoy seguro de que necesites esto. De lo contrario, elimine o cambie el nombre del sub AutoOpen. Si lo necesita, y ya tiene un AutoOpen en su Normal.dotm, deberá modificar su rutina existente, luego eliminar / cambiar el nombre de la mía.
En el camino, me di cuenta de que hay un ancho mínimo, que es lo que me llevó a pensar que los valores no estaban “tomando”. Pero, por ejemplo, establecer un ancho de 5%, 10%, 15% aquí tiene exactamente el mismo efecto, y necesito ir al 21% o algo así para aumentarlo. Word no informa el ancho eso ha establecido cuando inspecciona los valores: informa los anchos que intentó para configurar. Si quieres “el mínimo”, supongo que usar el valor “1” puede ser suficiente para puntos o porcentaje.
' 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
Para PC: para cambiar el ancho de la sección de comentarios en el lado derecho de su documento.
Para Word 2016, vaya a Revisar, en el cuadro Control de cambios, haga clic en la flecha inferior derecha, luego en el botón Opciones avanzadas y luego configure el ancho que prefiera. Cambié el mío a 2.5 “.