Рейтинг@Mail.ru
Макрос для MS Word в помощь начинающим поэтам • Hard & Soft
Имя пользователя:

Пароль:

Макрос для MS Word в помощь начинающим поэтам


В этом разделе форумчане могут задавать вопросы о настройке компа, сети, отдельных программ.

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

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

Макрос для MS Word в помощь начинающим поэтам

Сообщение Andreas_Sch » 23 окт 2012, 20:17

Дорогие друзья!

К наиболее распространённым ошибкам начинающих поэтов относится несоблюдение ритма по количеству слогов.

Хочу поделиться своим решением - макрос Check_Metre на Visual Basic for Applications, работает в Word для Microsoft Office-97, 2000, XP, 2003, 2007, 2010, 2012 и позволяет проверять ритм для выделенного фрагмента на русском языке.

Для этого остаётся лишь скопировать его вместе с вспомогательной функцией Count_Vowels для подсчёта гласных в соответствующий модуль VBA и назначить команду меню, либо горячую клавишу (в подсказке посмотрите пункт "Настройка", для разных версий свои особенности).

Когда Вы назначите кнопку или пункт меню для макроса Check_Metre, Вам для проверки ритма остаётся лишь выделить проверяемый фрагмент, затем вызвать эту команду. И справа от каждой выделенной строки сразу появится в скобках количество слогов.

С наилучшими пожеланиями,

Андрей

Function Count_Vowels(Character_String As String) As String
'Подсчёт количества гласных в строке аргумента
'Работает только в кириллице
Dim I, L, K As Integer
K = 0
L = Len(Character_String)
For I = 1 To L
Select Case AscW(Mid(Character_String, I, 1))
Case 1040, 1045, 1025, 1048, 1054, 1059, 1067, 1069, 1070, 1071, 1072, 1077, 1105, 1080, 1086, 1091, 1099, 1101, 1102, 1103
'Коды гласных АЕИОУЫЭЮЯ, аеиоуыэюя по таблице Unicode
K = K + 1
Case Else
End Select
Next I
If K = 0 And L < 2 Then
Count_Vowels = ""
Else
Count_Vowels = " (" + LTrim(Str(K)) + ")"
End If
End Function
Sub Check_Metre()
'Проверка ритма в выделенном фрагменте.
'Добавляет справа от каждой строки количество слогов в ней.
'По ударениям ритмический рисунок стихотворения необходимо проверять вручную.
Dim A, B, NL, Current_Line As String, I, L, NextCR As Long, NLAdded As Boolean
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ChrW(11)
.Replacement.Text = ChrW(13)
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
NL = ChrW(13)
NLAdded = False
A = Selection.Text
If Right(A, 1) <> NL Then
A = A + NL
NLAdded = True
End If
NextWordBegin = 1
NextCR = InStr(2, A, NL)
Current_Line = Mid(A, 1, NextCR - NextWordBegin)
B = B + Current_Line + Count_Vowels(Current_Line) + NL
While NextCR > 0
NextWordBegin = NextCR + 1
NextCR = InStr(NextWordBegin, A, NL)
If NextCR = 0 Then GoTo Ende
Current_Line = Mid(A, NextWordBegin, NextCR - NextWordBegin)
B = B + Current_Line + Count_Vowels(Current_Line) + NL
Wend
Ende:
If NLAdded = True Then
B = Left(B, Len(B) - 1)
End If
Selection.Text = B
End Sub
Дорогие друзья, появляться на форуме часто не смогу, но постараюсь, чтобы это было не во вред душе - Интернет-зависимости был подвержен весьма серьёзно. Долго отсутствовал, а всё равно тянет сюда потому, что темы связаны с Царственными Великомучениками.

С любовью о Христе,

Андрей
Andreas_Sch
общественник
общественник



Автор темы

Профиль

Сообщения: 118

Зарегистрирован: г.


Откуда: Москва
 
 
Cпасибо сказано: 10
Спасибо получено: 21 раз в 19 сообщениях
 

Баллы за результативность: 5.00

Награды

Медали: 33
за первые десять сообщений (1) за первые сто сообщений (1) за первое место в конкурсе (1) за второе место в конкурсе (1) за отличный пост 3 ст. (3) за отличный пост 4 ст. (1) плюс (1) поздравление (2) за хорошую песню или мелодию (1)
за хорошую поэзию (1) цветок (1) за поддержку (1) за трезвость суждений (1) за любовь к Родине (1) подарок (1) к 65-летию Победы (1) год форуму (1) два года форуму (1)
три года Форуму (1) четыре года Форуму (1) пять лет форуму (1) шесть лет Форуму (1) семь лет Форуму (1) за полгода на форуме (1) за год на форуме (1) за два года на форуме (1) за три года на форуме (1)
за четыре года на Форуме (1) за пять лет на Форуме (1) за шесть лет на Форуме (1)

Баллы репутации: 10
растёт
        


Re: Макрос для MS Word в помощь начинающим поэтам

Сообщение Сергий » 23 окт 2012, 20:22

Andreas_Sch писал(а):XP

Это что Вида имеется в виду?

А для семёрки пойдёт?
Изображение


Изображение

Изображение

Изображение

Изображение

Изображение
Сергий
Старший Администратор
Старший Администратор
форумиралиссимус
форумиралиссимус

Аватара пользователя

Профиль

Сообщения: 22739

Зарегистрирован: г.

Пол: Мужской
Страна: Российская Федерация Российская Федерация
Откуда: Хабаровск
 
 
Cпасибо сказано: 2334
Спасибо получено: 1135 раз в 1001 сообщениях

Реальное имя: Сергий
Именины: 08.10.1979
Статус: ___________________________

Коль возлюбленна селения Твоя, Господи сил!
___________________________________
Вероисповедание: Православный христианин
Skype: sergiy2344
 

Баллы за результативность: 407.02

Награды

Медали: 292
Герой Форума (1) Лидер результативности года (1) Респект и Уважуха (1) Лидер результативности месяца (1) кубок Ариана (11) Пасхальный Крест 1 ст. (2) Пасхальный Крест 2 ст. (1) Крест им. свв. Ц. стр-цев 1 ст (3) Крест им. свв. Ц. стр-цев 2 ст (1)
Крест им. свв. Ц. стр-цев 4 ст (1) основателю (1) основaтелю (1) создателю форума (1) за дизайнерское оформление (1) за первые десять сообщений (1) за первые сто сообщений (1) за первые пятьсот сообщений (1) за первую тысячу сообщений (1)
за первые две тысячи сообщений (1) за первые три тысячи сообщений (1) за первые 4000 сообщений (1) за первые 5000 сообщений (1) за первые 6000 сообщений (1) за первые 7000 сообщений (1) за первые 8000 сообщений (1) за первые 9000 сообщений (1) за первые десять тысяч сообщен (1)
за первые 11 тыс. сообщений (1) за первые 12 тыс. сообщений (1) за первые 13 тыс. сообщений (1) за первые 14 тыс. сообщений (1) за первые 15 тыс. сообщений (1) за первые 16 тыс. сообщений (1) за первые 17 тыс. сообщений (1) за первые 18 тыс. сообщений (1) за первые 19 тыс. сообщений (1)
за первые 20 тыс. сообщений (1) за первые 21 тыс. сообщений (1) за первые 22 тыс. сообщений (1) за наибольшее число сообщений (1) за неплохое название группы (1) за первое место в конкурсе (3) за второе место в конкурсе (7) за третье место в конкурсе (2) поощрительная медаль конкурса (3)
за орг-цию и провед-е конкурса (8) самому активному (1) за отличный пост 1 ст. (20) за отличный пост 2 ст. (29) за отличный пост 3 ст. (13) медаль Ариана (1) медаль кубка Ариана (3) за отличный пост 4 ст. (3) спасибо (13)
симпатия (5) ты - лучший (1) плюс (3) от любящей (1) дружба (8) хорошему модератору (3) за чувство юмора (1) улыбка (2) сочувствие (1)
поддержка (5) поздравление (8) за хорошее фото или рисунок (2) за хорошую поэзию (1) за хорошую прозу, публицистику (1) за оригинальную аватарку (3) за оригинальную подпись (2) за оригинальный юзербар (1) за оригинальный статус (1)
за хорошую ЛС-ку (7) извинение (1) за благородный поступок (6) за помощь в трудных обст-вах (4) за путешествие или Крестн. ход (5) цветок (3) за встречу (4) спасатель блондинок (2) уважение (5)

Баллы репутации: 138
добрыйдобрыйдобрый
        


За это сообщение пользователю Сергий "Спасибо" сказали: Andreas_Sch

Re: Макрос для MS Word в помощь начинающим поэтам

Сообщение Сергий » 23 окт 2012, 20:23

Andreas_Sch писал(а):Function Count_Vowels(Character_String As String) As String
'Подсчёт количества гласных в строке аргумента
'Работает только в кириллице
Dim I, L, K As Integer
K = 0
L = Len(Character_String)
For I = 1 To L
Select Case AscW(Mid(Character_String, I, 1))
Case 1040, 1045, 1025, 1048, 1054, 1059, 1067, 1069, 1070, 1071, 1072, 1077, 1105, 1080, 1086, 1091, 1099, 1101, 1102, 1103
'Коды гласных АЕИОУЫЭЮЯ, аеиоуыэюя по таблице Unicode
K = K + 1
Case Else
End Select
Next I
If K = 0 And L < 2 Then
Count_Vowels = ""
Else
Count_Vowels = " (" + LTrim(Str(K)) + ")"
End If
End Function
Sub Check_Metre()
'Проверка ритма в выделенном фрагменте.
'Добавляет справа от каждой строки количество слогов в ней.
'По ударениям ритмический рисунок стихотворения необходимо проверять вручную.
Dim A, B, NL, Current_Line As String, I, L, NextCR As Long, NLAdded As Boolean
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ChrW(11)
.Replacement.Text = ChrW(13)
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
NL = ChrW(13)
NLAdded = False
A = Selection.Text
If Right(A, 1) <> NL Then
A = A + NL
NLAdded = True
End If
NextWordBegin = 1
NextCR = InStr(2, A, NL)
Current_Line = Mid(A, 1, NextCR - NextWordBegin)
B = B + Current_Line + Count_Vowels(Current_Line) + NL
While NextCR > 0
NextWordBegin = NextCR + 1
NextCR = InStr(NextWordBegin, A, NL)
If NextCR = 0 Then GoTo Ende
Current_Line = Mid(A, NextWordBegin, NextCR - NextWordBegin)
B = B + Current_Line + Count_Vowels(Current_Line) + NL
Wend
Ende:
If NLAdded = True Then
B = Left(B, Len(B) - 1)
End If
Selection.Text = B
End Sub

Честно говоря ничего не понял... :oops:

Это что?
Изображение


Изображение

Изображение

Изображение

Изображение

Изображение
Сергий
Старший Администратор
Старший Администратор
форумиралиссимус
форумиралиссимус

Аватара пользователя

Профиль

Сообщения: 22739

Зарегистрирован: г.

Пол: Мужской
Страна: Российская Федерация Российская Федерация
Откуда: Хабаровск
 
 
Cпасибо сказано: 2334
Спасибо получено: 1135 раз в 1001 сообщениях

Реальное имя: Сергий
Именины: 08.10.1979
Статус: ___________________________

Коль возлюбленна селения Твоя, Господи сил!
___________________________________
Вероисповедание: Православный христианин
Skype: sergiy2344
 

Баллы за результативность: 407.02

Награды

Медали: 292
Герой Форума (1) Лидер результативности года (1) Респект и Уважуха (1) Лидер результативности месяца (1) кубок Ариана (11) Пасхальный Крест 1 ст. (2) Пасхальный Крест 2 ст. (1) Крест им. свв. Ц. стр-цев 1 ст (3) Крест им. свв. Ц. стр-цев 2 ст (1)
Крест им. свв. Ц. стр-цев 4 ст (1) основателю (1) основaтелю (1) создателю форума (1) за дизайнерское оформление (1) за первые десять сообщений (1) за первые сто сообщений (1) за первые пятьсот сообщений (1) за первую тысячу сообщений (1)
за первые две тысячи сообщений (1) за первые три тысячи сообщений (1) за первые 4000 сообщений (1) за первые 5000 сообщений (1) за первые 6000 сообщений (1) за первые 7000 сообщений (1) за первые 8000 сообщений (1) за первые 9000 сообщений (1) за первые десять тысяч сообщен (1)
за первые 11 тыс. сообщений (1) за первые 12 тыс. сообщений (1) за первые 13 тыс. сообщений (1) за первые 14 тыс. сообщений (1) за первые 15 тыс. сообщений (1) за первые 16 тыс. сообщений (1) за первые 17 тыс. сообщений (1) за первые 18 тыс. сообщений (1) за первые 19 тыс. сообщений (1)
за первые 20 тыс. сообщений (1) за первые 21 тыс. сообщений (1) за первые 22 тыс. сообщений (1) за наибольшее число сообщений (1) за неплохое название группы (1) за первое место в конкурсе (3) за второе место в конкурсе (7) за третье место в конкурсе (2) поощрительная медаль конкурса (3)
за орг-цию и провед-е конкурса (8) самому активному (1) за отличный пост 1 ст. (20) за отличный пост 2 ст. (29) за отличный пост 3 ст. (13) медаль Ариана (1) медаль кубка Ариана (3) за отличный пост 4 ст. (3) спасибо (13)
симпатия (5) ты - лучший (1) плюс (3) от любящей (1) дружба (8) хорошему модератору (3) за чувство юмора (1) улыбка (2) сочувствие (1)
поддержка (5) поздравление (8) за хорошее фото или рисунок (2) за хорошую поэзию (1) за хорошую прозу, публицистику (1) за оригинальную аватарку (3) за оригинальную подпись (2) за оригинальный юзербар (1) за оригинальный статус (1)
за хорошую ЛС-ку (7) извинение (1) за благородный поступок (6) за помощь в трудных обст-вах (4) за путешествие или Крестн. ход (5) цветок (3) за встречу (4) спасатель блондинок (2) уважение (5)

Баллы репутации: 138
добрыйдобрыйдобрый
        


Re: Макрос для MS Word в помощь начинающим поэтам

Сообщение Andreas_Sch » 23 окт 2012, 20:25

Зависит от версии Microsoft Office, а уж какой офис установлен под Windows, в любой версии пойдёт, кроме 6.0 и 7.0!

В Windows 7 тоже работает, но не операционная система всё определяет. У меня на ноутбуке Windows 7.
Дорогие друзья, появляться на форуме часто не смогу, но постараюсь, чтобы это было не во вред душе - Интернет-зависимости был подвержен весьма серьёзно. Долго отсутствовал, а всё равно тянет сюда потому, что темы связаны с Царственными Великомучениками.

С любовью о Христе,

Андрей
Andreas_Sch
общественник
общественник



Автор темы

Профиль

Сообщения: 118

Зарегистрирован: г.


Откуда: Москва
 
 
Cпасибо сказано: 10
Спасибо получено: 21 раз в 19 сообщениях
 

Баллы за результативность: 5.00

Награды

Медали: 33
за первые десять сообщений (1) за первые сто сообщений (1) за первое место в конкурсе (1) за второе место в конкурсе (1) за отличный пост 3 ст. (3) за отличный пост 4 ст. (1) плюс (1) поздравление (2) за хорошую песню или мелодию (1)
за хорошую поэзию (1) цветок (1) за поддержку (1) за трезвость суждений (1) за любовь к Родине (1) подарок (1) к 65-летию Победы (1) год форуму (1) два года форуму (1)
три года Форуму (1) четыре года Форуму (1) пять лет форуму (1) шесть лет Форуму (1) семь лет Форуму (1) за полгода на форуме (1) за год на форуме (1) за два года на форуме (1) за три года на форуме (1)
за четыре года на Форуме (1) за пять лет на Форуме (1) за шесть лет на Форуме (1)

Баллы репутации: 10
растёт
        


Re: Макрос для MS Word в помощь начинающим поэтам

Сообщение Andreas_Sch » 23 окт 2012, 20:26

Это макрос...позже пояснения написать придётся или лучше инструкцию приложить в виде файла Word.
Дорогие друзья, появляться на форуме часто не смогу, но постараюсь, чтобы это было не во вред душе - Интернет-зависимости был подвержен весьма серьёзно. Долго отсутствовал, а всё равно тянет сюда потому, что темы связаны с Царственными Великомучениками.

С любовью о Христе,

Андрей
Andreas_Sch
общественник
общественник



Автор темы

Профиль

Сообщения: 118

Зарегистрирован: г.


Откуда: Москва
 
 
Cпасибо сказано: 10
Спасибо получено: 21 раз в 19 сообщениях
 

Баллы за результативность: 5.00

Награды

Медали: 33
за первые десять сообщений (1) за первые сто сообщений (1) за первое место в конкурсе (1) за второе место в конкурсе (1) за отличный пост 3 ст. (3) за отличный пост 4 ст. (1) плюс (1) поздравление (2) за хорошую песню или мелодию (1)
за хорошую поэзию (1) цветок (1) за поддержку (1) за трезвость суждений (1) за любовь к Родине (1) подарок (1) к 65-летию Победы (1) год форуму (1) два года форуму (1)
три года Форуму (1) четыре года Форуму (1) пять лет форуму (1) шесть лет Форуму (1) семь лет Форуму (1) за полгода на форуме (1) за год на форуме (1) за два года на форуме (1) за три года на форуме (1)
за четыре года на Форуме (1) за пять лет на Форуме (1) за шесть лет на Форуме (1)

Баллы репутации: 10
растёт
        


Re: Макрос для MS Word в помощь начинающим поэтам

Сообщение Ариадна » 23 окт 2012, 20:28

Приветствую.
Андрей, а если это белый стих или дольник??
Измерять ритмы прогаммкой некрасиво как-то. Всё равно, что картину, рисовать через трафаретку. :77:
Где есть горы, - гляжу на горы. В дождливый день слушаю ливень. Весною, летом, осенью, зимой - и утром хорошо, и вечером неплохо...(с).
Ариадна
категорийный
категорийный

Аватара пользователя

Профиль

Сообщения: 2524

Зарегистрирован: г.

Пол: Женский
Страна: Российская Федерация Российская Федерация
Откуда: Волгоградская область
 
 
Cпасибо сказано: 158
Спасибо получено: 312 раз в 250 сообщениях

Реальное имя: Татьяна Н-ская
Именины: 25- 1- 0
Вероисповедание: Православный христианин
 

Баллы за результативность: 1.00

Награды

Медали: 48
Герой Форума (1) Знак Почёта (1) Респект и Уважуха (1) кубок Ариана (4) Пасхальный Крест 1 ст. (1) Пасхальный Крест 9 ст. (1) Крест им. свв. Ц. стр-цев 1 ст (2) Крест им. свв. Ц. стр-цев 2 ст (1) Крест им. свв. Ц. стр-цев 3 ст (1)
за первые десять сообщений (1) за первые сто сообщений (1) за первые пятьсот сообщений (1) за первую тысячу сообщений (1) за первые две тысячи сообщений (1) за первое место в конкурсе (1) за орг-цию и провед-е конкурса (2) самому активному 3 ст. (1) за отличный пост 1 ст. (2)
за отличный пост 2 ст. (2) спасибо (1) дружба (1) за позитив (1) поздравление (2) за благородный поступок (1) цветок (1) уважение (1) Прекрасной Женщине (1)
подарок (2) три года Форуму (1) четыре года Форуму (1) пять лет форуму (1) шесть лет Форуму (1) семь лет Форуму (1) за полгода на форуме (1) за год на форуме (1) за четыре года на Форуме (1)
благодарность Админа 1 ст. (1) благодарность Админа 3 ст. (1) за трудолюбие (1)

        


Re: Макрос для MS Word в помощь начинающим поэтам

Сообщение Сергий » 23 окт 2012, 20:29

Andreas_Sch писал(а):Для этого остаётся лишь скопировать его вместе с вспомогательной функцией Count_Vowels для подсчёта гласных в соответствующий модуль VBA и назначить команду меню, либо горячую клавишу (в подсказке посмотрите пункт "Настройка", для разных версий свои особенности).

Так, как я понимаю надо скопировать ЭТО:
Andreas_Sch писал(а):Function Count_Vowels(Character_String As String) As String
'Подсчёт количества гласных в строке аргумента
'Работает только в кириллице
Dim I, L, K As Integer
K = 0
L = Len(Character_String)
For I = 1 To L
Select Case AscW(Mid(Character_String, I, 1))
Case 1040, 1045, 1025, 1048, 1054, 1059, 1067, 1069, 1070, 1071, 1072, 1077, 1105, 1080, 1086, 1091, 1099, 1101, 1102, 1103
'Коды гласных АЕИОУЫЭЮЯ, аеиоуыэюя по таблице Unicode
K = K + 1
Case Else
End Select
Next I
If K = 0 And L < 2 Then
Count_Vowels = ""
Else
Count_Vowels = " (" + LTrim(Str(K)) + ")"
End If
End Function
Sub Check_Metre()
'Проверка ритма в выделенном фрагменте.
'Добавляет справа от каждой строки количество слогов в ней.
'По ударениям ритмический рисунок стихотворения необходимо проверять вручную.
Dim A, B, NL, Current_Line As String, I, L, NextCR As Long, NLAdded As Boolean
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ChrW(11)
.Replacement.Text = ChrW(13)
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
NL = ChrW(13)
NLAdded = False
A = Selection.Text
If Right(A, 1) <> NL Then
A = A + NL
NLAdded = True
End If
NextWordBegin = 1
NextCR = InStr(2, A, NL)
Current_Line = Mid(A, 1, NextCR - NextWordBegin)
B = B + Current_Line + Count_Vowels(Current_Line) + NL
While NextCR > 0
NextWordBegin = NextCR + 1
NextCR = InStr(NextWordBegin, A, NL)
If NextCR = 0 Then GoTo Ende
Current_Line = Mid(A, NextWordBegin, NextCR - NextWordBegin)
B = B + Current_Line + Count_Vowels(Current_Line) + NL
Wend
Ende:
If NLAdded = True Then
B = Left(B, Len(B) - 1)
End If
Selection.Text = B
End Sub

Andreas_Sch писал(а): в соответствующий модуль VBA

А где этот модуль найти? Если можно, дай принтскрин.
Изображение


Изображение

Изображение

Изображение

Изображение

Изображение
Сергий
Старший Администратор
Старший Администратор
форумиралиссимус
форумиралиссимус

Аватара пользователя

Профиль

Сообщения: 22739

Зарегистрирован: г.

Пол: Мужской
Страна: Российская Федерация Российская Федерация
Откуда: Хабаровск
 
 
Cпасибо сказано: 2334
Спасибо получено: 1135 раз в 1001 сообщениях

Реальное имя: Сергий
Именины: 08.10.1979
Статус: ___________________________

Коль возлюбленна селения Твоя, Господи сил!
___________________________________
Вероисповедание: Православный христианин
Skype: sergiy2344
 

Баллы за результативность: 407.02

Награды

Медали: 292
Герой Форума (1) Лидер результативности года (1) Респект и Уважуха (1) Лидер результативности месяца (1) кубок Ариана (11) Пасхальный Крест 1 ст. (2) Пасхальный Крест 2 ст. (1) Крест им. свв. Ц. стр-цев 1 ст (3) Крест им. свв. Ц. стр-цев 2 ст (1)
Крест им. свв. Ц. стр-цев 4 ст (1) основателю (1) основaтелю (1) создателю форума (1) за дизайнерское оформление (1) за первые десять сообщений (1) за первые сто сообщений (1) за первые пятьсот сообщений (1) за первую тысячу сообщений (1)
за первые две тысячи сообщений (1) за первые три тысячи сообщений (1) за первые 4000 сообщений (1) за первые 5000 сообщений (1) за первые 6000 сообщений (1) за первые 7000 сообщений (1) за первые 8000 сообщений (1) за первые 9000 сообщений (1) за первые десять тысяч сообщен (1)
за первые 11 тыс. сообщений (1) за первые 12 тыс. сообщений (1) за первые 13 тыс. сообщений (1) за первые 14 тыс. сообщений (1) за первые 15 тыс. сообщений (1) за первые 16 тыс. сообщений (1) за первые 17 тыс. сообщений (1) за первые 18 тыс. сообщений (1) за первые 19 тыс. сообщений (1)
за первые 20 тыс. сообщений (1) за первые 21 тыс. сообщений (1) за первые 22 тыс. сообщений (1) за наибольшее число сообщений (1) за неплохое название группы (1) за первое место в конкурсе (3) за второе место в конкурсе (7) за третье место в конкурсе (2) поощрительная медаль конкурса (3)
за орг-цию и провед-е конкурса (8) самому активному (1) за отличный пост 1 ст. (20) за отличный пост 2 ст. (29) за отличный пост 3 ст. (13) медаль Ариана (1) медаль кубка Ариана (3) за отличный пост 4 ст. (3) спасибо (13)
симпатия (5) ты - лучший (1) плюс (3) от любящей (1) дружба (8) хорошему модератору (3) за чувство юмора (1) улыбка (2) сочувствие (1)
поддержка (5) поздравление (8) за хорошее фото или рисунок (2) за хорошую поэзию (1) за хорошую прозу, публицистику (1) за оригинальную аватарку (3) за оригинальную подпись (2) за оригинальный юзербар (1) за оригинальный статус (1)
за хорошую ЛС-ку (7) извинение (1) за благородный поступок (6) за помощь в трудных обст-вах (4) за путешествие или Крестн. ход (5) цветок (3) за встречу (4) спасатель блондинок (2) уважение (5)

Баллы репутации: 138
добрыйдобрыйдобрый
        


Re: Макрос для MS Word в помощь начинающим поэтам

Сообщение Сергий » 23 окт 2012, 20:30

Andreas_Sch писал(а): или лучше инструкцию приложить в виде файла Word.

Не, лучше её вложить здесь в спойлер, мороки меньше будет - не надо будет скачивать.
Изображение


Изображение

Изображение

Изображение

Изображение

Изображение
Сергий
Старший Администратор
Старший Администратор
форумиралиссимус
форумиралиссимус

Аватара пользователя

Профиль

Сообщения: 22739

Зарегистрирован: г.

Пол: Мужской
Страна: Российская Федерация Российская Федерация
Откуда: Хабаровск
 
 
Cпасибо сказано: 2334
Спасибо получено: 1135 раз в 1001 сообщениях

Реальное имя: Сергий
Именины: 08.10.1979
Статус: ___________________________

Коль возлюбленна селения Твоя, Господи сил!
___________________________________
Вероисповедание: Православный христианин
Skype: sergiy2344
 

Баллы за результативность: 407.02

Награды

Медали: 292
Герой Форума (1) Лидер результативности года (1) Респект и Уважуха (1) Лидер результативности месяца (1) кубок Ариана (11) Пасхальный Крест 1 ст. (2) Пасхальный Крест 2 ст. (1) Крест им. свв. Ц. стр-цев 1 ст (3) Крест им. свв. Ц. стр-цев 2 ст (1)
Крест им. свв. Ц. стр-цев 4 ст (1) основателю (1) основaтелю (1) создателю форума (1) за дизайнерское оформление (1) за первые десять сообщений (1) за первые сто сообщений (1) за первые пятьсот сообщений (1) за первую тысячу сообщений (1)
за первые две тысячи сообщений (1) за первые три тысячи сообщений (1) за первые 4000 сообщений (1) за первые 5000 сообщений (1) за первые 6000 сообщений (1) за первые 7000 сообщений (1) за первые 8000 сообщений (1) за первые 9000 сообщений (1) за первые десять тысяч сообщен (1)
за первые 11 тыс. сообщений (1) за первые 12 тыс. сообщений (1) за первые 13 тыс. сообщений (1) за первые 14 тыс. сообщений (1) за первые 15 тыс. сообщений (1) за первые 16 тыс. сообщений (1) за первые 17 тыс. сообщений (1) за первые 18 тыс. сообщений (1) за первые 19 тыс. сообщений (1)
за первые 20 тыс. сообщений (1) за первые 21 тыс. сообщений (1) за первые 22 тыс. сообщений (1) за наибольшее число сообщений (1) за неплохое название группы (1) за первое место в конкурсе (3) за второе место в конкурсе (7) за третье место в конкурсе (2) поощрительная медаль конкурса (3)
за орг-цию и провед-е конкурса (8) самому активному (1) за отличный пост 1 ст. (20) за отличный пост 2 ст. (29) за отличный пост 3 ст. (13) медаль Ариана (1) медаль кубка Ариана (3) за отличный пост 4 ст. (3) спасибо (13)
симпатия (5) ты - лучший (1) плюс (3) от любящей (1) дружба (8) хорошему модератору (3) за чувство юмора (1) улыбка (2) сочувствие (1)
поддержка (5) поздравление (8) за хорошее фото или рисунок (2) за хорошую поэзию (1) за хорошую прозу, публицистику (1) за оригинальную аватарку (3) за оригинальную подпись (2) за оригинальный юзербар (1) за оригинальный статус (1)
за хорошую ЛС-ку (7) извинение (1) за благородный поступок (6) за помощь в трудных обст-вах (4) за путешествие или Крестн. ход (5) цветок (3) за встречу (4) спасатель блондинок (2) уважение (5)

Баллы репутации: 138
добрыйдобрыйдобрый
        


Re: Макрос для MS Word в помощь начинающим поэтам

Сообщение Andreas_Sch » 23 окт 2012, 21:03

Прикрепил два файла. Один - установочный, в другом собраны скриншоты по назначению макроса.
Вложения
Check_Metre.zip
(749.52 Кб) Скачиваний: 44
Дорогие друзья, появляться на форуме часто не смогу, но постараюсь, чтобы это было не во вред душе - Интернет-зависимости был подвержен весьма серьёзно. Долго отсутствовал, а всё равно тянет сюда потому, что темы связаны с Царственными Великомучениками.

С любовью о Христе,

Андрей
Andreas_Sch
общественник
общественник



Автор темы

Профиль

Сообщения: 118

Зарегистрирован: г.


Откуда: Москва
 
 
Cпасибо сказано: 10
Спасибо получено: 21 раз в 19 сообщениях
 

Баллы за результативность: 5.00

Награды

Медали: 33
за первые десять сообщений (1) за первые сто сообщений (1) за первое место в конкурсе (1) за второе место в конкурсе (1) за отличный пост 3 ст. (3) за отличный пост 4 ст. (1) плюс (1) поздравление (2) за хорошую песню или мелодию (1)
за хорошую поэзию (1) цветок (1) за поддержку (1) за трезвость суждений (1) за любовь к Родине (1) подарок (1) к 65-летию Победы (1) год форуму (1) два года форуму (1)
три года Форуму (1) четыре года Форуму (1) пять лет форуму (1) шесть лет Форуму (1) семь лет Форуму (1) за полгода на форуме (1) за год на форуме (1) за два года на форуме (1) за три года на форуме (1)
за четыре года на Форуме (1) за пять лет на Форуме (1) за шесть лет на Форуме (1)

Баллы репутации: 10
растёт
        


За это сообщение пользователю Andreas_Sch "Спасибо" сказали: Сергий

Re: Макрос для MS Word в помощь начинающим поэтам

Сообщение Andreas_Sch » 23 окт 2012, 21:09

Ариадна писал(а):Приветствую.
Андрей, а если это белый стих или дольник??
Измерять ритмы прогаммкой некрасиво как-то. Всё равно, что картину, рисовать через трафаретку. :77:


Это для самопроверки начинающих. Человеку более опытному такие программки не нужны.

Белые стихи бывают разные.

Белый стих у меня есть, который я вручную проверял по ритму. Наберите в поисковой системе "Влюблённые лилии" - не стал бы на данном форуме размещать это своё произведение. Там в стиле сказания белый стих, но ритм выдержан.
Дорогие друзья, появляться на форуме часто не смогу, но постараюсь, чтобы это было не во вред душе - Интернет-зависимости был подвержен весьма серьёзно. Долго отсутствовал, а всё равно тянет сюда потому, что темы связаны с Царственными Великомучениками.

С любовью о Христе,

Андрей
Andreas_Sch
общественник
общественник



Автор темы

Профиль

Сообщения: 118

Зарегистрирован: г.


Откуда: Москва
 
 
Cпасибо сказано: 10
Спасибо получено: 21 раз в 19 сообщениях
 

Баллы за результативность: 5.00

Награды

Медали: 33
за первые десять сообщений (1) за первые сто сообщений (1) за первое место в конкурсе (1) за второе место в конкурсе (1) за отличный пост 3 ст. (3) за отличный пост 4 ст. (1) плюс (1) поздравление (2) за хорошую песню или мелодию (1)
за хорошую поэзию (1) цветок (1) за поддержку (1) за трезвость суждений (1) за любовь к Родине (1) подарок (1) к 65-летию Победы (1) год форуму (1) два года форуму (1)
три года Форуму (1) четыре года Форуму (1) пять лет форуму (1) шесть лет Форуму (1) семь лет Форуму (1) за полгода на форуме (1) за год на форуме (1) за два года на форуме (1) за три года на форуме (1)
за четыре года на Форуме (1) за пять лет на Форуме (1) за шесть лет на Форуме (1)

Баллы репутации: 10
растёт
        


Вернуться в Hard & Soft

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1