Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Макрос "слепляет" таблицы
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
werovulv werovulv вне форума
Member
 
Сообщений: 21
Сказал(а) спасибо: 7
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.05.2011
Exclamation Макрос "слепляет" таблицы - 16.08.2015, 17:08

Добрый день! Имеется макрос, который оставляет в документе только таблице, однако при его работе он их "слепляет" и таблицы идут одним сплошным потоком, можно ль как то между ними оставить энтеры? И вот еще вопрос, как документ вернуть на начальный этап работы? Т.е. до запуска макроса. И прикладываю документ.
vb Код:
Sub только_таблицы()
 
Dim t As Object, y As OLEFormat
For Each t In ActiveDocument.InlineShapes
  GoSub chk
Next
For Each t In ActiveDocument.Shapes
  GoSub chk
Next
Exit Sub
 
chk:
 
  If Not y Is Nothing Then
    If y.ClassType Like "*Equation*" Then
     
    End If
  End If
 
  Dim p As Paragraph, r As Range
For Each p In ActiveDocument.Paragraphs
  Set r = p.Range
  If Not r.Information(wdWithInTable) Then
    If r.InlineShapes.Count = 0 Then
      r.Delete
    End If
  End If
Next
 
   
  Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^g"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Return
 
End Sub
Вложения
Тип файла: zip Управление.zip (361.7 Кб, 8 просмотров)
Ответить с цитированием
  (#2 (permalink)) Старый
werovulv werovulv вне форума
Member
 
Сообщений: 21
Сказал(а) спасибо: 7
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.05.2011
По умолчанию 28.08.2015, 08:09

Разобрался, если кому нужно могу выложить код.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Появилось окно с ошибкой: "Insert the "Tray App" disk and click OK". Anita_2 Техническая поддержка 6 14.12.2014 14:20
Ошибка "Неизвестное имя" при сохранении данных таблицы StringGrid в Excel. s24g C++ Builder 0 27.03.2014 12:33
Макрос - "Отображать определенные столбцы" nivybuct Задания за деньги 3 01.04.2013 00:10
Ставлю систему "с нуля" после сбоя. Какие "работы" по тестированию железа полезны? russcand Любые вопросы от новичков 14 01.09.2011 00:27
В проводнике пропала строка с функциями "Вперед"/"Назад" viv Техническая поддержка 18 12.12.2010 21:35
Инструкция по адресу "0x436b10f" обратилась к памяти "0x03793dac". ВИРУС???? skazka Windows XP 5 21.03.2010 01:21
помогите выбрать "ASRock P4i45PE" или "GigaByte GA-8PE800" Константин Материнские платы 2 06.12.2009 15:21
Как исправить "attempt to store duplicate value in unique index "RDB$INDEX_5" ?" devo4ka-nimfetka Другие СУБД 1 16.04.2009 09:58
После подключения кнопок "power" и "reset" компьютер перестал включаться. Лаборант-Шурупов Любые вопросы от новичков 1 25.01.2009 15:15
Ошибка POST "FF" в материнской плате "Epox EP-5ELA3I". sushv Любые вопросы от новичков 2 28.08.2007 12:25
Добавить кнопки "свернуть" и "восстановить" к окну готового dialog-based приложения Lesat Visual C++ 2 07.01.2006 04:34
Как сделать чтобы вместо кнопок "Да" и "Нет" высвечивалось украинсие "Так" и "Ні" Форсаж Delphi 5 19.07.2003 19:30



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов