Экспериментальный сайт kozhilya |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Экспериментальный сайт kozhilya » Общее » Производственный флуд
А я вижу оба. Значит всё ок.
ЮПИ!!! *прыгает от радости*
У тебя получилось! *хрюкнула*
Эй, хрюканье - моё ампла 
Значит, ввожу на форум!!!
И заодно две победившие на прошлом конкурсе примочки...
А на зимних каникулах я буду закатывать основные скрипты (награды и прочее) во внешние скрипты.
Значит, ввожу на форум!!!
Конечно!
И иконка супер!
И заодно две победившие на прошлом конкурсе примочки...
Напомни ка, какие?
Выделение реплик нам не нужно. Сам посуди.
А на зимних каникулах я буду закатывать основные скрипты (награды и прочее) во внешние скрипты.
Это как? Это круто?
Конечно!
И иконка супер!
Сам делал! 
Это как? Это круто?
Это значит, что в форме "html-низ" будет меньше букв.
Сам делал!
Молодчинка! *чмокнула в нос*
Это значит, что в форме "html-низ" будет меньше букв.
Это хорошо.
Молодчинка! *чмокнула в нос*
Это хорошо.
ага 
kozhilya
Только знаешь о чем мы не подумали? О том, что скрытый текст не будет виден админам. А любые скрытые тексты не должны скрываться от админов, я не права?
Только знаешь о чем мы не подумали? О том, что скрытый текст не будет виден админам. А любые скрытые тексты не должны скрываться от админов, я не права?
Резонно. Сейчас сделаю!
Готово Сейчас поставлю на сайт.
Фи, что за сопли белые наверху...
Фи, что за сопли белые наверху...
Это лажа
Это лажа
А что за зависшая снежинка в углу?
А что за зависшая снежинка в углу?
И это тоже лажа
Aria
Как тебе плеер?
kozhilya
Норм.
Давай четвертую.
Давай четвертую.
Нормально?
Нормально?
Пойдет! =)
Кстати, а там с горячими клавишами не разобрались? А то вот газету делала и очень неудобно было все эти кнопочки наверху тыкать...
Кстати, а там с горячими клавишами не разобрались? А то вот газету делала и очень неудобно было все эти кнопочки наверху тыкать...
Хм... Могу предложить 1 вещь. Только скажи, у тебя MS Office какого года?
Хм... Могу предложить 1 вещь. Только скажи, у тебя MS Office какого года?
2003.
2003.
Уфуфуф... Сейчас посмотрю... Просто у меня макрос есть на bb-коды...
Заходишь "Сервис" > Макрос > Редактор Visual Basic.
В меню Insert выберите команду Module.
Вводишь код макроса (ниже)
Для проверки нажми кнопку F5.
Когда макрос будет создан, выбери команду File > Close and Return to Microsoft Excel.
Код макроса:
Sub Fanfic()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
' Удаляем всё, что было
With Selection.Find
.Text = "[^?]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "[/^?]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = "[i]^&[/i]"
.Replacement.Font.Italic = True
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Underline = True
With Selection.Find
.Text = ""
.Replacement.Text = "[u]^&[/u]"
.Replacement.Font.Underline = True
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.StrikeThrough = True
With Selection.Find
.Text = ""
.Replacement.Text = "[s]^&[/s]"
.Replacement.Font.StrikeThrough = True
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Font.Bold = True
With Selection.Find
.Text = ""
.Replacement.Text = "[b]^&[/b]"
.Replacement.Font.Bold = True
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End SubУфуфуф... Сейчас посмотрю... Просто у меня макрос есть на bb-коды...
ммм
Мия, кстати, уже весенний диз делает =) И она говорит, что на лето новый делать не будет...
Отредактировано Aria (2012-01-02 13:12:51)
Когда макрос будет создан, выбери команду File > Close and Return to Microsoft Excel.
А вот здесь у меня написано Close and Return to Microsoft Excel. Это потому что я с ворда, а не с экселя заходила? Это же не суть важно?
И что теперь?
Мия, кстати, уже весенний диз делает =) И она говорит, что на лето новый делать не будет...
Это хорошо!!
А вот здесь у меня написано Close and Return to Microsoft Excel. Это потому что я с ворда, а не с экселя заходила? Это же не суть важно?
Хм, да, я думаю да.
И что теперь?
1) Форматируешь текст обычными средствами для Word
2) Запускаешь макрос
3) Вуаля, теги расставлены!
Причём макрос будет работать неограниченое число раз, так как в него заложено повторное создание макроса.
Если вдруг случится так, что теги дублируются, то просто запусти его ещё раз.
1) Форматируешь текст обычными средствами для Word
2) Запускаешь макрос
3) Вуаля, теги расставлены!
Эээ... не поняла... как макрос запустить? я вставила код куда надо, но ничего с файлом не произошло.
Эээ... не поняла... как макрос запустить? я вставила код куда надо, но ничего с файлом не произошло.
Хм... Сейчас поищу...
Так, вариант действий №2.
I. Подготовка
1) Заходишь Сервис > Макрос > Запись макроса.
2) В поле "Запись макроса" пишешь что-нибудь.
3) Выпадающий список "Макрос доступен для..." - выбираешь "Для всех документов", там ещё имя файла есть.
4) "Описание" - можно ничего не писать.
5) Жмёшь "ОК"
6) Пишешь что-нибудь (для того, что бы что-нибудь записать в макрос)
7) Когда что-нибудь сделаешь, в появившемя окошке жмёшь "Остановить запись"
II. Редактируем макрос
1) Заходишь Сервис > Макрос > Макросы...
2) Выбираешь тот макрос, который ты записала, жмёшь кнопку "Изменить"
3) Тот код, что появился напиши сюда, дальше я напишу, что делать...
To be continued
kozhilya
Эм, а для чего всё это надо? Я смогу на форуме применять горячие клавиши или как? Зачем мне это в ворде?
Отредактировано Aria (2012-01-02 18:48:48)
Вы здесь » Экспериментальный сайт kozhilya » Общее » Производственный флуд