Microsoft Word 2011 for Mac でコメント領域の幅を変更する方法

Question 1

ユーザーインターフェイスでこれを行うための機能は見つかりませんが、コードで実行できます。いつものように、必要な手順よりもはるかに多くの手順があります。下部に、通常のテンプレートに挿入するための VBA を追加しました。これは、VBA に精通している方向けです。

VBA の場合、[開発] タブを有効にする必要がないかどうかはよくわかりませんが...

ドキュメントを開き、変更するビューを有効にします (幅はビューによって異なる場合があります)。

Word -> ツール -> マクロ -> Visual Basic エディターをクリックします。

理想的には、Word ウィンドウと VBE ウィンドウを整理して、どちらか一方を非表示にすることなく両方をクリックできるようにします。

VBEで「イミディエイトウィンドウ」というタイトルのウィンドウが表示されない場合は、VBEの[表示]->[イミディエイトウィンドウ]を使用して表示します。

直接ウィンドウに次の内容を入力するか、ここからコピー/貼り付けして、最後にリターン/エンターを押します。

?activewindow.view.revisionsballoonwidthtype

イミディエイトウィンドウに値「1」が表示されると思います。その場合は、コマンドを次のように変更します (「?」を削除し、「=0」を追加します)。

activewindow.view.revisionsballoonwidthtype=0

そしてそれを実行する

次にコマンドを次のように変更します

activewindow.view.revisionsballoonwidth=10

(「10」と入力した部分に希望するパーセンテージを入力してください)、それを実行します。

実際にポイント単位で幅を知りたい場合は、

activewindow.view.revisionsballoonwidthtype=1

実行する

activewindow.view.revisionsballoonwidth=200

幅を「200」ではなくポイントで入力します

ノート：

最初に幅の値を変更しようとしたとき、うまくいきませんでした。最初に、revisionsballoonwidthtype を変更する必要があり、その後、変更が「有効」になったようです。しかし、途中で何か間違ったことをしたのかもしれません。
これを機能させるには、「ActiveWindow」の前に「ActiveDocument.」(引用符なし) を付ける必要がある場合があります。

ちなみに、同等の AppleScript を提供しますが、Word 2011 の辞書に同等のプロパティ名が見つかりません。

あるいは、次のコードを Normal テンプレートの新しいモジュールに挿入することもできます (VB エディターで実行できます)。上部の幅の値を使用したい値に変更します。次に、空白のドキュメント (つまり、Normal.dotm に基づく) で、@@@ ルーチンを実行します。これにより、normal.dotm 自体が修正され、将来のデフォルトの動作が変更されるはずです (私はそう思います)。

しかし、そこにはAutoOpenルーチンもあり、5月既存のドキュメントの設定を変更する必要があります。これが必要なのかどうかはわかりません。必要でない場合は、AutoOpen サブを削除するか、名前を変更します。必要な場合、Normal.dotm に既に AutoOpen がある場合は、既存のルーチンを変更してから、私のルーチンを削除/名前変更する必要があります。

途中で、最小幅があることに気付きました。そのため、値が「取得」されていないと考えていました。しかし、たとえば、ここで幅を 5%、10%、15% に設定してもまったく同じ効果があり、それを増やすには 21% などにする必要があります。Word は幅を報告しません。それ値を調べると、設定した幅が報告されます。試した設定します。「最小値」が必要な場合は、ポイントまたはパーセントのいずれかに値「1」を使用すれば十分だと思います。

' 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

Answer