Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с Word / 2 сообщений из 2, страница 1 из 1
19.05.2004, 19:11
    #32524788
marvel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с Word
У меня есть две страницы в ворде. В каждую из них надо вставить рисунок.

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

Здесь получается, что вставляется рисунок только в первую страницу
...
Рейтинг: 0 / 0
21.05.2004, 00:26
    #32527212
arseny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с Word
Ну, в общем так... покапался я чуть чуть и нашёл следующее:
В методе 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
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с Word / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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