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

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

V88

Здравствуйте!
Кто знает как программно реализовать переход на указанную страницу MS Word (желательно в ее начало)?
Заранее спасибо.
 
Если открыть ворд, начать запись макроса и перейти на указанную страницу, то маскос расскажет как!
 
Вот это получается :
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 почему-то нет :(
 
переписать со скобками.
имена параметров опускаются, порядок параметров уточняется в хелпе ВБА ворда.
т.е. должно быть нечто типа такого:
WordApp.Selection.GoTo(wdGoToPage, 2);


Добавлено:
В гугле искал - там только про Excel, а про Word ничего толком не нашел.
всё вот вы врете и не краснеете =)
вот пример, в котором встречается код по переходу на страницу
http://www.cyberforum.ru/delphi-beginners/thread56267.html
вот пример по поиску-замене:
http://www.delphisources.ru/pages/faq/base...place_strs.html
имена параметров опускаются, порядок параметров уточняется в хелпе ВБА ворда.
гы, а в делфях это не обязательно делать, судя по примерам, прокушивает и такой вид, как (имя:=значение)
 
Всем спасибо, я разобрался.
Короче я сделал через макрос. Заранее записал макрос перехода на 2-ю страницу в Ворде и запукаю его из Дельфи.
Вперед у меня не пулучалось, Дельфи ругался на ф-ю Run, потому что я писал ее Doc.Run('[макрос]'); (где Doc - это Doc := Word.ActiveDocument;), а надо было Doc.Application.Run('[макрос]'). И все получилось. :unsure:
P.S. Средствами непосредственно Дельфискими (без маросов) так и не получилось. :( Кто знает скиньте код в личку.
 
А справку принципиально не открываем?
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

🚀 Первый раз на Codeby?
Гайд для новичков: что делать в первые 15 минут, ключевые разделы, правила
Начать здесь →
🔴 Свежие CVE, 0-day и инциденты
То, о чём ChatGPT ещё не знает — обсуждаем в реальном времени
Threat Intel →
💼 Вакансии и заказы в ИБ
Pentest, SOC, DevSecOps, bug bounty — работа и проекты от проверенных компаний
Карьера в ИБ →

HackerLab