
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
19.05.2004, 19:11:25
|
|||
|---|---|---|---|
Помогите с Word |
|||
|
#18+
У меня есть две страницы в ворде. В каждую из них надо вставить рисунок. DocWord.Application.ActiveDocument.Shapes.AddPicture(App.Path & "\Test.jpg", , , , , 100, 100).Select Здесь получается, что вставляется рисунок только в первую страницу ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.05.2004, 00:26:21
|
|||
|---|---|---|---|
Помогите с Word |
|||
|
#18+
Ну, в общем так... покапался я чуть чуть и нашёл следующее: В методе 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&mobile=1&tid=2169530]: |
0ms |
get settings: |
9ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
192ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
| others: | 226ms |
| total: | 515ms |

| 0 / 0 |
