Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ?activewindow.view.revisionsballoonwidthtype
- activewindow.view.revisionsballoonwidthtype=0
- activewindow.view.revisionsballoonwidth=10
- activewindow.view.revisionsballoonwidthtype=1
- activewindow.view.revisionsballoonwidth=200
- ' 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
Add Comment
Please, Sign In to add comment