Tôi không thể thấy bất kỳ cơ sở nào để thực hiện việc này trong Giao diện người dùng, nhưng bạn có thể thực hiện bằng mã. Như thường lệ, có rất nhiều bước hơn tôi muốn. Ở phía dưới, bây giờ tôi đã thêm một số VBA để chèn vào mẫu Bình thường của bạn cho những người quen thuộc với điều đó.
Đối với VBA, không hoàn toàn chắc chắn rằng bạn không cần bật tab Nhà phát triển, nhưng ...
Mở tài liệu của bạn và bật Chế độ xem mà bạn muốn thay đổi (chiều rộng có thể khác nhau cho các chế độ xem khác nhau).
Bấm Word-> Công cụ-> Macro-> Trình soạn thảo Visual Basic.
Tốt nhất, hãy cố gắng sắp xếp các cửa sổ Word và VBE để bạn có thể nhấp vào cả hai mà không ẩn cái này hay cái kia.
Nếu bạn không thể thấy cửa sổ có tiêu đề "Cửa sổ ngay lập tức" trong VBE, hãy sử dụng Chế độ xem của VBE-> Cửa sổ ngay lập tức để hiển thị cửa sổ
Nhập nội dung sau vào Cửa sổ ngay lập tức hoặc sao chép / dán từ đây và nhấn return / enter ở cuối
?activewindow.view.revisionsballoonwidthtype
Tôi nghĩ bạn sẽ thấy giá trị "1" được hiển thị trong Cửa sổ ngay lập tức. Nếu vậy, thay đổi lệnh thành như sau (xóa "?" Và nối thêm "= 0")
activewindow.view.revisionsballoonwidthtype=0
và thực hiện nó
Sau đó thay đổi lệnh thành
activewindow.view.revisionsballoonwidth=10
(đặt tỷ lệ phần trăm bạn muốn nơi tôi đã đặt "10") và thực hiện điều đó.
Nếu bạn thực sự muốn có chiều rộng bằng điểm, hãy thực hiện
activewindow.view.revisionsballoonwidthtype=1
sau đó thực thi
activewindow.view.revisionsballoonwidth=200
nơi bạn đặt chiều rộng bằng điểm thay vì "200"
Ghi chú:
- Khi tôi lần đầu tiên thử thay đổi giá trị chiều rộng, nó không hoạt động. Tôi dường như phải sửa đổi bản sửa đổi bóng trước, sau đó thay đổi của tôi sẽ "mất" Nhưng có lẽ tôi đã làm gì đó sai trên đường đi.
- bạn có thể cần phải thêm tiền tố "ActiveWindow" bằng "ActiveDocument." (không có dấu ngoặc kép) để làm việc này.
FWIW Tôi sẽ cung cấp cho bạn bản thảo tương đương, nhưng tôi không thể thấy tên thuộc tính tương đương trong Từ điển cho Word 2011.
Ngoài ra, bạn có thể đặt mã sau vào Mô-đun mới trong mẫu Thông thường (bạn có thể thực hiện điều đó trong Trình chỉnh sửa VB). Thay đổi giá trị độ rộng att anh top thành giá trị bạn muốn sử dụng. Sau đó, với một tài liệu trống (tức là "dựa trên" Normal.dotm ", hãy chạy thói quen @@@. Điều này sẽ tự khắc phục normal.dotm và thay đổi hành vi mặc định trong tương lai (tôi nghĩ vậy!).
Tuy nhiên, cũng có một thói quen AutoOpen trong đó bạn có thể cần thay đổi cài đặt cho các tài liệu hiện có. Tôi không chắc bạn cần điều này. Nếu không, xóa hoặc đổi tên phụ AutoOpen. Nếu bạn cần nó và bạn đã có AutoOpen trong Normal.dotm của mình, bạn sẽ cần sửa đổi thói quen hiện tại của mình, sau đó xóa / đổi tên của tôi.
Trên đường đi, tôi nhận ra rằng có một chiều rộng tối thiểu, đó là điều khiến tôi nghĩ rằng các giá trị không "lấy". Nhưng ví dụ, đặt chiều rộng 5%, 10%, 15% ở đây có hiệu quả chính xác tương tự, và tôi cần phải đi đến 21% hoặc một số như vậy để tăng nó. Word không báo cáo độ rộng mà nó đã đặt khi bạn kiểm tra các giá trị - nó báo cáo độ rộng bạn đã cố gắng đặt. Nếu bạn muốn "tối thiểu", tôi cho rằng sử dụng giá trị "1" có thể đủ cho cả điểm hoặc phần trăm.
' 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
