|
|
|
Макрос Word в FoxPro
|
|||
|---|---|---|---|
|
#18+
Добрый день! Хочу в документе Word везде заменить слово STREET на слово УЛИЦА. Макрос, который создан Word-ом, представлен ниже. Хотелось бы адаптировать его под Fox. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "STREET" .Replacement.Text = "УЛИЦА" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.05.2011, 12:30 |
|
||
|
Макрос Word в FoxPro
|
|||
|---|---|---|---|
|
#18+
Макс_П, создаёте объект ворда в фоксе Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.05.2011, 13:00 |
|
||
|
Макрос Word в FoxPro
|
|||
|---|---|---|---|
|
#18+
Макс_П Selection.Find.Execute Replace:=wdReplaceAll Значение константы wdReplaceAll = 2. Пробовал: Selection.Find.Execute Replace=2 и так Selection.Find.Execute=2 Но это не работает. Как здесь для Fox-a сделать правильно? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.05.2011, 15:31 |
|
||
|
Макрос Word в FoxPro
|
|||
|---|---|---|---|
|
#18+
Макс_ПМакс_П Selection.Find.Execute Replace:=wdReplaceAll Значение константы wdReplaceAll = 2. Пробовал: Selection.Find.Execute Replace=2 и так Selection.Find.Execute=2 Но это не работает. Как здесь для Fox-a сделать правильно? А как в синтаксисе FoxPro запускаются процедуры и методы и как им передаются параметры? Вот так и делаете Открываете справку VBA по методу Find.Execute() и смотрите его синтаксис VBA Word 2003. Execute method as it applies to the Find objectexpression.Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl) ReplaceWith - это 10 параметр. Значит, надо предварить 9 запятыми Код: plaintext Соответственно, вместо предварительного формирования параметров Find можно просто указать их как параметры метода Execute() ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.05.2011, 16:06 |
|
||
|
Макрос Word в FoxPro
|
|||
|---|---|---|---|
|
#18+
ВладимирМVBA Word 2003. Execute method as it applies to the Find objectexpression.Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl) ReplaceWith - это 10 параметр. Значит, надо предварить 9 запятыми Код: plaintext Соответственно, вместо предварительного формирования параметров Find можно просто указать их как параметры метода Execute() Подробно и доходчиво! Спасибо!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.05.2011, 17:44 |
|
||
|
Макрос Word в FoxPro
|
|||
|---|---|---|---|
|
#18+
Всем, добрый день! Хочу сделать поиск в Excel. Код взял из макроса Excel и переделал под Fox. Когда ищу существующее значение, то всё нормально, а если значение отсутствует, то выдаёт ошибку Member Find does not evaluate to an object Что я делаю не так? loExcel = CREATEOBJECT("Excel.Application") loExcelDoc = loExcel.WorkBooks.Open(&q1) loExcelDoc.Sheets(1).Select WITH loExcel.Selection IF .Cells.Find("ААААААААААА",,-4123,2,1,1,.F.,,.F.).Activate <--- место ошибки ENDIF ENDWITH ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.02.2012, 15:12 |
|
||
|
Макрос Word в FoxPro
|
|||
|---|---|---|---|
|
#18+
Наверно ошибка если не найдено - это нормальное поведение. Перехватывай через TRY...CATCH ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.02.2012, 15:16 |
|
||
|
Макрос Word в FoxPro
|
|||
|---|---|---|---|
|
#18+
> Автор: Макс_П > IF .Cells.Find("ААААААААААА",,-4123,2,1,1,.F.,,.F.).Activate <--- место ошибки Метод Find возвращает объект Range, если что-то находит. Поэтому присваивай результат Find'a переменной, проверяй эту переменную на содержание объекта, и если это объект, тогда вызывай метод Activate. Т.е. как-то так: Код: sql 1. 2. 3. 4. 5. 6. 7. Posted via ActualForum NNTP Server 1.5 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.02.2012, 15:48 |
|
||
|
|
start [/forum/topic.php?fid=41&msg=37280250&tid=1583864]: |
0ms |
get settings: |
11ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
37ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
38ms |
get tp. blocked users: |
1ms |
| others: | 14ms |
| total: | 136ms |
| 0 / 0 |
