Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Скорп
а вот кодик

Sub ChangeShrift() Dim frm As Form, ctl As Control Dim formName As String, n As Long On Error Resume Next 'Перебираем все формы For n = 0 To CurrentDb.Containers("Forms").Documents.Count - 1 formName = CurrentDb.Containers("Forms").Documents(n).Name SysCmd acSysCmdSetStatus, formName 'Открываем форму в режиме конструктора DoCmd.OpenForm formName, acDesign, , , , acHidden Set frm = Forms(formName) 'Перебор всех управляющих элементов формы For Each ctl In frm.Controls If ctl.FontName = "Tahoma" Then ctl.FontName = "Calibri" Next 'следующий элемент 'Закрываем и записываем форму DoCmd.Close acForm, formName, acSaveYes Next 'следующая форма SysCmd acSysCmdClearStatus MsgBox "Обработано форм: " & n, vbInformation End Sub

только он меняет весь шрифт
думаю, вам опытным, не составит труда дописать строчки, чтобы менял все, кроме какого-то определенного шрифта