| |
|
|
| | Подскажите, пожалуйста, как из Access программно выделить несколько страниц документа Word? Страницы разделены принудительными разрывами страниц. Спасибо. | |
| |
| |
| |
|
|
| | в общем-то на VBA можно реализовать любые опции доступные из пунктов меню и даже больше.
я не знаю, существует ли такая опция, как выделить несколько страниц.
а зачем Вам это нужно?
может задачу можно решить другим способом | |
| |
| |
| |
|
|
| | не знаю наверняка, поскольку не было нужды пользоваться | |
| |
| |
| |
|
|
| | Спасибо всем ответившим. Жаль, что никто не сталкивался с такой задачей. Очень нужно. Обыскала всю справку, но так и не нашла, как обратиться к жесткому разрыву страницы.  | |
| |
| |
| |
|
|
| | Set myRange = ActiveDocument.Paragraphs(2).Range
With myRange
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdPageBreak
End With | |
| |
| |
| |
|
|
| | Спасибо за ответ. Этот фрагмент, как я поняла, позволяет вставить разрыв страницы. А вот как потом найти место в документе, где разрыв был вставлен? Существуют ли какие-то отличительные признаки у вставленного разрыва, по которым его можно было бы идентифицировать? | |
| |
| |
| |
|
|
| | наверное можно, если анализировать структуру документа.
зачем Вам это?
может быть достаточно просто обращаться к свойству Page документа? | |
| |
| |
| |
|
|
| | В том-то и дело, что никакого свойства Page у документа я не нашла (может искала плохо или не там). Только PageSetup. | |
| |
| |
| |
 8 Кб. |
|
| | воще-то должно быть - куда оно денется 8-)
см. эттэчмент
см. хайперлинк:
http://channel9.msdn.com/ShowPost.aspx?PostID=168259 | |
| |
| |
| |
|
|
| | Ой, может я дура, но не нашла я такого свойства. Однако благодаря Вашей уверенности, что должно оно быть, я проявила настойчивость и обнаружила у объекта Paragraph свойство PageBreakBefore, которое вроде должно помочь найти разрыв страницы. Сейчас буду пробовать.
Спасибо всем! | |
| |
| |
| |
7 Кб. |
|
| |
Dim objPage As Page
Set objPage = ActiveDocument.ActiveWindow.Panes(1).Pages(1)
'Add new line to document
ActiveDocument.Shapes.AddLine _
InchesToPoints(0.5), _
InchesToPoints(0.5), _
objPage.Width - InchesToPoints(0.5), _
objPage.Height - InchesToPoints(0.5)
|
| |
| |
| |
|
|
