Вставка рисунка на определенное место в текст Word

@KASpar61 · Регистрация: 17.10.2012

Студворк — интернет-сервис помощи студентам

Добрый день!
Есть шаблон Word куда вставляю рисунок, но мне необходимо его вставить
его в определенное место и сделать фон прозрачным. Если мне поможите в решении
данной проблемы буду признателен.
Вот кусок кода

VB.NET
1
2
3
4
5
 Dim wordApp, wordDoc As Object
wordApp = CreateObject("Word.Application") 
        wordDoc = wordApp.Documents.Open("C:документ Word.dotx")
        wordApp.Visible = True
wordDoc.InlineShapes.AddPicture("Рисунок.jpg")

@ViterAlex · 11.02.2013, 17:10

Вставить в место курсора:

VB.NET
1
wordDoc.InlineShapes.AddPicture("Рисунок.jpg", Range:=wordApp.Selection.Range)

Ну а с фоном лучше поработать до вставки в документ

@KASpar61 · 11.02.2013, 20:41 **[ТС]**

а как мне поставить курсор в необходимое мне место кодом из программы.
какие указывать параметры и где?

@ViterAlex · 11.02.2013, 21:02

Способов масса, какое именно место нужно?
Самый распространённый способ, это задать начало и конец выделения, например, поставить курсор перед 125 символом в документе:

VB.NET
1
wordApp.Selection.Start = 125 : wordApp.Selection.End = 125

.
Есть и более изощрённые способы: GoTo, вставка в закладку, вообще без использования выделения.
Основной вопрос, как я уже сказал, как вы сами для себя определяете место вставки изображени?
P.S. Почему используется позднее связывание?

@KASpar61 · 12.02.2013, 15:27 **[ТС]**

Вот только появилась возможность сесть за комп и сказать спасибо за помощь.
теперь знаю в каком направлении копать.

@Bretbas · 22.07.2017, 16:11

Только что появилась такая же проблема. Решил тем, что в шаблоне документ Word устанавливаю закладку там, куда мне нужно вставить изображение: Вставка -> Ссылки -> Закладка. Даю ей имя, к примеру Mark1.

В коде пишу:

C#
1
2
3
...
wordDocument.InlineShapes.AddPicture( path, Type.Missing, Type.Missing, wordDocument.Bookmarks["MARK1"].Range );
...

где path - путь до изображения; wordDocument.Bookmarks["MARK1"] - свойство, которое является закладкой, которую вы установили в шаблоне документа(заранее нужно открыть этот шаблон). И у этого свойства есть объект Range, который указывает на позицию, в данном случае позицию нашей закладки.

Написал это все, так как долго искал в инете информацию по поводу того, как же мне вставить изображение в шаблон документа Word в определенное место. Так и не нашел, то что мне нужно. Пришлось самому допирать

@Michael_B · 30.04.2024, 21:08

Сообщение от ViterAlex

Вставить в место курсора:

Здравствуйте!
Подскажите, пожалуйста, а как расположить этот рисунок за текстом?

@ovva · 01.05.2024, 19:47

Michael_B, наверное, разумно, прежде чем говорить о программной реализации попробовать исполнить подобное непосредственно в среде Word. Если сумеете, сообщите.

@Michael_B · 01.05.2024, 23:23

Сообщение от ovva

наверное, разумно, прежде чем говорить о программной реализации попробовать исполнить подобное непосредственно в среде Word. Если сумеете, сообщите.

В среде Access сделал таким образом (mainWord тут - активный документ Word):

Visual Basic
1
2
3
4
5
6
7
'Путь и имя рисунка.
Const sPath As String = "W:\РИСУНОК.png"
Dim p As InlineShape, t As Object
Set p = mainWord.Selection.InlineShapes.AddPicture(sPath, False, True) 
'вставка в документ
Set t = p.ConvertToShape
t.WrapFormat.Type = wdWrapBehind

@ovva · 02.05.2024, 01:16

Michael_B, как-то так. Версия Word д.б. достаточно современной.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports System.IO
Imports WRD = Microsoft.Office.Interop.Word
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim wApp As New WRD.Application
        wApp.DisplayAlerts = WRD.WdAlertLevel.wdAlertsNone
        Dim objDoc As WRD.Document = wApp.Documents.Open(Path.Combine(Application.StartupPath, "txt1.doc"),, True)
        Dim pth As String = Path.Combine(Application.StartupPath, "44.png")
        Dim sh As WRD.InlineShape = objDoc.InlineShapes.AddPicture(pth, Type.Missing, Type.Missing, objDoc.Bookmarks("img1").Range)
        Dim shp As WRD.Shape = sh.ConvertToShape
        shp.ZOrder(Microsoft.Office.Core.MsoZOrderCmd.msoSendBehindText)
        wApp.Visible = True
    End Sub
End Class

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@KASpar61 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 9
	11.02.2013, 20:41 [ТС]
	а как мне поставить курсор в необходимое мне место кодом из программы. какие указывать параметры и где? 0

@KASpar61 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 9
	12.02.2013, 15:27 [ТС]
	Вот только появилась возможность сесть за комп и сказать спасибо за помощь. теперь знаю в каком направлении копать. 0

@ovva 4708 / 3661 / 857 Регистрация: 02.02.2013 Сообщений: 3,518 Записей в блоге: 2
	01.05.2024, 19:47
	Michael_B, наверное, разумно, прежде чем говорить о программной реализации попробовать исполнить подобное непосредственно в среде Word. Если сумеете, сообщите. 0