Переход на указанную страницу Ms Word

  • Автор темы V88
  • Дата начала
V

V88

Здравствуйте!
Кто знает как программно реализовать переход на указанную страницу MS Word (желательно в ее начало)?
Заранее спасибо.
 
E

etc

Если открыть ворд, начать запись макроса и перейти на указанную страницу, то маскос расскажет как!
 
V

V88

Вот это получается :
Sub Макрос3()
'
' Макрос3 Макрос
' Макрос записан 27.08.2010 Admin
'
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
End Sub

И как это реализовать в Delphi? :newconfus:

Можно также прописать заранее в докумене-Ворд макрос, а потом в дельфи его выполнять, НО как его выполнить в Delphi? На функцию Run("[имя макроса]") Delphi ругается.
В гугле искал - там только про Excel, а про Word ничего толком не нашел. C Excelem Run работает, а вот в Wordom почему-то нет :(
 
H

hosm

переписать со скобками.
имена параметров опускаются, порядок параметров уточняется в хелпе ВБА ворда.
т.е. должно быть нечто типа такого:
WordApp.Selection.GoTo(wdGoToPage, 2);


Добавлено:
В гугле искал - там только про Excel, а про Word ничего толком не нашел.
всё вот вы врете и не краснеете =)
вот пример, в котором встречается код по переходу на страницу

вот пример по поиску-замене:

имена параметров опускаются, порядок параметров уточняется в хелпе ВБА ворда.
гы, а в делфях это не обязательно делать, судя по примерам, прокушивает и такой вид, как (имя:=значение)
 
V

V88

Всем спасибо, я разобрался.
Короче я сделал через макрос. Заранее записал макрос перехода на 2-ю страницу в Ворде и запукаю его из Дельфи.
Вперед у меня не пулучалось, Дельфи ругался на ф-ю Run, потому что я писал ее Doc.Run('[макрос]'); (где Doc - это Doc := Word.ActiveDocument;), а надо было Doc.Application.Run('[макрос]'). И все получилось. :unsure:
P.S. Средствами непосредственно Дельфискими (без маросов) так и не получилось. :( Кто знает скиньте код в личку.
 
E

etc

А справку принципиально не открываем?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!