|
from VBA into FoxPro (help)
|
|||
---|---|---|---|
#18+
уважаемые помогитье перевести в VBA! В открываемом фале WORDа есть закладка "hhh". Этот код делает переход к ней на VBA. Но переделать в Фокс я его не могу, помогите! Заранее благодарю. Selection.GoTo What:=wdGoToBookmark, Name:="hhh" 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 ... |
|||
:
Нравится:
Не нравится:
|
|||
05.08.2004, 05:57 |
|
from VBA into FoxPro (help)
|
|||
---|---|---|---|
#18+
To a1a: Есть отработанный VFP-пример именно по закладкам Word’a, объем – 3,45 Мбайт. Если есть необходимость – сообщите E-mail, куда сбросить. У меня работает отлично уже больше года. Мой E-mail: trnikolaj@yandex.ru ... |
|||
:
Нравится:
Не нравится:
|
|||
05.08.2004, 09:25 |
|
from VBA into FoxPro (help)
|
|||
---|---|---|---|
#18+
необходимость есть, сбросте пожалуста на a1a@freemail.ru Заранее спасибо! ... |
|||
:
Нравится:
Не нравится:
|
|||
05.08.2004, 09:42 |
|
from VBA into FoxPro (help)
|
|||
---|---|---|---|
#18+
Сбросил. Надеюсь, разберетесь. А переход на метку я описал там следующим образом: loWord.Selection.GoTo(-1,0,0,"metka") где ссылка loWord заблаговременно получена из следующего кода: Wait window nowait "...Запускается Word.." lcOldError=On("ERROR") on error loWord=.NULL. loWord=GetObject(,"Word.Application") && Попытка использовать уже запущенный Word on error &lcOldError if isnull(loWord) loWord=CreateObject("Word.Application") && Запуск Word'à, если он не был запущен ранее до начала работы с программой endif ... |
|||
:
Нравится:
Не нравится:
|
|||
05.08.2004, 21:40 |
|
from VBA into FoxPro (help)
|
|||
---|---|---|---|
#18+
neznajka, не могли бы Вы прислать тот пример из VFP, который у Вас хорошо работает(связь с Word)? ... |
|||
:
Нравится:
Не нравится:
|
|||
02.11.2010, 13:25 |
|
from VBA into FoxPro (help)
|
|||
---|---|---|---|
#18+
neznajka, мой емайл ezaus@mail.ru ... |
|||
:
Нравится:
Не нравится:
|
|||
02.11.2010, 13:29 |
|
|
start [/forum/topic.php?fid=41&fpage=86&tid=1584839]: |
0ms |
get settings: |
10ms |
get forum list: |
12ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
34ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
46ms |
get tp. blocked users: |
2ms |
others: | 15ms |
total: | 143ms |
0 / 0 |