|
|
|
VB-VFP
|
|||
|---|---|---|---|
|
#18+
Selection.Find.Execute Replace:=wdReplaceAll - как "перевести" из Вейзика этот кусок Фохксу.Спосибо ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.08.2006, 13:22 |
|
||
|
VB-VFP
|
|||
|---|---|---|---|
|
#18+
Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.08.2006, 13:24 |
|
||
|
VB-VFP
|
|||
|---|---|---|---|
|
#18+
похоже это кусок вызова функции с присвоением параметру значения т.е. на фоксе типа так : Selection.Find.Execute(wdReplaceAll) только нужно знать каким по счету идет этот параметр, и при необходимости поставить вместо отсутствующих параметров нужное кол-во запятых. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.08.2006, 13:28 |
|
||
|
VB-VFP
|
|||
|---|---|---|---|
|
#18+
Спосибо.Но дело в том что я програмно запустил Ворд там нужна заменит некоторие букву но здес ошибка. # DEFINE wdReplaceAll 2 # DEFINE wdFindAsk 2 oWord=CREATEOBJECT("Word.Application") oWord.Application.Documents.Open(GETFILE ('doc')) oWord.Selection.WholeStory oWord.Selection.Find.ClearFormatting oWord.Selection.Find.Replacement.ClearFormatting With oWord.Selection.Find .Text = "С" .Replacement.Text = "S" .Forward = .T. .Wrap = wdFindAsk .Format =.F. .MatchCase = .F. .MatchWholeWord = .F. .MatchWildcards = .F. .MatchSoundsLike = .F. .MatchAllWordForms = .F. EndWith *oWord.Selection.Find.Execute Replace:=wdReplaceAll && Error oWord.Application.Visible=.t. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.08.2006, 13:33 |
|
||
|
VB-VFP
|
|||
|---|---|---|---|
|
#18+
Selection.Find.Execute(wdReplaceAll) -этот код не помагло ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.08.2006, 13:52 |
|
||
|
VB-VFP
|
|||
|---|---|---|---|
|
#18+
Хелп по VBExecute Method (Find Object) Runs the specified find operation. Returns True if the find operation is successful. Syntax expression.Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl) как видишь твой параметр не первый , так что читай хелп - ставь нужные значения отсутствующих параметров. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.08.2006, 14:16 |
|
||
|
VB-VFP
|
|||
|---|---|---|---|
|
#18+
Selection.Find.Execute(wdReplaceAll) -этот код не помагло ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.08.2006, 14:49 |
|
||
|
|
start [/forum/topic.php?fid=41&msg=33952462&tid=1590884]: |
0ms |
get settings: |
9ms |
get forum list: |
20ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
141ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
46ms |
get tp. blocked users: |
1ms |
| others: | 249ms |
| total: | 483ms |
| 0 / 0 |
