Вопрос состоит в следующем необходимо сохранить (сделать резервную копию) списка автозамен для разных языков. Из того что удалось выяснить неформатированные пары автозамены хранятся в файлах MSO????.acl, где ???? — код языка (к примеру: 1033 – английский язык (США); 1049 – русский язык) Необходим макрос который бы экспортировал все пары автозамен с всех языков или с нужного в файл Word или Excel документ чтобы список можно было отредактировать при необходимости и обратно импортировать на том же или другом компьютере. В сети был найден файл AutoCorrect.dot в которого есть функция экспорта и импорта, но какой-то момент он вылетает с ошибкой Функцию импорта не проверял, так как не хочу чего-то запороть, без резервной копии. К примеру дефолтный список автозамен для английского языка составляет 925 записей, для русского — 159. Также в сети найден макрос который сохраняет список автозамен, но по каким-то причинам он игнорирует то что добавил пользователь, но работает без ошибок, но к сожалению не имеет импорта
Заранее спасибо за любую оказанную помощь
P.S. Если здесь можно публиковать ссылки на другие ресурсы, поделюсь тем что нарыл.
Здравствуйте,
Вопрос состоит в следующем необходимо сохранить (сделать резервную копию) списка автозамен для разных языков. Из того что удалось выяснить неформатированные пары автозамены хранятся в файлах MSO????.acl, где ???? — код языка (к примеру: 1033 – английский язык (США); 1049 – русский язык) Необходим макрос который бы экспортировал все пары автозамен с всех языков или с нужного в файл Word или Excel документ чтобы список можно было отредактировать при необходимости и обратно импортировать на том же или другом компьютере. В сети был найден файл AutoCorrect.dot в которого есть функция экспорта и импорта, но какой-то момент он вылетает с ошибкой Функцию импорта не проверял, так как не хочу чего-то запороть, без резервной копии. К примеру дефолтный список автозамен для английского языка составляет 925 записей, для русского — 159. Также в сети найден макрос который сохраняет список автозамен, но по каким-то причинам он игнорирует то что добавил пользователь, но работает без ошибок, но к сожалению не имеет импорта
Заранее спасибо за любую оказанную помощь
P.S. Если здесь можно публиковать ссылки на другие ресурсы, поделюсь тем что нарыл.Shakal07
Поскольку ссылки публиковать запрещено То предоставлю только код макроса который работает на экспорт (работает в Word'е)
[vba]
Код
Sub Экспортировать_список_автозамен() Dim j As Object Dim i As Integer Dim e As Object On Error Resume Next Set e = GetObject(, "Excel.Application") If Err Then Set e = CreateObject("Excel.Application") Err.Clear End If e.Workbooks.Add For Each j In AutoCorrect.Entries i = i + 1 e.ActiveSheet.Cells(i, 1) = " " & j.Name e.ActiveSheet.Cells(i, 2) = " " & j.Value Next j e.Visible = True End Sub
[/vba]
Макрос выгружает в Excel только пары автозамен для активного языка
Может кому пригодится
Мне же необходим и экспорт (backup) и импорт (restore)
Поскольку ссылки публиковать запрещено То предоставлю только код макроса который работает на экспорт (работает в Word'е)
[vba]
Код
Sub Экспортировать_список_автозамен() Dim j As Object Dim i As Integer Dim e As Object On Error Resume Next Set e = GetObject(, "Excel.Application") If Err Then Set e = CreateObject("Excel.Application") Err.Clear End If e.Workbooks.Add For Each j In AutoCorrect.Entries i = i + 1 e.ActiveSheet.Cells(i, 1) = " " & j.Name e.ActiveSheet.Cells(i, 2) = " " & j.Value Next j e.Visible = True End Sub
[/vba]
Макрос выгружает в Excel только пары автозамен для активного языка
Может кому пригодится
Мне же необходим и экспорт (backup) и импорт (restore)Shakal07
Сообщение отредактировал Shakal07 - Воскресенье, 28.04.2024, 15:30
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
