Если у вас есть идея или совет по эффективному использованию редактора Word, то пишите мне через форму контактов на сайте. Любые ваши дельные советы и подсказки будут размещены в очередных выпусках рассылки и на сайте (с указанием вашего авторства).
Нумерованный список: как скрыть подпункты
Нина спрашивает: В редакторе Word есть панель инструментов "Форматирование", которая позволяет создать нумерованный список с подпунктами.
Мне сказали, что возможности редактора позволяют при необходимости скрывать подпункты, как бы сворачивая их (подобное действие есть в Excel - "группировать - разгруппировать"). Так ли это?
Увы, для списков это невозможно (я бы не был столь категоричен, но действительно не смог найти решение. А может оно (решение) существует.). Но такая возможность есть для нумерованных заголовков и только в режиме Структура документа. Вот так это выглядит в развернутом виде (рисунок). А вот так в свернутом (рисунок).
Интересно, может кто-то знает иной способ? Напишите в комментариях.
Иногда в сплошном унылом тексте документа необходимо выделить некий абзац с важной информацией так, чтобы он был заметен среди однообразного текста. Например, применить цветной фон для абзаца. Конечно, это можно сделать и с помощью соответствующего стиля (стилей). Но можно воспользоваться простым макросом.
Следующий макрос оформляет абзац, в котором находится курсор ввода, желтым фоном со шрифтом синего цвета (рисунок).
Sub highliteColorParagraph()
'выделенный цветом абзац
'добавляем желтый фон и шрифт синего цвета для абзаца,
'в котором находится курсор ввода
With Selection
.StartOf wdParagraph, wdMove
.EndOf wdParagraph, wdExtend
.ParagraphFormat.Shading.BackgroundPatternColor = wdColorLightYellow
.Font.ColorIndex = wdBlue
.Collapse wdCollapseStart
End With
End Sub
Михаил задал вопрос: После использования сервиса "Слияние" в MS Word, я получил документ с большим количеством однотипных таблиц (с индивидуальным заполнением). Можно ли теперь сохранить этот документ в виде отдельных файлов с уникальными названиями, каждый из которых будет содержать отельную таблицу?
Это можно сделать с помощью следующего макроса (ниже). Но предварительно создайте в корне диска папку Test, так как именно в нее будут сохранены новые документы с таблицами:
Sub SplitTables()
'Разбиение документа с таблицами на отдельные файлы,
'содержащие по одной таблице из документа
Dim iDoc As Long 'нумерация документов
Dim dDc1 As Document ' активный документ
Dim dDc2 As Document ' новый документ
Dim rTmp As Range
Set dDc1 = ActiveDocument
For iDoc = 1 To dDc1.Tables.Count
Set rTmp = ActiveDocument.Tables(iDoc).Range
rTmp.Copy
Set dDc2 = Documents.Add(Visible:=False)
dDc2.Activate
Selection.Paste
dDc2.SaveAs "C:\Test\" & Format(iDoc, "000") & ".doc"
dDc2.Close
Next
Set dDc1 = Nothing
Set dDc2 = Nothing
End Sub
Вся информация, представленная на сайте WordExpert.ru и в этой рассылке, никаким образом не связана с корпорацией Microsoft. В рассылке упоминаются компании и продукты, которые могут быть зарегистрированными торговыми марками и принадлежать различным физическим и юридическим лицам как на территории РФ, так и за ее пределами.
Авторские права на все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке (включая текст, фотографии, подборку, расположение и т.п.) принадлежат Кокину Антону Вадимовичу, если не указано иное. Вы можете свободно использовать и распространять эти материалы с обязательной ссылкой вида "Информация с сайта WordExpert.ru" и с обязательным указанием автора материала.
Все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке, представлены на информационной основе. Вы можете использовать любую информацию с сайта WordExpert.ru или из данной рассылки исключительно на свой страх и риск. Тем не менее, я рекомендую перед применением какой-либо информации с сайта WordExpert.ru или из данной рассылки обязательно сохранять и создавать резервные копии ваших документов.
В этой рассылке также упоминаются различные web-страницы с соответствующими ссылками. Эти ссылки указываются исключительно в информационных целях и никакой рекомендации или одобрения с моей стороны данных веб-страниц не подразумевается, если не указано иное.