Веб-студия Александра ПЕТРОВА

Визуальная реализация ваших фантазий!
Главная
 к началу
Работа
 оценить
Услуги
 заказать
Архив
 скачать
Музыка
 послушать
Информация
 узнать
Контакты и общение
 пообщаться
  Архив:   видео |  аудио
Вернуться к разделу «Программы и сервисы»
    к меню «Макросы для MS-офиса»

    Word-макрос: удалить все таблицы в тексте
 Преобразовать все таблицы в текст

Sub СonvertAllTables()
' www.AlexPetrov.ru
' Alt+T
' convert all tables to text

Dim kTables, i, k As Integer
kTables = ActiveDocument.Tables.Count
If kTables = 0 Then Exit Sub

If MsgBox("Do you really want to convert all tables to text)?", vbYesNo) = vbYes Then
Selection.HomeKey Unit:=wdStory '
For i = 0 To kTables - 1
Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""
Selection.Tables(1).Select
Selection.Rows.ConvertToText Separator:=wdSeparateByTabs
Selection.Font.ColorIndex = wdBlack
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Next i
End If

End Sub

 

Мнения посетителей по данной теме


А Ваше мнение, впечатление от прочитанного/увиденного/услышанного?


 Имя:   E-mail:   ( спрятать)
Текст:
 
Высказать мнение



Способы связи по вопросам разработки сайта и графического дизайна:

    E-mail:     

    Skype: petrov001
  



 
 Страница поэта Сергея Чупаленкова

Все обновления...    

Не хочу я быть,
Как и все.
Мне б босым ходить
По росе.

Да творить стихи.
Как Басё.
Да избыть грехи.
Вот и всё.


Автор: Сергей Чупаленков.

 Ефим Пассов — основатель методики иноязычного образования

Все новости...    

Ефим Израилевич Пассов.
Заслуженный деятель науки РФ, доктор педагогических наук, профессор,
основатель методики, как науки — теории и технологии иноязычного образования.

Этот ресурс также входит в группы:
  новые работы;  официальные сайты

Записи из блога:

 Copyright © 2008-2018  AlexPetrov.ru



1 2