Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
VBA Word
|
|||
|---|---|---|---|
|
#18+
Если: Set obWord = GetObject( , "Word.Application") и Set obWindow = obWord.ActiveDocument.ActiveWindow, то как узнать: 1. Расстояние до позиции курсора от левого края. 2. Величину отступов (не абзацев!) - слева и справа. 3. Какими командами переместить таблицу в заданное место и менять ширину ее столбцов. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.02.2003, 11:00 |
|
||
|
VBA Word
|
|||
|---|---|---|---|
|
#18+
Вот кое-что Код: plaintext 1. 2. 3. 4. 5. 6. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.02.2003, 13:30 |
|
||
|
VBA Word
|
|||
|---|---|---|---|
|
#18+
Нашёл описание Syntax FilePageSetup [.Tab = number] [, .TopMargin = number or text] [, .BottomMargin = number or text] [, .LeftMargin = number or text] [, .RightMargin = number or text] [, .Gutter = number or text] [, .PageWidth = number or text] [, .PageHeight = number or text] [, .Orientation = number] [, .FirstPage = number] [, .OtherPages = number] [, .VertAlign = number] [, .ApplyPropsTo = number] [, .Default] [, .FacingPages = number] [, .HeaderDistance = number or text] [, .FooterDistance = number or text] [, .SectionStart = number] [, .OddAndEvenPages = number] [, .DifferentFirstPage = number] [, .Endnotes = number] [, .LineNum = number] [, .StartingNum = number] [, .FromText = number or text] [, .CountBy = number] [, .NumMode = number] Remarks In Windows, sets page attributes such as margins and page width for the entire document or sections within the document. The arguments for the FilePageSetup statement correspond to the options in the Page Setup dialog box (File menu). On the Macintosh, use FileDocumentLayout. Argument Explanation .Tab Specifies which tab to select when you display the Page Setup dialog box with a Dialog or Dialog() instruction:0 (zero) Margins1 Paper Size2 Paper Source3 LayoutFor details, see the second example in this entry. .TopMargin The distance between the top edge of the page and the top boundary of the body text in points or a text measurement .BottomMargin The distance between the bottom edge of the page and the bottom boundary of the body text in points or a text measurement .LeftMargin The distance between the left edge of the page and the left boundary of the body text in points or a text measurement Argument Explanation .RightMargin The distance between the right edge of the page and the right boundary of the body text in points or a text measurement .Gutter The extra margin space allowed for binding the document, in points or a text measurement .PageWidth The width of the page in points or a text measurement .PageHeight The height of the page in points or a text measurement .Orientation The orientation of the page:0 (zero) Portrait1 LandscapeNote that unlike using the TogglePortrait statement, specifying a new orientation with FilePageSetup does not automatically adjust the page size and margins for the new orientation. .FirstPage, .OtherPages Selects the paper source for the first page and the other pages in the document:0 (zero) Default Tray (determined by the printer driver)1 Upper Tray2 Lower Tray4 Manual Feed (often used to override the default tray for the first page)5 EnvelopeOther values may be available depending on your printer driver. To determine a value, record a macro that selects the option you want on the Paper Source tab in the Page Setup dialog box, and then review the values for .FirstPage and .OtherPages in the macro-editing window. .VertAlign Alignment of section on the page:0 (zero) Top1 Center2 Justified .ApplyPropsTo The part of the document to apply the page setup properties to:0 (zero) This Section1 This Point Forward2 Selected Sections3 Selected Text4 Whole Document .Default Makes the current page-setup properties the default for new documents based on the active template. Argument Explanation .FacingPages If 1, corresponds to selecting the Mirror Margins check box .HeaderDistance Distance of header from the top of the page .FooterDistance Distance of footer from the bottom of the page .SectionStart Determines the type of section break:0 (zero) Continuous1 New Column2 New Page3 Even Page4 Odd Page .OddAndEvenPages If 1, corresponds to selecting the Different Odd And Even check box .DifferentFirstPage If 1, corresponds to selecting the Different First Page check box .Endnotes If 1, corresponds to selecting the Suppress Endnotes check box .LineNum If 1, corresponds to selecting the Add Line Numbering check box .StartingNum The number at which to begin line numbering .FromText The distance from text, in points or a text measurement; 0 (zero) sets automatic spacing .CountBy The numeric increment used to print line numbers. .NumMode Determines how lines are numbered:0 (zero) Restart at each new page1 Restart at each new section2 Continuous Examples This Windows example sets the top margin to 1 inch for the entire document: FilePageSetup .ApplyPropsTo = 4, .TopMargin = "1 in" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.02.2003, 13:32 |
|
||
|
VBA Word
|
|||
|---|---|---|---|
|
#18+
Круто! Предполагается. что английский для всех родной... Худо-бедно, но я выкрутилась из ситуации, но вот новая проблема... Есть ли у какого-нибудь объекта Word( строки страницы, строки таблицы и т.п.) свойство "Последний"? Т.е. как вытащить сигнал, что находишься в самом конце листа? Причина вот в чем: в конце документа, в самом низу страницы надо печатать ФИО исполнителя. А как программно определить этот "низ"? Через запись макросов не выходит. Вставляю пустые строки - это только макрос и записывает,а момент конца страницы ест-нно не фиксируется. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.02.2003, 02:53 |
|
||
|
VBA Word
|
|||
|---|---|---|---|
|
#18+
Такой "метки" нет. У таблицы можно подсчитать строки, но ведь последняя строка не обязательно будет в конце страницы! А поле колонтитула для этого не подойдет? Ну или так: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.02.2003, 15:18 |
|
||
|
VBA Word
|
|||
|---|---|---|---|
|
#18+
В модуле Word пишу: With ActiveDocument.Sections(1) .Footers(wdHeaderFooterPrimary).Range.Text = "Слово" End With Запускаю (в Word) - все прекрасно,в нижнем колонтитуле печатает "Слово". В модуле Access пишу: Set obWord = GetObject(, "Word.Application") Set obWindow = obWord.ActiveDocument.ActiveWindow With obWindow.Sections(1) .Footers(1).Range.Text = "Слово" End With Запускаю. Ошибка: "Объект не поддерживает...." ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.02.2003, 17:25 |
|
||
|
VBA Word
|
|||
|---|---|---|---|
|
#18+
С предыдущим вопросом мне помогли разобраться, теперь вот что: Заполнение страницы Word организовано в виде растущей вниз и заполняющейся построчно таблицы. В некоторых строках находятся заголовки очередных пунктов. Как не разрешать разрывать по страницам соседние строки если в первую заносится заголовок очередного раздела? В этом случае эта строка не может быть последней и должна перескочить на следующую страницу. Все еще усложняется тем,что строка под заголовком может выглядеть именно как таблица (рамка,ячейки...) и иметь высоту больше строки "по умолчанию". Оказываясь последей на странице она перепрыгивает вниз,"теряя" свой заголовок. Пыталась играть с "абзац - не разрывать", но с таблицей это, кажется не работает. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.02.2003, 10:12 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32110280&tid=1682245]: |
0ms |
get settings: |
7ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
36ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
| others: | 234ms |
| total: | 346ms |

| 0 / 0 |
