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

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

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

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

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

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

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

Создайте новый макрос для шаблона 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

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

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

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