Sub RenameBMPFile() '
ipath$ = ActiveDocument.Path & "\"
iFileName$ = Dir(ipath$ & "*.bmp")
Do While iFileName$ <> ""
iTempName$ = iFileName$
For iCount% = 1 To Len(iFileName$)
iSymbol$ = Mid(iFileName$, iCount%, 1)
If iSymbol$ Like "У" Then Mid(iTempName$, iCount%, 1) = "у"
Next
If iTempName$ <> iFileName$ Then _
Name ipath$ & iFileName As ipath$ & iTempName$
'If iTempName$ <> iFileName$ Then MsgBox iPath$ & iFileName
iFileName = Dir
Loop
End Sub
еще раз про Option Compare Text
Хотелось бы немного уточнить вопрос с Option Compare Text.
Если такое объявление стоит в начале модуля, то можно ли его обойти в частном случае, выполняя такую проверку:
If iSymbol$ Like "У" Then Mid(iTempName$, iCount%, 1) = "у" ?
Вся процедура выглядит так:
Если такое объявление стоит в начале модуля, то можно ли его обойти в частном случае, выполняя такую проверку:
If iSymbol$ Like "У" Then Mid(iTempName$, iCount%, 1) = "у" ?
Вся процедура выглядит так:
Код:
Нет. В Mid нет таких опций.
А тогда можно ли действие Option Compare Text ограничить рамками одной процедуры?
Цитата: Dmitry2064
А тогда можно ли действие Option Compare Text ограничить рамками одной процедуры?
Нельзя. Действие этой инструкции распространяется на весь модуль.
Понял.