информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Страшный баг в WindowsПортрет посетителяВсе любят мед
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Блокировка российских аккаунтов... 
 Отзыв сертификатов ЦБ РФ, ПСБ,... 
 Памятка мирным людям во время информационной... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / hacking
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Если мы руками меняем иконку на кнопке, то она хранится либо в normal.dot либо внутри дока, если панель для него специфична 01.09.07 00:16  Число просмотров: 3720
Автор: Ustin <Ustin> Статус: Elderman
Отредактировано 01.09.07 00:36  Количество правок: 1
<"чистая" ссылка>
Иконки же по дефолту хранятся, скорее всего, в 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

---
<hacking> Поиск 






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2022 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach