Если у вас есть идея или совет по эффективному использованию редактора Word, то пишите мне через форму контактов на сайте. Любые ваши дельные советы и подсказки будут размещены в очередных выпусках рассылки и на сайте (с указанием вашего авторства).
Команды работы с рисунками в Word 2007
Никита спрашивает: Мне часто необходимо вставлять в документы чертежи из программ Компас, Автокад, Архикад и т.д. В 2003 ворде с этим не возниккало никаких проблем, так как вставленный объект можно было обрезать до необходимых размеров, убрав не нужное. Появлялась панель такая же как для работы с вставленным рисунком. А вот в 2007 ворде такой панели не нашёл, в справке так же ничего подобного не нашёл. Есть ли какие-нибудь пути решения этой проблемы?
Никита, выделите мышью рисунок (кликните на рисунке), откроется контекстная вкладка Работа с рисунками (рисунок).
Перейдите на вкладку Формат и вы увидите группы команд для изменения рисунка. Последняя группа команд на этой вкладке с одной единственной кнопкой - Размер. Нажмите эту кнопку, чтобы открыть вложенное меню (рисунок).
Теперь выбираете команду Обрезка.
На этой ленте, конечно, все разбросано, но найти аналогичные команды, как в редакторе Word 2003, при желании можно - кликайте на все кнопки и сопоставляйте.
Александр интересуется: Часто необходимо распечатывать две копии одного документа. Приходится использовать меню «Файл-печать». Помогите создать макрос позволяющий выполнять это в один клик. Необходимо учесть возможность появления предупреждения о строках, расположенных вне области печати.
Александр, попробуйте такой макрос:
Sub printDocCopy2()
ActiveDocument.PrintOut copies:=2
End Sub
Создайте для этого макроса кнопку на панели инструментов и пользуйтесь. В коде можно изменить количество копий, указав нужное вам число.
Что касается предупреждений, то это внутренние ресурсы редактора и при программировании их учитывать не обязательно. К тому же, поля могут отличаться от минимальных для редактора Word и используемого принтера.
Вставка скопированного текста в предопределенном формате
Сергей задал вопрос: Довольно часто при работе с текстом нужно вставлять в него цитаты из других документов и было бы удобно, если бы эти цитаты были видны там, куда вставляешь. Т.е., при вставке необходимо, чтобы новый текст вставлялся уже в другом, заранее определенном форматировании (курсивом, цветом и пр.) в отличие от основного текста.
Если бы Вы смогли мне помочь в этом? Кстати, я думаю, что такая особенность работы с текстом была бы необходима многим.
Самый лучший способ - использовать специальные стили для вашего фрагмента текста. Вставляете текст и применяете к нему соответствующий стиль. Это не сложно. Но чтобы вставляемый текст автоматически преобразовывался в этот стиль - так не получится.
Либо, есть еще решение использовать макрос, который бы брал текст из буфера обмена, вставлял его и уже потом применял к вставленному тексту нужное форматирование. Для макроса нужно создать кнопку на панели инструментов и после того, как скопировали текст, следует установить курсор в нужное вам место документа и нажать эту кнопку.
Вот примерный код макроса. После того, как вы скопировали текст из любого источника, поставьте указатель мыши в то место документа, где вам нужно вставить цитату, и нажмите кнопку макроса.
Sub insertQuotes()
'Вставка текста из буфера обмена в качестве цитаты и задание форматирования
On Error Resume Next 'игнорируем ошибку
Dim MyData As DataObject
Set MyData = New DataObject
MyData.GetFromClipboard
Selection.Text = MyData.GetText(1) 'вставляем текст
'удаляем лишние пробелы в конце выделения и знак абзаца
If Right(Selection.Text, 1) = Chr(32) Or _
Right(Selection.Text, 1) = Chr(13) Then
Selection.MoveLeft wdCharacter, 1, wdExtend
End If
'обрамляем выделенный текст кавычками
With Selection
.InsertBefore Chr(148)
.InsertAfter Chr(147)
End With
'устанавливаем отступы сверху, снизу и по бокам цитаты
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(1)
.RightIndent = CentimetersToPoints(0.5)
.SpaceBefore = 12
.SpaceAfter = 12
End With
'форматируем шрифт
With Selection.Font
.Name = "Times New Roman"
.Size = 11
.Italic = True
.Color = wdColorGray50
End With
End Sub
Вся информация, представленная на сайте WordExpert.ru и в этой рассылке, никаким образом не связана с корпорацией Microsoft. В рассылке упоминаются компании и продукты, которые могут быть зарегистрированными торговыми марками и принадлежать различным физическим и юридическим лицам как на территории РФ, так и за ее пределами.
Авторские права на все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке (включая текст, фотографии, подборку, расположение и т.п.) принадлежат Кокину Антону Вадимовичу, если не указано иное. Вы можете свободно использовать и распространять эти материалы с обязательной ссылкой вида "Информация с сайта WordExpert.ru" и с обязательным указанием автора материала.
Все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке, представлены на информационной основе. Вы можете использовать любую информацию с сайта WordExpert.ru или из данной рассылки исключительно на свой страх и риск. Тем не менее, я рекомендую перед применением какой-либо информации с сайта WordExpert.ru или из данной рассылки обязательно сохранять и создавать резервные копии ваших документов.
В этой рассылке также упоминаются различные web-страницы с соответствующими ссылками. Эти ссылки указываются исключительно в информационных целях и никакой рекомендации или одобрения с моей стороны данных веб-страниц не подразумевается, если не указано иное.