Форматирование

[Helennna]

Добрый день, уважаемые форумчане!
Не могу справиться с проблемой
Ежедневно приходится копировать/вставлять/форматировать большой текст.
Если вставляю текст через контрал ц контрал в - вставляется в виде таблицы и приходится вырезать вручную заголовок/инфо/заголовок/инфо
Если вставляю через спец вставка/неформатированный текст - появляется слишком много пустых строк, которые удаляю вручную. Опять же вручную выделяю жирным все заголовки
Может недостаточно качественно перекопала интернет, но абсолютно не представляю как мне облегчить работу и освободить как минимум 30 минут рабочего времени
Очень-очень нужна ваша помощь!
Прикрепленный файл содержит примеры вставок с комментариями и желаемый результат
Спасибо

[JuniorProger]

Сообщение от Helennna

Добрый день, уважаемые форумчане!
Не могу справиться с проблемой
Ежедневно приходится копировать/вставлять/форматировать большой текст.

Откуда берется исходный текст для копирования?
Можно попробовать вставить сначала в простой текстовый редактор типа Блокнот, потом скопировать из него и вставить в Word. Делается доволно таки быстро, по сравнению с форматированием текста.

[Helennna]

Добрый день. Спасибо за ответ.
Текст копируется из аутлука - ежедневно приходящая подборка новостей
Если работать через блокнот - получается то же самое что специальная вставка/неформатированный текст

[JuniorProger]

А можно пример исходного текста? Хочу сам попробовать.

[Казанский]

Поставьте курсор в таблицу и запишите в макрос следующие действия (Word 2000):
Таблица - Выделить - Таблица;
Таблица - Преобразовать - в текст, разделитель абзац, вложенные таблицы;
Ctrl+H, заменить ^l^l на ^p
Остановите запись.
Это действия для одной таблицы. Потом можно организовать цикл по всем таблицам в документе.

[Helennna]

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

Sub final_Макрос()
'
' выделяем все
  Selection.WholeStory
' считаем количество таблиц
    i = Selection.Tables.Count
While i > 0
        Selection.Tables(i).Select
  
 ' переформатируем таблицу в текст
   Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _
        True
        
        Selection.WholeStory
    i = Selection.Tables.Count
Wend
 ' убираем пробелы
    With Selection.Find
        .Text = "^l^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 12
'меняем жирный сбб на нежирный
        Selection.Find.ClearFormatting
    With Selection.Find.Font
        .Size = 12
        .Bold = True
    End With
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 12
        .Bold = False
        .Italic = False
    End With
    With Selection.Find
        .Text = "Steel Business Briefing"
        .Replacement.Text = "Steel Business Briefing"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
'выравниваем по ширине
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
'одинарный абзац
With Selection.ParagraphFormat
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .LineUnitBefore = 0
        .LineUnitAfter = 0
    End With
      Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

End Sub