Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
11<br />
Sub Красный ()<br />
‘ Отдельные с<strong>и</strong>мволы по всему документу можно раскрас<strong>и</strong>ть,<br />
‘ как пятерку в этом макросе.<br />
For Each с<strong>и</strong>мвол In ActiveDocument.<strong>Word</strong>s<br />
If с<strong>и</strong>мвол = “5” Then с<strong>и</strong>мвол.Font.ColorIndex = wdRed<br />
Next<br />
End Sub<br />
Sub Следующ<strong>и</strong>йДокумент ()<br />
‘ Как автомат<strong>и</strong>ческ<strong>и</strong> пр<strong>и</strong>сво<strong>и</strong>ть новому документу следующ<strong>и</strong>й номер<br />
‘ Помест<strong>и</strong>те в него поле, <strong>на</strong>чн<strong>и</strong>те нумерац<strong>и</strong>ю, а остальное сделает макрос.<br />
On Error Resume Next<br />
старыйНомер = ActiveDocument.FormFields (1).Result<br />
ActiveDocument.FormFields (1).Result = старыйНомер + 1<br />
End Sub<br />
Sub Ж<strong>и</strong>рный ()<br />
‘ Выдел<strong>и</strong>те ж<strong>и</strong>рным шр<strong>и</strong>фтом столько букв, сколько захот<strong>и</strong>те.<br />
On Error Resume Next<br />
счет = InputBox (“Сколько ”)<br />
For счетч<strong>и</strong>к=1 To счет<br />
ActiveDocument.<strong>Word</strong>s (счетч<strong>и</strong>к).Font.Bold = True<br />
Next<br />
End Sub<br />
Sub Лат<strong>и</strong>н<strong>и</strong>цаК<strong>и</strong>р<strong>и</strong>лл<strong>и</strong>ца ()<br />
‘ Тот, кто переп<strong>и</strong>сывается по электронной почте с зарубежным<strong>и</strong><br />
‘ абонентам<strong>и</strong>, з<strong>на</strong>ет, что такое лат<strong>и</strong>н<strong>и</strong>ца. Это когда русск<strong>и</strong>е буквы<br />
‘ заменяют лат<strong>и</strong>нск<strong>и</strong>м<strong>и</strong>, оставляя русск<strong>и</strong>е фразы. Naprimer, tak.<br />
‘ Предлагаемая программа автомат<strong>и</strong>з<strong>и</strong>рует перевод выделенного<br />
‘ фрагмента <strong>и</strong>л<strong>и</strong> всего текста в лат<strong>и</strong>н<strong>и</strong>цу <strong>и</strong>л<strong>и</strong> обратно в к<strong>и</strong>р<strong>и</strong>лл<strong>и</strong>цу.<br />
‘ Функц<strong>и</strong>я ЧтоМенять <strong>и</strong> подпрограмма Вернуться вам уже з<strong>на</strong>комы.<br />
дл<strong>и</strong><strong>на</strong> = Len (Selection.Text)<br />
If дл<strong>и</strong><strong>на</strong>
Change language