Vba word обтекание текстом

Сергей интересуется:

Как с помощью макроса сделать обтекание картинки текстом?

Сделать обтекание текстом возможно. Но лишь после того, как рисунок будет переконвертирован в графический объект.

Здесь следует объяснить, что в редакторе Word различаются два типа графических объектов: рисунки (например, фотографии или иные объекты, вставленные в документ из файла) и, собственно, объекты (автофигуры, надписи и другие объекты, которые создаются в самом редакторе или в векторных редакторах).

Так вот, если нужно сделать обтекание текстом для рисунка, то первоначально его необходимо переконвертировать. Ниже представлен код, который выделяет первый рисунок в документе и делает для него обтекание.

Если нужно сделать обтекание для УЖЕ выделенного рисунка, то используйте второй код макроса.

Первый вариант (выделяет 1-й рисунок в документе и делает обтекание текстом для него):

Sub imgtoshape()
Dim selPic As Object
Set selPic = ActiveDocument.InlineShapes(1)
selPic.Select
With Selection
   .InlineShapes(1).ConvertToShape
   .ShapeRange.WrapFormat.Type = wdWrapSquare
End With
End Sub

Второй вариант (делает обтекание текстом для выделенного рисунка):

Sub imgtoshape2()
With Selection
   .InlineShapes(1).ConvertToShape
   .ShapeRange.WrapFormat.Type = wdWrapTight
End With
End Sub

VBA  в приложении к Word, Excel, Power Point 

Для доступа к
тем или иным фрагментам документа используют такие объекты, какSections (разделы), Paragraphs (абзацы), Sentences (предложения), Words (слова)
и др.

Пример:

Words(6) дает
возможность перейти к шестому
слову в документе

Sentences(11)
переход к одиннадцатому предложению

После перехода к
определенной части документа можно использовать объект Font,
позволяющий изменять свойства шрифта. Этот объект содержит методы, находящиеся
в панели меню “Формат | Шрифт”.

Объект Range является
базовым в операции редактирования. Его можно рассматривать как непрерывный
фрагмент текста (никак не связанный с выделенной областью), который не зависит
от положения курсора. Range включает в себя такие объекты, какWords (слова)
или Sentences (предложения); при обращении к ним сам
объект Rangeуказывать не нужно, тогда как для Sections (разделы)
или Paragraphs (абзацы) это делать необходимо.

Объект Range поддерживает
основные методы, которыми пользуются при форматировании текста (такие, как
“Копировать”, “Вставить”, “Вырезать”, команды меню “Формат”).

Для выполнения
заданий потребуется применение функций, работающих с символьными переменными.

Для знакомства с
примерами кодов целесообразно воспользоваться приемом, когда вы форматируете
часть документа в режиме записи макроса, а потом анализируете код макроса и
редактируете его.

Для записи
макроса необходимо:

1. Выбрать в меню “Сервис | Макрос | Начать запись”.

2. Ввести в окне “Запись макроса” в поле “Имя макроса” имя нового макроса.

3. Выбрать в списке “Макрос доступен для” шаблон или документ, в котором
будет храниться макрос.

4. Ввести описание макроса в поле “Описание”.

5. Ввести в поле “Назначить макрос” кнопку “Панели” (для назначения макросу
кнопки панели инструментов или команды меню); кнопку “Клавишам” (для
назначения макросу сочетания клавиш); если макросу назначение не требуется,
нажмите кнопку “OK”. Если в процессе работы вы часто используете какой-либо
макрос, то целесообразно назначить ему кнопку или сочетание клавиш.

6. Выполнить действия, которые нужно включить в макрос.

Следует помнить, что для записи действий надо использовать клавиатуру,
поскольку действия, произведенные с помощью мыши, не записываются.

7. Нажать после записи макроса кнопку “Остановить запись”.

Существует одна особенность при сохранении готового документа Word, в
котором находятся макросы и процедуры. Если вы вспомните работу с макросами в
Excel, то при открытии готового документа там всегда задается вопрос:
“Отключать макросы при открытии или нет?”. И если вы укажете, что макросы надо
отключить, то подготовленные кнопки работать не будут.

В редакторе Word, в отличие от Excel, установлена сильная защита от
макросов (макросы рассматриваются как вирусы), и при повторном открытии одного
и того же документа, в котором все программы и макросы работали, запроса на
включение или отключение макросов не будет, и работать также ничего не будет.

Поэтому при сохранении документа в Word вы должны выполнить следующую
последовательность действий:

1. Выбрать “Файл | Сохранить как | Сервис”. Появится диалоговое окно
“Сохранение документа”.

2. Выбрать в меню “Сервис” пункт “Параметры безопасности”. Появится
диалоговое окно “Безопасность”.

4. Выбрать в появившемся
диалоговом окне на закладке “Уровень безопасности ”Средний или Низкий уровень
безопасности. При выборе Среднего уровня безопасности
при открытии документа будет появляться запрос на включение или отключение
макросов. Для того чтобы программы и макросы в документе работали, надо выбрать
“Не отключать макросы”.

При выборе Низкого уровня безопасности
диалоговое окно появляться не будет, и макросы будут подключаться
автоматически.

5. Перейти на закладку “Надежные источники” и включить флажок “Доверять
доступ к Visual Basic Project”.

6. Сохраните документ.

Практическая
работа №1 “Работа в Wоrd”

Спроектировать кнопки, при помощи
которых можно провести разбор предложения. При установке курсора на найденное
слово и нажатии на соответствующую клавишу слово должно окрашиваться в
определенный цвет и подчеркиваться.

Порядок работы.

1. Набрать текст в редакторе
WORD.

2. Выбрать в меню “Сервис |
Макрос | Начать запись”.

3. Дать макросу имя
(например, “Имя_Существительное”).

4. Ввести описание макроса в
поле “Описание”.

5. Определить в поле
“Назначить макрос” способ, с помощью которого будет вызываться макрос (кнопка
или сочетание клавиш).

6. Выполнить действия,
которые нужно включить в макрос.

В нашем случае
последовательность действий будет такая: установить курсор перед любым словом;
выделить это слово; установить цвет шрифта — красный, одинарное подчеркивание.

Не забывайте, что для записи
действий надо использовать клавиатуру!

7. Нажать после записи
макроса кнопку “Остановить запись”.

8. Выполнить те же действия
для определения сказуемого (только цвет шрифта установить зеленый и задать
двойное подчеркивание).

9. Подготовить кнопку “CommandButton1”
на рабочем листе выше текста, назвать ее “Подлежащее”.

10. Просмотреть записанную
программу, скопировать ее и переписать через режим написания программы Исходный
текст в кнопку “Подлежащее”.

11. Проделать те же действия
и для кнопки “Сказуемое”.

12. Задать уровень
безопасности документа.

13. Сохранить работу. Она
будет выглядеть примерно так:

Практическая работа № 9–2
“Количество абзацев в документе”

Рассмотреть документ,
который состоит из нескольких абзацев. Задача заключается в том, чтобы
программно определить количество абзацев в документе; озаглавить текст; в конце
документа вывести сообщение о количестве абзацев.

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

Возьмем для примера текст об
Интернете, а именно — о передаче информации и протоколах. Текст содержит 6
абзацев, судя по количеству специальных символов.

Порядок работы.

1. Вызвать панель элементов
управления (“Вид | Панели инструментов | Элементы управления”).

2. Подготовить кнопку
“CommandButton1” на рабочем листе ниже текста.

3. Переименовать кнопку в
“Количество абзацев”. Для этого на панели элементов управления вызовите
“Свойства”. Появится панель “Properties”. Выберите свойство “Caption” и в правой
колонке наберите название.

4. Придать кнопке свойство обтекания по контуру, чтобы
кнопку можно было перемещать по листу. Для этого на объекте кнопка следует
вызвать контекстно-зависимое меню и выбрать “Формат объекта”. Появится
диалоговое окно “Формат элемента управления”. На вкладке “Положение” выбрать
вариант “По контуру”.

5. Выбрать в
контекстно-зависимом меню этого объекта команду “Исходный текст” или два раза
щелкнуть по кнопке. Откроется редактор режима написания программы.

Алгоритм выполнения задания:

1. Объявить переменные:

a) k — переменная для
подсчета количества абзацев в документе;

b) Text — переменная для
формирования текста-ответа о количестве абзацев;

c) ZAGOLOVOK — переменная,
которая определит область для вывода заголовка.

2. Определить количество
абзацев с помощью метода Count объекта Paragraphs.

3. Сформировать текст вывода
сообщения.

4. Вставить дополнительный
абзац после последнего абзаца документа для вывода сообщения.

5. Вывести текст-сообщение в
подготовленный абзац.

6. Сформировать область для
вывода заголовка “Протоколы”.

7. Вывести название
“Протоколы”.

8. Установить шрифт и размер
заголовка.

9. Вставить символ конца
абзаца для того, чтобы название и начало текста были на разных строках.

Можно дополнить эту задачу.
Например, сообщение о количестве абзацев пусть выводится красным цветом и 14-м
размером шрифта. Этот фрагмент учащиеся могут выполнить самостоятельно.
Обратите внимание, что место этого фрагмента программы очень важно: он должен
располагаться только в этой части программы, а не после работы с заголовком.

Результат выполнения
программы представлен на рисунке.

Практическая работа № 2 “Количество букв а (русских) в абзаце”

Эта практическая
работа выполняется с тем же документом, что и работа № 9–2 (с документом,
который состоит из нескольких абзацев). Задача заключается в том, чтобы
программно определить номер абзаца, в котором будет происходить подсчет
букв а; подсчитать их количество; в конце документа (или после
абзаца, в котором происходил подсчет) вывести сообщение о количестве букв.

Порядок
работы.

1. Вызвать
панель элементов управления “Вид | Панели инструментов | Элементы управления”.

2. Подготовить
кнопку на рабочем листе ниже текста “CommandButton2”.

3. Переименовать
кнопку в “Количество букв а в абзаце”.

4. Придать
кнопке формат обтекания по контуру, чтобы ее можно было перемещать по листу.

5. Выбрать в
контекстно-зависимом меню этого объекта пункт “Исходный текст” или
два раза щелкнуть по кнопке (мы попадем в редактор в режим написания
программы).

Алгоритм
выполнения задания следующий:

1. Объявить
переменные:

a) b — строковая
переменная для размещения в ней выбранного абзаца в документе;

b) k —
переменная для хранения количества абзацев в документе;

c) dl —
переменная для хранения длины абзаца;

d) Text —
переменная для формирования текста-ответа о количестве символов а в
абзаце;

e) Nab —
переменная для ввода номера абзаца, в котором будет происходить подсчет;

f) I —
переменная для организации цикла;

g) kol —
переменная для подсчета символов а;

h) REZULTAT —
переменная, которая определит область для вывода заголовка.

2. Ввести номер
абзаца, используя диалоговое окно.

3. Определить
количество абзацев в документе.

4. Проверить
существование введенного номера абзаца и выдать сообщение об ошибке, если
такого нет.

5. В переменную
b занести текст всего абзаца.

6. Определить
длину абзаца.

7. Организовать
цикл по нахождению символа а.

8. Сформировать
текст вывода сообщения.

9. Вставить
дополнительный абзац после последнего абзаца документа для вывода сообщения.

10. Вывести
текст-сообщение в подготовленный абзац.

11. Установить
определенный шрифт, размер и цвет текста-сообщения.

Результат
выполнения представлен на рисунке.

Практическая работа № 3 “Предложения в абзаце”

Эта практическая работа выполняется с тем же документом, что и работа № 9–2
и 9–3 (или с любым текстом, который состоит из нескольких абзацев). Задача
заключается в том, чтобы программно определить номер абзаца, в котором
наибольшее количество предложений; выделить сообщение о номере абзаца и о
количестве предложений, используя диалоговое окно; выделить этот абзац другим
цветом.

Порядок работы.

1. Вызвать панель элементов управления “Вид | Панели инструментов |
Элементы управления”.

2. Подготовить кнопку “CommandButton3” на рабочем листе ниже текста.

3. Переименовать кнопку в “Предложения в абзаце”.

4. Придать ей формат обтекания по контуру, чтобы кнопку можно было
перемещать по листу.

5. Выбрать в контекстно-зависимом меню этого объекта пункт “Исходный текст”
или два раза щелкнуть по кнопке (попадаем в редактор в режим написания
программы).

Алгоритм выполнения задания следующий:

1. Объявить переменные:

a) k — переменная для хранения количества абзацев в документе;

b) kol — переменная для хранения количества предложений в абзаце;

c) i — переменная для организации цикла;

d) Mas() — массив для занесения количества предложений в абзацах;

e) Otvet — переменная для формирования текста-ответа с результатами;

f) Max — переменная для хранения максимального количества предложений в
абзаце;

g) ind — переменная для хранения номера абзаца с максимальным количеством
предложений;

h) REZULTAT — переменная, которая определит область абзаца, к которому надо
применить элементы форматирования.

При объявлении массива нам неизвестно количество абзацев в документе.
Поэтому объявление массива производим в два этапа: 1-й этап — объявление без
размера Dim Mas() As Integer; 2-й этап — после определения количества абзацев в
документе переопределяем размерность массива ReDim Mas(k) As Integer. Такие
массивы называются динамическими.

Кроме этого, чтобы индекс массива начинался с 1, а не с 0 (для удобства
работы), в редакторе в начале листа с процедурой укажите команду “Option Base
1”.

2. Определить количество абзацев в документе.

3. Переопределить размерность массива.

4. Организовать цикл по определению количества предложений в абзацах с
занесением их размерности в массив и сохранением порядкового номера в массиве,
что соответствует номеру абзаца.

5. Организовать цикл по нахождению наибольшего количества предложений в
абзаце (работа со сформированным массивом) по стандартному алгоритму.

6. Сформировать текст вывода сообщения.

7. Вывести в диалоговом окне сообщений результат.

8. Определить область абзаца для форматирования.

9. Установить определенный шрифт, размер и цвет текста-абзаца с
максимальным количеством предложений.

Диалоговое окно с результативным сообщением будет выглядеть так:

Результат выполнения задания представлен на рисунке.

Практическая работа №4 “Слова-палиндромы”

Задача заключается в том, чтобы программно определить,
есть ли в тексте слова-палиндромы и выделить эти слова другим цветом.

Порядок работы.

1. Подготовить текст (можно придумать рассказ или
стихотворение со словами-палиндромами ШАЛАШ, КАЗАК, НАГАН, МАДАМ и т.д.).

2. Вызвать панель элементов управления “Вид | Панели
инструментов | Элементы управления”.

3. Подготовить кнопку “CommandButton1” на рабочем
листе ниже текста.

4. Переименовать кнопку в “Палиндромы”.

5. Придать созданной кнопке формат обтекания по
контуру, чтобы ее можно было перемещать по листу.

6. Выбрать в контекстно-зависимом меню этого объекта
пункт “Исходный текст” или два раза щелкнуть по кнопке.

Алгоритм выполнения задания следующий:

1. Объявить переменные:

a) Slovo — переменная для последовательного хранения
выделенных слов;

b) L — переменная для хранения длины слова;

c) M — переменная, определяющая половину длины
выделенного слова;

d) K — переменная для формирования 1-й половины слова;

e) D — переменная для формирования 2-й половины слова;

f) Kol — переменная для хранения количества абзацев в
документе.

2. Определить количество абзацев в документе.

3. Определить область, в которой надо искать
слова-палиндромы, — это все абзацы текста.

4. Организовать цикл по выделению слов в области
определения.

5. Присвоить выделенное слово строковой переменой.

6. Определить длину выделенного слова.

7. Проверить длину слова. Если она равна 1, то слово
проверять нет смысла.

8. Организовать цикл, чтобы определить, является ли
слово палиндромом.

9. Изменить цвет букв у слова-палиндрома.

В результате ыполнения программы слова-пасиндромы
будут ыделены синим цветом.

Литератрура:

Sub Insert_picture()
'
' Insert_picture Macro
'

    Dim imagePath As String
    imagePath = "C:UsersEdoardoDocumentsMy WorkPhDSkyDriveTutoringHouriaImage Replacement.jpg"

    ActiveDocument.Shapes.AddPicture FileName:=imagePath, _
    LinkToFile:=False, _
    SaveWithDocument:=True, _
    Left:=-5, _
    Top:=5, _
    Anchor:=Selection.Range, _
    Width:=200, _
    Height:=150

    With imagePath
        .WrapFormat.Type = wdWrapSquare
    End With
End Sub

1 ответ

Лучший ответ

Sub Insert_SqWrap_Image()
    Dim shp As Shape
    Set shp = ActiveDocument.Shapes.AddPicture( _
        FileName:="C:UsersEdoardoDocumentsMy WorkPhDSkyDriveTutoringHouriaImage Replacement.jpg", _
        SaveWithDocument:=True, _
        Anchor:=Selection.Range)
    With shp
        .WrapFormat.Type = wdWrapSquare
        .Left = 246
        .Top = 50
        .Width = 250
        .Height = 188
    End With
End Sub

Все изображения в вашем документе Word должны быть отформатированы как «в соответствии с текстом», чтобы этот фрагмент кода работал. Обтекание текста документа вокруг изображения любым другим способом делает его объектом VBA Shape, а не объектом InlineShape.

Кроме того , объект границы сек включает в себя все 4 стороны. Тебе не нужен твой второй …Следующее утверждение в цикле 4 четыре раза, чтобы установить стиль и цвет на каждой стороне.

И последнее, что на моих фотографиях было нелегко увидеть границу, когда я установил размер по умолчанию. Вы также можете установить свойство Linewidth, чтобы посмотреть, работает ли оно.

В Office 2007 это работает для меня:

Dim i As Long, j As Long
With ActiveDocument.Range
    For i = 1 To .InlineShapes.Count
        With .InlineShapes(i)
                .Borders(1).LineStyle = wdLineStyleSingle
                .Borders(1).Color = wdColorAutomatic
    ' optional  .Borders(1).LineWidth = wdLineWidth225pt

        End With
    Next i
End With

РЕДАКТИРОВАТЬ:

По поводу вашей <hr> ошибки. Не все объекты InlineShape являются изображениями. Вы можете указать в своем коде VBA, чтобы выбрать только InlineShapes, чей тип является изображение.

Вероятно, поэтому я предпочитаю ссылаться на объекты напрямую как «InlineShape», а не группировать их все вместе с «InlineShape-s». Вы не можете легко добраться до свойства Type с помощью InlineShape-s.

    Dim inshape As InlineShape
    Dim ashape As shape  

    For Each inshape In ActiveDocument.InlineShapes

      If inshape.Type = wdInlineShapePicture Then

           inshape.Borders(1).LineStyle = wdLineStyleSingle
           inshape.Borders(1).Color = wdColorAutomatic
 'optional inshape.Borders(1).LineWidth = wdLineWidth225pt

      End If
    Next

    'The second loop will look for pictures formatted as Shape objects

    For Each ashape In ActiveDocument.Shapes

       If ashape.Type = msoPicture Then

          ashape.Line.Style = msoLineSingle
          ashape.Line.Weight = 0.5 'default size is 0.5 pts'

       End If
    Next