Replacement заменяет только последнее совпадение

@Евгений М · Регистрация: 28.01.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте! Подскажите, пожалуйста, почему код заменят только данные введенные в переменную "НомерДоговора" а "DateDogovora" игнорирует?

Visual Basic

Sub my_replace()
Dim DateDogovora As String
Dim НомерДоговора As String
DateDogovora = InputBox("Введите дату договора")
НомерДоговора = InputBox("Введите номер договора")
 
Selection.Find.Text = "ДД.ММ.ГГГГ"
Selection.Find.ClearFormatting
 
Selection.Find.Replacement.Text = DateDogovora
Selection.Find.Replacement.ClearFormatting
 
 
Selection.Find.Text = "ПРЭС-ГГ-XXXXX"
Selection.Find.ClearFormatting
 
Selection.Find.Replacement.Text = НомерДоговора
Selection.Find.Replacement.ClearFormatting
 
 
 
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

SoftIce · 14.05.2018, 06:33

Сообщение от Евгений М

Selection.Find.Text = "ДД.ММ.ГГГГ"

В тексте так и есть - "ДД.ММ.ГГГГ" ?

shanemac51 · 14.05.2018, 06:35

Visual Basic

Sub my_replace()
Dim DateDogovora As String
Dim НомерДоговора As String
DateDogovora = InputBox("Введите дату договора")
НомерДоговора = InputBox("Введите номер договора")
 
Selection.Find.Text = "ДД.ММ.ГГГГ"
Selection.Find.ClearFormatting
 
Selection.Find.Replacement.Text = DateDogovora
Selection.Find.Replacement.ClearFormatting
 
Selection.Find.Execute Replace:=wdReplaceAll
 
Selection.Find.Text = "ПРЭС-ГГ-XXXXX"
Selection.Find.ClearFormatting
 
Selection.Find.Replacement.Text = НомерДоговора
Selection.Find.Replacement.ClearFormatting
 
 
 
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

SoftIce · 14.05.2018, 06:37

Сообщение от Евгений М

Selection.Find.Execute Replace:=wdReplaceAll

Это попробуйте добавить после 11-ой строки.

Не по теме:

Галина опередила :)

@Евгений М · 14.05.2018, 07:19 **[ТС]**

Большое спасибо! Получилось!

Добавлено через 38 минут
Подскажите еще. Почему редактор выделяет красным цветом строку "my_rep_fun(ДатаДоговора, "ДД.ММ.ГГГГ")"?

Visual Basic

Function my_rep_fun(textreplace As String, args As String)
    Selection.Find.Text = textreplace
    Selection.Find.ClearFormatting
    
    Selection.Find.Replacement.Text = args
    Selection.Find.Replacement.ClearFormatting
    
    Selection.Find.Execute Replace:=wdReplaceAll
End Function
 
 
Sub my_replace()
Dim DateDogovora As String
Dim НомерДоговора As String
ДатаДоговора = InputBox("Введите дату договора")
НомерДоговора = InputBox("Введите номер договора")
my_rep_fun(ДатаДоговора, "ДД.ММ.ГГГГ")
End Sub

shanemac51 · 14.05.2018, 07:23

должно быть
либо

Visual Basic

1	my_rep_fun ДатаДоговора, "ДД.ММ.ГГГГ"

либо

Visual Basic

1	CALL my_rep_fun(ДатаДоговора, "ДД.ММ.ГГГГ")

@Евгений М · 14.05.2018, 07:33 **[ТС]**

my_rep_fun ДатаДоговора, "ДД.ММ.ГГГГ" - так код не работает, хотя и ошибок не показывает.
CALL my_rep_fun(ДатаДоговора, "ДД.ММ.ГГГГ") - так редактор подсвечивает желтым цветом "Sub my_replace()"

shanemac51 · 14.05.2018, 07:42

Visual Basic

Sub my_rep_fun(textreplace As String, args As String)
 
    Selection.Find.Text = textreplace
    Selection.Find.ClearFormatting
    
    Selection.Find.Replacement.Text = args
    Selection.Find.Replacement.ClearFormatting
    
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
 
 
Sub my_replace()
Dim ДатаДоговора As String
Dim НомерДоговора As String
ДатаДоговора = InputBox("Введите дату договора", , Date)
НомерДоговора = InputBox("Введите номер договора", , 1111)
''да и текст , в котором надо что-то заменить, [B]должен[/B] быть выделен(или раскомменчена cлед строка)
Word.ActiveDocument.Select
Call my_rep_fun("ДД.ММ.ГГГГ", ДатаДоговора)
Call my_rep_fun("ПРЭС-ГГ-XXXXX ", НомерДоговора)
 
End Sub

@Евгений М · 14.05.2018, 23:46 **[ТС]**

Большое спасибо! Код замечательно работает и облегчает монотонную работу.

Replacement заменяет только последнее совпадение

Решение

Решение

Решение

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	14.05.2018, 06:33	2
	Сообщение от Евгений М Selection.Find.Text = "ДД.ММ.ГГГГ" В тексте так и есть - "ДД.ММ.ГГГГ" ? 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	14.05.2018, 06:37	4
	Сообщение было отмечено Евгений М как решение Решение Сообщение от Евгений М Selection.Find.Execute Replace:=wdReplaceAll Это попробуйте добавить после 11-ой строки. Не по теме: Галина опередила :) 1

@Евгений М 1 / 1 / 0 Регистрация: 28.01.2015 Сообщений: 57
	14.05.2018, 07:33 [ТС]	7
	my_rep_fun ДатаДоговора, "ДД.ММ.ГГГГ" - так код не работает, хотя и ошибок не показывает. CALL my_rep_fun(ДатаДоговора, "ДД.ММ.ГГГГ") - так редактор подсвечивает желтым цветом "Sub my_replace()" 0

@Евгений М 1 / 1 / 0 Регистрация: 28.01.2015 Сообщений: 57
	14.05.2018, 23:46 [ТС]	9
	Большое спасибо! Код замечательно работает и облегчает монотонную работу. 0

Опции темы