Цитата
victor21043:
Получается, для каждой новой версии word нужно заново писать макросы...
2010 - Конвертация кода VBA 2003 в 2010\макросы
victor21043, я очень слабо представляю объектную модель Word, но насколько я понимаю - изменить нужно только обращение к полю, которое вы хотите скрыть (выделено в коде красным).
По крайней мере у меня в таком варианте поле скрывается и отображается.
Код
[spoiler]Код:
[/spoiler]
Код: Выделить всё
Public Sub Button_click() 'проц. можно вызывать в люб. модуле
Dim Start 'явное объявление литерально
Start = Timer
Do While Timer < Start + 0.7 ' 1 sec delay
'итеративный цикл с предусловием
DoEvents 'DoEvents передает управление операционной системе
Loop ' а сама функция возвращает число открытых форм в VB-приложении
With Button
.Caption = IIf(.Caption Like "+*", ">> Сlose", "+ English")
'iif возвращает одно из двух значений, в зависимости от проверяемого условия
Shapes.Range(Array("Поле 1")).Visible = .Caption Like ">> *"
'MsgBox "English" & vbCrLf & "CV", vbInformation, "",
End With
End Sub
Цитата
Iska:
один код с небольшими изменениями прошёл реинкарнацию
2010 - Конвертация кода VBA 2003 в 2010\макросы
У меня код при переходе с 2003 на 2010 не имел ни одного изменения по тексту, при этом не работал вообще никак. Спасло только перекопирование текста кода. Заработало без внесения каких-либо изменений по коду. Как я понял - кроме текста кода сохраняется большое количество служебной информации, которая также может содержать ошибки, из-за которых код может работать не вполне правильно. Речь правда про Excel.
