Имя: Пароль:
1C
 
поиск в Word
0 Kolyasik
 
21.03.08
13:57
кто нить сталкивался с множественным поиском заменой в ворде?
нужно найти и заменить все слова в тексте и заменить...
или хотябы как перебрать все строки в ворде...
как заменить одно значения я понял... но ищет только первое попавшееся...
1 Stepa86
 
21.03.08
14:12
Так может в цикле его забацать??? Че метод возвращает???
2 mikecool
 
21.03.08
14:16
(0) вот тебе макрос
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 21.03.2008 Михаил
'
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "Измерение"
       .Replacement.Text = "2Измерение"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub
3 Kolyasik
 
21.03.08
15:19
перерыл visual studio нарыл

Поиск = ОбъектДокумент.Content.Find;
Поиск.Execute(ИмяПараметра,,,,,,,,,ЗначениеПараметра,2);

в VBA я и сам нашел... я искал параметр wdReplaceAll как его в 1С ку заслать, оказалось "2" ;) блин полдня потратил %)
4 Kolyasik
 
21.03.08
15:22
и самое интересное сто в макросах офиса писаных все параметры в рандомном порядке.. так что для С-ки ето мало-толковый вариант... т.к. то что в офисе словами в С-ку хз как засовыввать, тот же гемор с цветами ворда - в С-ку их методом научного тыка сувать только... %)