Нужно вставить в разные разделы документа Word текст и картинки

@Sampl · Регистрация: 09.02.2014

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

Никак не выходит. Разные разделы создаются, ориентация и размер страницы в разделах тоже меняются, а вот картинки улетают в первый раздел

Проблема с задокументированными строками, там явно просится не oWord.Selection, а oPara1.Range, но в тогда картинки вообще исчезают.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        Dim oWord As Word.Application = CreateObject("Word.Application")
        Dim oDoc As Word.Document = oWord.Documents.Add
        Dim oPara1 As Word.Paragraph
        oPara1 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range) ' новый параграф
        oPara1.Range.PageSetup.Orientation = Word.WdOrientation.wdOrientLandscape ' ориентация параграфа
        oPara1.Range.Text = "текст раздел №1" & vbCrLf
        'oWord.Selection.InlineShapes.AddPicture(Application.StartupPath() & "\template\Pattern.jpg")
        oPara1.Range.Text = "текст раздел №1" & vbCrLf
        oPara1.Range.InsertBreak(Type:=Word.WdBreakType.wdSectionBreakNextPage) ' разрыв раздела
        oPara1 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks.Item("\endofdoc").Range) ' новый параграф
        oPara1.Range.PageSetup.Orientation = Word.WdOrientation.wdOrientPortrait ' ориентация параграфа
        oPara1.Range.Text = "текст раздел №2" & vbCrLf
        'oWord.Selection.InlineShapes.AddPicture(Application.StartupPath() & "\template\Pattern.jpg")
        oPara1.Range.Text = "текст раздел №2" & vbCrLf
        oWord.Visible = True

коллеги, поделитесь опытом, пожалуйста.

@diadiavova · 17.08.2016, 17:48

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

там явно просится не oWord.Selection, а oPara1.Range, но в тогда картинки вообще исчезают.

Возможно это происходит из-за того, что после вставки картинки ты заполняешь диапазон текстом, который эту картинку затирает. После вставки попробуй сжать (Collapse) диапазон к концу и только после этого вставляй что-то еще.

@Sampl · 18.08.2016, 15:18 **[ТС]**

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

VB.NET
1
2
3
4
oPara.Range.Text = "Надпись над картинкой" & vbCrLf
oPara.Range.InlineShapes.AddPicture(Application.StartupPath() & "\template\Pattern.jpg")
oPara.Range.Collapse(Direction:=Word.WdCollapseDirection.wdCollapseEnd)
oPara.Range.Text = "Надпись под картинкой" & vbCrLf

Возможно Collapse на картинки не распространяется?
Помогите, пожалуйста.

@Step_UA · 18.08.2016, 16:38

VB.NET
1
2
3
4
oPara.Range.Text = "Надпись над картинкой" & vbCrLf
oPara.Range.InlineShapes.AddPicture(FileName:=Application.StartupPath() & "\template\Pattern.jpg", Range:=oPara1.Range)
'oPara.Range.Collapse(Direction:=Word.WdCollapseDirection.wdCollapseEnd)
oPara.Range.InsertAfter("Надпись под картинкой" & vbCrLf)

@diadiavova · 18.08.2016, 17:05

Sampl, честно говоря, не знаю как это делается правильно. Скорей всего тут могут помочь в разделе, посвященном программированию в офисе. Но могу предложить немного искусственный способ: вставлять весь текст, а потом в нужное место текста - картинку. Вот так это выглядит на VBA, думаю на VB.Net переложить сможешь сам

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim rng As Range
 
Set rng = ActiveDocument.Range()
Dim text1, text2 As String
text1 = "Текст перед картинкой"
text2 = "Текст после картинки"
rng.Text = text1 & text2
 
rng.SetRange Len(text1), Len(text1)
rng.InlineShapes.AddPicture FileName:= _
        "C:\path\to\picture.jpg", LinkToFile:=False, _
        SaveWithDocument:=True

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

Опции темы