powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с Word
2 сообщений из 2, страница 1 из 1
Помогите с Word
    #32524788
marvel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня есть две страницы в ворде. В каждую из них надо вставить рисунок.

DocWord.Application.ActiveDocument.Shapes.AddPicture(App.Path & "\Test.jpg", , , , , 100, 100).Select

Здесь получается, что вставляется рисунок только в первую страницу
...
Рейтинг: 0 / 0
Помогите с Word
    #32527212
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну, в общем так... покапался я чуть чуть и нашёл следующее:
В методе AddPicture надо использовать аргумент Anchor, который и вставляет картинку в указанное Anchor-ом месте.
И так, устанавливаем Anchor на вторую страницу:
=> Set wrdRangeAnchor = wrdDoc.ActiveWindow.Selection.GoTo(wdGoToPage, wdGoToAbsolute, 2)
А теперь вставляем картинку на вторую страничку:
=> wrdDoc.Shapes.AddPicture "C:\12.bmp", , , , , , , wrdRangeAnchor
А в целом, я так написал программку:

Private Sub Command1_Click()
Dim wrdDoc As Word.Document
Dim wrdApp As Word.Application
Dim iIndex As Integer
Dim wrdRangeAnchor As Range





Set wrdApp = New Word.Application
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\Microsoft Word Document.doc")


For iIndex = 1 To wrdDoc.ActiveWindow.Panes(1).Pages.Count
Set wrdRangeAnchor = wrdDoc.ActiveWindow.Selection.GoTo(wdGoToPage, wdGoToAbsolute, iIndex)

wrdDoc.Shapes.AddPicture "C:\12.bmp", , , , , , , wrdRangeAnchor
Next
End Sub
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]