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

Тема в разделе "Delphi - FAQ", создана пользователем V88, 27 авг 2010.

  1. V88

    V88 Well-Known Member

    Регистрация:
    22 окт 2008
    Сообщения:
    51
    Симпатии:
    0
    Здравствуйте!
    Кто знает как программно реализовать переход на указанную страницу MS Word (желательно в ее начало)?
    Заранее спасибо.
     
  2. etc

    etc Гость

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

    V88 Well-Known Member

    Регистрация:
    22 окт 2008
    Сообщения:
    51
    Симпатии:
    0
    Вот это получается :
    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 почему-то нет :(
     
  4. hosm

    hosm * so what *

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


    Добавлено:
    всё вот вы врете и не краснеете =)
    вот пример, в котором встречается код по переходу на страницу
    http://www.cyberforum.ru/delphi-beginners/thread56267.html
    вот пример по поиску-замене:
    http://www.delphisources.ru/pages/faq/base...place_strs.html
    гы, а в делфях это не обязательно делать, судя по примерам, прокушивает и такой вид, как (имя:=значение)
     
  5. etc

    etc Гость

    В справке делфевой об этом спец. параграф есть.
    Автор искал не по тому ключевому слову. :newconfus:
     
  6. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    ну, я их иде лет 8 не видела. или уже даже 9 =)
     
  7. V88

    V88 Well-Known Member

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

    etc Гость

    А справку принципиально не открываем?
     
Загрузка...

Поделиться этой страницей