Иконки же по дефолту хранятся, скорее всего, в winword.exe, так как
а) поиск в инете грит, что хранятся они одним битмапом
б) он самый жырный ;)
> Ковырялся везде в офисе, не нашёл. в) Я чё-то тоже, но там есть ресурсы типа 998, некоторые из них как раз по размеру тянут на заявленный битмап.
Поменять иконки к кнопкам можно с помощью макроса, исполняющегося по старту ворда. Создаём панель инструментов на ней делаем кнопки и подсасываем им иконку, например из буфера обмена (control.pasteface). Cохраняем в normal.dot соседа (или в своём шаблоне, тогда его кидаем в "C:\Documents and Settings\Знакомый\Application Data\Microsoft\Word\STARTUP\My.dot" ) + закидываем туда autoexec процедуру, которая собно и меняет иконки на имеющиеся в панели или стандартные путём манипуляций с ctrl.FaceID
UPD:
Соответствия фэйсидов названиям кнопок можно получить так:
Sub OutputControlsID()
Const MinId = 0
Const MaxId = MinId + 64
' создаем временную командную панель, MinId in [0..4096]?
Set Cbr = CommandBars.Add("tmp", msoBarTop, False, True)
On Error Resume Next
' игнорируем ошибки, не всем номерам соответствуют встроенные элементы
For i = MinId To MaxId
Cbr.Controls.Add ID:=i
Next
On Error GoTo 0 'включаем обработку ошибок
Open "c:\temp\id.txt" For Output As #1
For Each btn In Cbr.Controls
Write #1, btn.ID, btn.Caption
Next
Close #1
'записали в файл ID и названия кнопок
Cbr.Visible = True
MsgBox "Look 2 new panel"
0 Cbr.Delete ' удаляем панель
End Sub
---
|