Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Excel в Word (не добавлять интервал между абзацами), Форматирование данных в Word из Exel
 
#1
18.12.2013 01:26:04
Здравствуйте уважаемые форумчане!  и особенно старейшины)!

Мне снова потребовалась Ваша помощь. Не могу понять какую команду вставить в код,  чтобы после вставки текста в Word в нём убрать интервалы между абзацами. Подскажите пожалуйста кто знает.

Спасибо!
 
 
 
#2
18.12.2013 03:22:46
И вам здравствуйте.
Интересно, что именно Вы понимаете под
Цитата
убрать интервалы между абзацами
Это пустые параграфы(абзацы) чтоли?
Я, например, похожую команду только 1 знаю "Убрать интервал после абзаца" и то только тогда, когда они есть.
Макрос с другого форума.

Код
Sub P1()
'Удаление лишних пробелов (обычных и неразрвных).
    With ActiveDocument.Range.Find
        .Text = "[^s ]{2;}"
        .Replacement.Text = " "
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
'Удаление пустых абзацев.
    With ActiveDocument.Range.Find
        .Text = "^13{2;}"
        .Replacement.Text = "^p"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
With ActiveDocument.Range.ParagraphFormat
    'Выравнивание по ширине
    .Alignment = wdAlignParagraphJustify
    'Отступ первой строки.
    .FirstLineIndent = CentimetersToPoints(1.25)
    'Междустрочный интервал 1,5.
    .Space15
    'Расстояние до и после абзаца.
    .SpaceBeforeAuto = False
    .SpaceAfterAuto = False
    .SpaceBefore = 0
    .SpaceAfter = 0
End With
With ActiveDocument.Range.Font
    'Шрифт 14 пт.
    .Size = 14
End With
End Sub
 
 
 
#3
18.12.2013 03:30:07
Дам и вообще подобный вопрос для форума по WORD.
 
 
 
#4
18.12.2013 05:51:23
Вообще-то в Word интервалами между абзацами называется то, что в меню Формат - Абзац - вкладка "Отступы и  интервалы" - группа "Интервал" поля "Перед/До" и "После". Если это оно, то запишите код в Word-е макрорекордером и используйте его.

Предположу все же, что проблема в другом - в некоторых скопированных в Word ячейках происходит перенос по словам. Тогда нужно просто вместо .Range(0).PasteExcelTable 0, 0, 0 записать .Range(0).Paste

Если не угадал, то лучше приложить в архиве 2 примера: что есть и как нужно.
Изменено: ZVI - 18.12.2013 06:31:13
 
 
 
#5
18.12.2013 12:12:53
Большое спасибо. Наконец то дошло.

ZVI, я записывал макрорекордером в Word, вставлял код в Excel, но появлялась ошибка.(приложил изображение того о чем я писал)
Юрий М, мне как раз этот форум нужен был, вся загвоздка в правильной команде Excel для обращения к документу Word.
Антон, я вчера делал тоже самое, но постоянно появлялась ошибка "Object required". сегодня понял, что надо писать
With objWrdApp.ActiveDocument и всё получилось.


Код
With objWrdApp.ActiveDocument
        .Range.PasteExcelTable 0, 0, 0
        .Range.ParagraphFormat.SpaceAfter = 0
        .Save
        .Close True
    End With
 
 
 
Страницы: 1
Читают тему
Наверх