Макрос для создания кодов с Яндекс-Фоток. Вопросы

Marussia, несколько вопросов .

1. Совсем ничего не происходит? Может Ворд ругается, что макросы деактивированы? Можно проверить через: Сервис -> Макрос -> Безопасность. Если стоит "Очень высокая", нужно понизить до "Высокая"
2. Если на нужный макрос повторно нажать "Изменить", в редакторе отображается правильный текст?

Fotki -> должно совпадать с названием макроса.
3. Если попробовать запустить макрос не назначенными клавишами, а через меню:
Сервис->Макрос->Макросы
Выбрать нужный и нажать кнопку "Выполнить",
тоже ничего не происходит?

P.S. Все остальные, "неудачные попытки" лучше удалить совсем из списка.

 

Re: Как присоединить фотку?

Лейсан, проблема может быть в крупном шрифте в ворде. Какой размер у Вас стоит? Попробуйте перед тем как нажимать заветные клавиши уменьшить размер шрифта в ворде на 10.

 

Re: Как присоединить фотку?

Ага, либо можно стирать "таб" в начале строки. Ну т.е. чтоб ссылка без отступа от левого края начиналась. Просто иначе строка получается слишком длинной, и там в алгоритме все сбивается и теги нетуды вставляются .
(Пойду в описании к макросу это допишу, спасибо за замечание ).

 

Re: КАК ВЫЛОЖИТЬ ФОТО НА ФОРУМЕ и рекомендации по фотосъемке

Внимание, всем кто пользуется макросом

Яндекс поменял формат выдаваемой ссылки. Раньше окончание выглядело как _L.jpg, сейчас _L.jpeg.jpg.

Чтобы макрос работал, в нем нужно поменять одну циферку.

Для этого:
1. Сервис=>Макрос=>Макросы
2. Выбрать соответствующий макрос и щелкнуть по кнопке "Изменить"
3. В открывшемся редакторе Visual Basic должен появится код макроса. Ищем восьмую строчку кода в которой написано:

Код:

Selection.MoveLeft Unit:=wdCharacter, Count:=4

4. Меняем "4" в конце строки на "9"

Код:

Selection.MoveLeft Unit:=wdCharacter, Count:=9

5. Сохраняем, закрываем редактор.

P.S. в исходном коде уже поменяла тоже. Т.е. это действие необходимо произвести тем, у кого макрос уже есть. Всем тем у кого нет, советую обзавестись . Дополнительные изменения не требуются.

 

Сделала новый код (см. в исходном сообщении), который работает с обоими форматами .

 

Внимание, всем кто пользуется макросом

Яндекс продолжает развлекаться, и опять поменял формат выдаваемой ссылки под конкретной фотографией на третий вариант (Раньше окончание выглядело как _L.jpg, потом _L.jpeg.jpg, сейчас _L.jpg.jpg).

Формат ссылок, выдаваемых сразу к нескольким фотографиям (пока?) остался прежним.

Новый макрос работает со всеми тремя форматами ссылок. Код для макроса в исходном сообщении. Чтобы изменить старый макрос следуем инструкциям по его созданию начиная с четвертого пункта .

P.S. Заодно внесла еще пару изменений

1. Теперь игнорируются строки, не начинающиеся с "http". В этом случае просто перепрыгивает на следующую строку. Таким образом можно сразу в документе сделать подписи к фотографиям или просто поставить пустые строки между фотографиями. Дальше нажимаем нашу заветную комбинацию клавиш и не отпускаем до тех пор, пока все макрос не дойдет до конца документа, заменив все ссылки фотографий на коды и проигнорировав все остальные строки.
2. Курсор не обязательно ставить в начало строки.
3. Удаляется отступ в начале строки, если он был.
4. Размер шрифта в кодах устанавливается на 10. Если Вам это по какой-то причине не нравится (и с Вашим ником и Вашим шрифтом по умолчанию и так не было проблем), то можно строчку с изменением шрифта удалить, либо поставить свой желаемый размер. Делается это в строке номер десять:

Код:

        Selection.Font.Size = 10 ' <--- razmer shrifta

Пожалуйста, если обнаружатся какие-то глюки, или есть какие-то вопросы или пожелания по работе макроса пишите .