Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Kurakov
0 / 0 / 1
Регистрация: 02.07.2013
Сообщений: 25
1

Создание макрос

08.11.2013, 14:04. Просмотров 338. Ответов 1
Метки нет (Все метки)

Необходимо сделать в ворде макрос, который менял бы кодировку документ и последний становился просто нечитабельным.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.11.2013, 14:04
Ответы с готовыми решениями:

Макрос на создание копии файла
Добрый день всем. Помогите с макросом. Есть файл Excel. При сохранении...

Макрос в Outlook (создание письма)
Добрый день! Как в программе Outlook создать макрос, который будет: 1)...

Макрос создание таблицы с датами
Всех приветствую! Прошу помощи в создании отдельной части макроса ибо ранее не...

Макрос на создание одной таблицы из нескольких
Здравствуйте! Имеется несколько одинаковых таблиц на разных листах, отличаются...

Макрос на создание сводной таблицы с несколькими столбцами
добрый вечер! имеется таблица, из которой нужно сделать сводную с несколькими...

1
KoGG
5277 / 1350 / 320
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
08.11.2013, 14:43 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Shifrovat()
    Dim oChar As Range, NewText
    For Each oChar In ActiveDocument.Content.Characters
        If Asc(oChar.Text) > 33 Then
            NewText = NewText & Chr(Asc(oChar.Text) - 1)
        Else
            NewText = NewText & oChar.Text
        End If
    Next oChar
    ActiveDocument.Content.Select
    Selection.TypeText (NewText)
End Sub
 
Sub DeShifrovat()
    Dim oChar As Range
    For Each oChar In ActiveDocument.Content.Characters
        If Asc(oChar.Text) > 32 Then
            NewText = NewText & Chr(Asc(oChar.Text) + 1)
        Else
            NewText = NewText & oChar.Text
        End If
    Next oChar
    ActiveDocument.Content.Select
    Selection.TypeText (NewText)
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.11.2013, 14:43

Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос
Необходимо изменить ниже приведённый макрос, взятый с форума. Необходима...

Макрос: из PowerPoint развернуть Exel и вызвать уже в нём макрос
Собственно сабж. Работая в презентации PowerPoint нужно по клику на кнопку с...

Макрос, чтобы другой макрос распихал сам по N файлам
Может эта тема уже тут звучала, да поиск не помог... Просто проблема в том, что...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru