Практическое руководство. Программное добавление рисунков и объектов Word Art в документы

Статья
02/20/2013

Можно добавлять рисунки и графические объекты в документы во время разработки или выполнения.WordArt дает возможность добавлять в документы Microsoft Office Word декоративный текст.Эти особые текстовые эффекты представляют собой графические объекты, которые можно настроить и вставить в документ.

Применение. Сведения этого раздела применяются к проектам уровня документа и уровня приложения для Word 2013 и Word 2010. Дополнительные сведения см. в разделе Доступность функций по типам приложений Office и проектов.

Добавление рисунка во время разработки

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

Добавление рисунка в документ Word во время разработки

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

Рисунок добавляется в документ в текущее положение курсора.

Добавление рисунка во время выполнения

Можно добавить рисунок в документ в текущее положение курсора.

Добавление рисунка в положение курсора

Вызовите метод AddPicture коллекции InlineShapes и передайте ему имя файла.

Me.Application.Selection.InlineShapes.AddPicture("C:\SamplePicture.jpg")

this.Application.Selection.InlineShapes.AddPicture(@"C:\SamplePicture.jpg");

Добавление объекта WordArt во время разработки

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

Добавление объекта WordArt в документ Word во время разработки

Разместите курсор в том месте документа, куда необходимо добавить объект WordArt.
В ленте щелкните вкладку Вставка.
В группе Текст нажмите WordArt, а затем выберите стиль надписи WordArt.
Добавьте текст, который необходимо добавить в документ, в диалоговое окно Изменение текста WordArt и нажмите кнопку ОК.

В документ добавляется текст с применением выбранного стиля надписи WordArt.

Добавление объекта WordArt во время выполнения

Можно добавить объект WordArt в документ в текущее положение курсора.Процедуры для настроек уровня документа и надстроек уровня приложения различаются.

Добавление объекта WordArt в положение курсора в настройку уровня документа

Получите данные о левой и верхней позиции текущего положения курсора.

Dim leftPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdHorizontalPositionRelativeToPage)

Dim topPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdVerticalPositionRelativeToPage)

float leftPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdHorizontalPositionRelativeToPage];

float topPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdVerticalPositionRelativeToPage];

Вызовите метод AddTextEffect объекта Shapes в документе.

Me.Shapes.AddTextEffect( _
    Office.MsoPresetTextEffect.msoTextEffect29, "SampleText", _
    "Arial Black", 24, _
    Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse, _
    leftPosition, topPosition)

this.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect29, "SampleText",
    "Arial Black", 24, Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse,
    leftPosition, topPosition);

Добавление объекта WordArt в положение курсора в надстройку уровня приложения

Получите данные о левой и верхней позиции текущего положения курсора.

Dim leftPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdHorizontalPositionRelativeToPage)

Dim topPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdVerticalPositionRelativeToPage)

float leftPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdHorizontalPositionRelativeToPage];

float topPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdVerticalPositionRelativeToPage];

Вызовите метод AddTextEffect объекта Shapes активного документа (или другого заданного вами документа).

Me.Application.ActiveDocument.Shapes.AddTextEffect( _
    Office.MsoPresetTextEffect.msoTextEffect29, "SampleText", _
    "Arial Black", 24, Office.MsoTriState.msoFalse, _
    Office.MsoTriState.msoFalse, leftPosition, topPosition)

this.Application.ActiveDocument.Shapes.AddTextEffect(
    Office.MsoPresetTextEffect.msoTextEffect29, "SampleText",
    "Arial Black", 24, Office.MsoTriState.msoFalse, 
    Office.MsoTriState.msoFalse, leftPosition, topPosition);