Автоматизированные архивные технологии
Главная страница Автоматизация архивной деятельности
Новости
Статьи
Программы
Скачать
Купить
FAQ (ЧаВО)
Отзывы
Автор
Обзор софта
Разное
Книги
Ссылки
Карта сайта
return_links(1); ?>

Макрос для сохранения файла в текстовом формате

Работа с офисными программами

Самоучитель: Компьютер Шаг за Шагом

Хотите самостоятельно освоить компьютер?
Все, что нужно знать о домашнем компьютере начинающему пользователю

НАХОДИТСЯ ЗДЕСЬ >>

Автоматическая конвертация всех таблиц документа в текст и сохранение файла в обычном текстовом формате. Макрос упрощает работу по подготовке описей к переносу в Архивный Фонд.

Создайте новый макрос для шаблона Normal.dot, вставьте текст макроса. Вынесите кнопку макроса на панель задач или в меню, выберите значок и подпись.

    Создание макроса

    1. В Word выберите меню Сервис | Макрос | Макросы….

    2. В поле «Макросы из» выберите «Normal.dot (общего шаблона)».

    3. В поле «Имя» введите название нового макроса, например «SaveAsTXT».

    4. Нажмите кнопку «Создать».

    5. В Microsoft Visual Basic между Sub и End Sub (или вместо них) вставьте текст макроса.

    6. Закройте редактор Microsoft Visual Basic.

    Кнопки для быстрого вызова макроса

    1. В Word выберите меню Сервис | Настройка….

    2. На закладке «Команды» выберите слева категрию «Макросы»

    3. Справа выберите команду «Normal.NewMacros.SaveAsTXT».

    4. Перетащите кнопку на меню «Файл», затем перетащите ниже команды «Сохранить как…».

    Добавление пункта в меню

    5. Нажмите правую кнопку мыши на новом пункте меню, задайте нужное имя, например «Сохранить как текст».

    Переименование пункта в меню

Открытый файл сохраняется в той же папке с расширением txt. Имя файла не попадает в список последних файлов меню Формат.

Будьте внимательны – перед сохранением в текстовый формат файл не сохраняется в исходном формате.

Для Word 2000 и ниже параметры, выделенные курсивом, нужно будет удалить.

Sub SaveAsTXT()
'
' SaveAsTXT Макрос
' Макрос создан 28.04.2006 Сергей Плотников
'

If ActiveDocument.Tables.Count > 0 Then
  For i = 1 To ActiveDocument.Tables.Count
    ActiveDocument.Tables(1).ConvertToText (wdSeparateByTabs)
  Next i
End If
ActiveDocument.SaveAs FileName:=ActiveDocument.Path + _
  Application.PathSeparator + _
  Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4) + _
  ".txt", FileFormat:=wdFormatText, _
  LockComments:=False, Password:="", _
  AddToRecentFiles:=False, _
  WritePassword:="", ReadOnlyRecommended:=False, _
  EmbedTrueTypeFonts:=False, _
  SaveNativePictureFormat:=False, SaveFormsData:=False, _
  SaveAsAOCELetter:= False, Encoding:=1251, _
  InsertLineBreaks:=False, AllowSubstitutions:=True, _
  LineEnding:=wdCRLF
End Sub

© Сергей Плотников

Памятка Работа с таблицами при подготовке описей

Памятка 10 заповедей Word

Программы АвтоОпись и АвтоАФ

return_links(); ?>

Понравилась статья? Расскажите о ней друзьям!

© 2004–2015 Сергей Плотников, сайт Автоматизированные архивные технологии
Rambler's Top100