Нужно в документе WORD сделать обтекание текстом ВСЕХ рисунков. Как это сделать? По одному делается без проблем, но их очень много, а всех вместе никак.
Попробуйте такой макрос (на копии документа — на всякий случай):
re>Sub wrapImages() ‘Обтекание текстом для всех типов графических объектов Dim pic As Object On Error Resume Next For Each pic In ActiveDocument.Content.InlineShapes If pic.Type = wdInlineShapePicture Then pic.InlineShapes(1).ConvertToShape pic.ShapeRange.WrapFormat.Type = wdWrapTight End If Next For Each pic In ActiveDocument.Content.ShapeRange If pic.Type = msoPicture Then pic.ShapeRange.WrapFormat.Type = wdWrapSquare End If Next End Sub
Еще записи по вопросам использования Microsoft Word:
- вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 — решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Обтекание текстом
Доброго времени суток, уважаемый читатель! Недавно пришла еще одна идея для моей новой статьи, когда я набирала текст в Word 2007 и вставила картинку, то обнаружилось, что текст ниже картинки, что совсем не приглядно смотрится. Эту проблему я решила достаточно быстро, о чем хочу поделиться с Вами. Вообще существует 7 видов "обтекания текстом":
- В тексте;
- Вокруг рамки;
- По контуру;
- За текстом;
- Перед текстом;
- Сверху и снизу;
- Сквозное.
По умолчанию стоит "В тексте", поэтому так и получилось. Здесь нет смысла двигать текст вверх или картинку вниз. Все делается намного проще.
Итак, выделяем фотографию и по выделенной фотографии нажимаем правую кнопку мыши, в выпадающем списке выбираем " Обтекание текстом ", далее из нового выпадающего списка выбираем " По контуру ":
Может случиться так что если Вы по картинке нажмете правую кнопку мыши, а в выпадающем списке не будет пункта "Обтекания текстом" как на картинке, тогда выбираем "Формат рисунка":
Далее появиться окно "Формат рисунка", где выбираем закладку "Положение" и выбираем "По контуру", нажимаем кнопку "Ок":
Есть еще один вариант.
А вот и результат:
Загрузка .
P.S. я хотела бы предложить Вам видеокурс Microsoft Office 2010 — Шаг за Шагом , где подробно рассказывают о всех тонкостях Word 2010 .
