Вопрос по Word-у

[Info_m.be_free]

=Intro ничего-себе форум =
-------------------------------------------------------------------------------------
Итак вопрос...
Как в Word-e вставить гиперссылку, например, на начало документа на последнюю строку каждой страницы ?
-------------------------------------------------------------------------------------

[RayShade]

Returns a Hyperlink object that represents a new hyperlink added to a range, selection, or document.



Hyperlinks.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay, Target)



expression Required. An expression that returns a Hyperlinks object.



Anchor Required Object. The text or graphic that you want turned into a hyperlink.



Address Optional Variant. The address for the specified link. The address can be an e-mail address, an Internet address, or a file name. Note that Microsoft Word doesn't check the accuracy of the address.



SubAddress Optional Variant. The name of a location within the destination file, such as a bookmark, named range, or slide number.



ScreenTip Optional Variant. The text that appears as a ScreenTip when the mouse pointer is positioned over the specified hyperlink. The default value is Address.



TextToDisplay Optional Variant. The display text of the specified hyperlink. The value of this argument replaces the text or graphic specified by Anchor.



Target Optional Variant. The name of the frame or window in which you want to load the specified hyperlink.

[Info_m.be_free]

2 RayShade
Большое тебе Человеческое Спасибо.
Только вот одна маааленькая деталь
Как вставить её в конец каждого листа документа (на последнюю строку)... ведь страниц - то 2000...

[RayShade]

Двигай Selection по документу и вставляй гиперссылку как

hyperlinks.add selection.range, selection.range.text

[Info_m.be_free]

Признаюсь ... я ... действительно не знаю как поставить Selection на последнюю строчку листа... ну не знаю ... или скажу по-другому не знаю... Help please Sir...

[RayShade]

Думаешь, если бы я знал человеческий способ двигать Selection на последнюю строчку, я бы его не сказал Проблема в том что у меня тоже как то это не очень получается Можно попробовать сделать это так:



Selection.MoveUntil Chr(10)

Selection.MoveUp wdLine, 1, wdExtend

ActiveDocument.Hyperlinks.Add Selection.Range, Selection.Range.Text, , "This is my link", "Hyperlink at the end of page", "_blank"

[Info_m.be_free]

Не, ну "MoveUntil Chr(10)" отведёт до следующего Chr(10), а Ворд разбивает текст сам не спрашиваясь стоит ли там Chr(10). Вобщем лажка получается... Вот #сли бы определить количество строк на странице и перейти на Страница.строк count -1...

Ну KAK влепить на каждой странице эту гиперссылку?

[RayShade]

Расчет был на то, что chr(10) это символ разрыва страницы. Так что по идее переход должен быть верным.

[Info_m.be_free]

...не пашет, а это значит не работает, чегото не фатает, а чего не пойму башка уже не варит. Ползёт вверх, вставляет гиперссылки по тексту но не там де надо...

[RayShade]

Вот такой вот способ оказывается



selection.goto wdgotopage, wdgotofirst

Set a = Selection.GoTo(wdGoToPage, wdGoToNext)

Do Until a Is Nothing

Selection.MoveUp wdLine, 1, wdExtend

ActiveDocument.Hyperlinks.Add Selection.Range, Selection.Range.Text, , "This is my link", "Hyperlink at the end of page", "_blank"

Set a = Selection.GoTo(wdGoToPage, wdGoToNext)

Loop

[Calvin]

У меня тут вопрос приблизительно по этой теме возник: Никто не знает, как определить количество листов в Вордовском документе?

[RayShade]

Очень просто:

ActiveDocument.ComputeStatistics wdStatisticPages