powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Закладка в колонтитуле
6 сообщений из 6, страница 1 из 1
Закладка в колонтитуле
    #34918954
Stany555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здрасти!
Подскажите пжлс-та, как в нижний колонтитул вытянуть значение закладки, причем чтобы этот колонтитул появлялся только со второй страницы worda.
Спасибо :)
...
Рейтинг: 0 / 0
Закладка в колонтитуле
    #34920666
Stany555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Хех, такой форум а помочь никто не может.Может не совсем понятно, что я имею ввиду. В ворде есть какая то закладка пусть 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
Помогите плиз
...
Рейтинг: 0 / 0
Закладка в колонтитуле
    #34920673
Stany555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пыталась и так копировать:
Selection.GoTo What:=wdGoToBookmark, Name:="req_num"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.Copy = nom
Только вот присвоить никак не дает все выдает ошибку
...
Рейтинг: 0 / 0
Закладка в колонтитуле
    #34920840
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Public Sub etst()
    ' задаем верхний колонтитул из первой закладки
    Dim objSection As Section
        
    Set objSection = ThisDocument.Sections( 1 )
    objSection.Headers(wdHeaderFooterPrimary).Range.Text = ThisDocument.Bookmarks( 1 ).Range.Text
End Sub

могу ошибаться, но чтобы колонтитул отображался только со второй страницы, надо со второй страницы создать новый раздел и там править колонтитул

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
Закладка в колонтитуле
    #34921281
Stany555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дело в том что, шаблон документа состоит из 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
...
Рейтинг: 0 / 0
Закладка в колонтитуле
    #34921455
Stany555
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ваш код заработал, надо было просто ThisDocument изменить на ActiveDocument.
Спасибо!
Чтоб печатал со второй стр. я сама уже разобралась :)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Закладка в колонтитуле
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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