|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.12.2010, 09:01 | #1 |
Новичок
Джуниор
Регистрация: 28.12.2010
Сообщений: 2
|
Макрос замены в word
Всем доброго времени суток!
Нужна помощь. столкнулся с такой проблемой: Даны два документа. В первом — некоторый текст, во втором — список замен. Содержимое второго файла — набор абзацев, по два слова в каждом. Первое слово — что заменять, второе — чем заменять. Нужно написать макрос, чтобы произвести в первом документе все замены, описанные во втором документе. Заранее всем большой спасибо |
28.12.2010, 09:21 | #2 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
падежи
Различают спечённые и литые твёрдые сплавы\металл.
Главной особенностью спеченных твердых сплавов\металл является то, что изделия из них получают методами порошковой металлургии и они поддаются только обработке шлифованием или физико-химическим методам обработки (лазер\травление, ультразвук,), а литые твердые сплавы\металл предназначены для наплавки на оснащаемый инструмент и проходят не только механическую, но часто и термическую обработку (закалка, отжиг, старение и др). либо на каждый падеж-склонение своя замена либо е-р-у-н-д-а получается иной раз придется менять и прилагательное(новый-новая-новые) или который-которая-которые ................................... и т.д.
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
28.12.2010, 23:00 | #3 |
Новичок
Джуниор
Регистрация: 28.12.2010
Сообщений: 2
|
Падежи
Благодарю за участие.
Падежи не имеют значения, я не корректно привел пример. Менять необходимо названия сплавов, которые не склоняются. Спасибо,надеюсь на помощь! |
19.06.2012, 05:33 | #4 |
Форумчанин
Регистрация: 17.06.2012
Сообщений: 975
|
Dim a(4) As Variant
Dim b(4) As Variant a(1) = "Сплавы" a(2) = "Лазер" a(3) = "ВК20" a(4) = "ВК25" b(1) = "металл" b(2) = "травление" b(3) = "р6м5" b(4) = "Сталь40" Selection.HomeKey Unit:=wdStory ActiveWindow.View.Type = wdNormalView ActiveWindow.ActivePane.View.Zoom.P ageFit = wdPageFitBestFit For i = 1 To 4 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFor matting With Selection.Find .Text = a(i) .Replacement.Text = b(i) .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Next i вы смотрите макрос из... двухтыщного года то бишь из прошлого века!
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
Последний раз редактировалось сфинкс; 19.06.2012 в 05:48. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос пакетной замены | swan1976 | Microsoft Office Word | 2 | 26.12.2009 17:48 |
Макрос для поиска и замены слов на слова с верхним подчеркиванием | salvafion | Microsoft Office Word | 4 | 07.09.2009 19:14 |
Как открыть из дельфи файл MS Word и выполнить в нем замены подстрок | RusArtm | Общие вопросы Delphi | 9 | 05.06.2009 13:29 |
Макрос в Word | Mictiann | Microsoft Office Word | 1 | 12.09.2007 09:35 |
Макрос для поиска/замены | Davidoff | Microsoft Office Excel | 1 | 20.01.2007 16:01 |