|
|
|
Закладка в колонтитуле
|
|||
|---|---|---|---|
|
#18+
Здрасти! Подскажите пжлс-та, как в нижний колонтитул вытянуть значение закладки, причем чтобы этот колонтитул появлялся только со второй страницы worda. Спасибо :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.11.2007, 14:32 |
|
||
|
Закладка в колонтитуле
|
|||
|---|---|---|---|
|
#18+
Хех, такой форум а помочь никто не может.Может не совсем понятно, что я имею ввиду. В ворде есть какая то закладка пусть req_num, необходимо значение из этой закладки скопировать в колонтитулы, но только со второй страницы. Чтоже я пытаюсь сделать: Dim nom As String Selection.Bookmarks.Item("req_num").Copy("req_num") = nom // пытаюсь скопировать значение этой закладки в перем nom, конечно ошибка ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Selection.TypeText Text:="Номер № " //теперь надо это значение как то вставить :( после "Номер № " ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Помогите плиз ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.11.2007, 08:15 |
|
||
|
Закладка в колонтитуле
|
|||
|---|---|---|---|
|
#18+
Пыталась и так копировать: Selection.GoTo What:=wdGoToBookmark, Name:="req_num" With ActiveDocument.Bookmarks .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.Copy = nom Только вот присвоить никак не дает все выдает ошибку ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.11.2007, 08:25 |
|
||
|
Закладка в колонтитуле
|
|||
|---|---|---|---|
|
#18+
Код: plaintext 1. 2. 3. 4. 5. 6. могу ошибаться, но чтобы колонтитул отображался только со второй страницы, надо со второй страницы создать новый раздел и там править колонтитул I Have Nine Lives You Have One Only THINK! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.11.2007, 09:51 |
|
||
|
Закладка в колонтитуле
|
|||
|---|---|---|---|
|
#18+
Дело в том что, шаблон документа состоит из 1 стр. А печатный отчет может размещаться и на 1 листе и на 5. Что то у меня ваш код не прокатил. А нельзя как то сделать наподобии этого: //нумерация со второй страницы Dim rng As Range Dim intPages As Integer Set rng = ActiveDocument.Content intPages = rng.Information(wdNumberOfPagesInDocument) If intPages > 1 Then With ActiveDocument.Sections(1) .Footers(wdHeaderFooterPrimary).PageNumbers.Add _ PageNumberAlignment:=wdAlignPageNumberRight, _ FirstPage:=False End With End If ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.11.2007, 11:38 |
|
||
|
|

start [/forum/topic.php?fid=60&msg=34921281&tid=2163119]: |
0ms |
get settings: |
8ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
55ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
57ms |
get tp. blocked users: |
2ms |
| others: | 202ms |
| total: | 356ms |

| 0 / 0 |
