@djooj

Для уменьшения рутины при оформлении Списка литературы, нужен макрос.
Например, имеем:
1. Антонченко В.В. Охрана жизни человека - приоритет действующего уголовного закона? // Мировой судья. 2015. № 6. С. 2-4.
2. Малешина А.В. Преступления против жизни в странах общего права. М.: Статут, 2017. – 480 с.
Нужно:
1. Антонченко В.В. Охрана жизни человека - приоритет действующего уголовного закона? / В.В. Антонченко // Мировой судья. 2015. № 6. С. 2-4.
2. Малешина А.В. Преступления против жизни в странах общего права / А.В. Малешина. М.: Статут, 2017. – 480 с.
Или может быть подскажете имеющийся макрос копирующий Ф.И.О. затем меняющий местами Инициалы и фамилию и вставляющий это в нужное место строки (перед двумя косыми чертами).
Заранее спасибо!

0

@Narimanych

djooj,
У вас во 2 строке нет двух косых черт..

Если возможно, скопируйте все данные в эксель и пришлите...

0

@djooj

В эксель? Макрос должен работать в Word 2016. Во второй строке можно ориентироваться на букву "М.", т.к. Ф.И.О вставляется перед ней. если макросом невозможно обработать эту строку 2., то хотя бы решить вопрос со строкой 1., в которой есть две косые.

0

@Dinoxromniy

А я уж грешным делом на Autocad подумал, там и VBA есть, и списки литературы встречаются.
Поиск и замена "М." на "//М." приведет все к единообразию. Если это не так, значит ситуация несколько сложнее, чем вы описываете.
Мне вот непонятно, что мы имеем. Давайте вместе поугадываем: нумерация выполнена нормальными средствами Word и каждой строке предшествует знак абзаца.

Тогда:
1. Выделяем нужный кусок документа, жмем ctrl+H, в нем выполняем замену выражения (разумеется без кавычек)
"^p" на "#2^p#1" чтобы обозначить границы каждой строчки списка.
2. Повторно жмем ctrl+H, ставим галочку на пункте "Подстановочные знаки" и выполняем замену выражения "(#1)(*)( )([А-Я].[А-Я].)( )(*)(//*)(#2)" на "\2\3\4\5\6/\4\5\3\2 \7".

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

0

@djooj

Это не работает.
После первого шага получаем
1. Антонченко В.В. Охрана жизни человека - приоритет действующего уголовного закона? // Мировой судья. 2015. № 6. С. 2-4.#2
2. #1Малешина А.В. Преступления против жизни в странах общего права. М.: Статут, 2017. – 480 с.#2
После второго шага
1. Антонченко В.В. Охрана жизни человека - приоритет действующего уголовного закона? // Мировой судья. 2015. № 6. С. 2-4.#2
2. #1Малешина А.В. Преступления против жизни в странах общего права. М.: Статут, 2017. – 480 с.#2
Все верно, нумерация выполнена нормальными средствами Word и каждой строке предшествует знак абзаца.
Однако, нумерация в данном случае не критичное условие, если это облегчит задачу, ее можно вообще убрать и не учитывать.

0

@Dinoxromniy

djooj, а что вас удивляет? Разумеется, вы это и должны получить, разве нет?
Очевидно, перед этой строчкой не было знака абзаца, хотя вам было написано:
Вставьте знак абзаца перед строкой и попробуйте еще раз.
Две косые черты не появились, хотя вам также было указано:
Добейте две косые черты и попробуйте повторно.

0

@djooj

При автоматической нумерации даже сделал так, знак абзаца есть, но перед Анточенко, нужный "#1" не создается:
1.
2. Антонченко В.В. Охрана жизни человека - приоритет действующего уголовного закона? // Мировой судья. 2015. № 6. С. 2-4.#2
3. #1Малешина А.В. Преступления против жизни в странах общего права. //М.: Статут, 2017. – 480 с.#2
Подставил перед Анточенко, нужный "#1" вручную и тогда после шага два получилось:
1.
2. Антонченко В.В. Охрана жизни человека - приоритет действующего уголовного закона? /В.В. Антонченко // Мировой судья. 2015. № 6. С. 2-4.
3. Малешина А.В. Преступления против жизни в странах общего права. /А.В. Малешина //М.: Статут, 2017. – 480 с.
Прогресс есть! ), но, нет пробелов после одной косой "/", их можно добавить?

0

@Dinoxromniy

djooj, приложите ваш документ, у меня все работает, нужно понять, в чем разница.

0

@djooj

Прилагаю.

Вложения

Антонченко В.docx (13.1 Кб, 3 просмотров)

0

@djooj

Наверное нужно упростить задачу. Можно и без нумерации, можно и с ней, как удобней для работы макроса. Все абзацы приличествуют.
Исходный текст:
Антонченко В.В. Охрана жизни человека - приоритет действующего уголовного закона // Мировой судья. 2015. № 6. С. 2-4
Ширяев А.Ю. Понятие деяния и уголовно-правовая интерпретация факта в доктрине и практике // Электронное приложение к «Российскому юридическому журналу». 2017. № 2. С. 44-54.
Нужно:
Антонченко В.В. Охрана жизни человека - приоритет действующего уголовного закона / В.В. Антонченко // Мировой судья. 2015. № 6. С. 2-4.
Ширяев А.Ю. Понятие деяния и уголовно-правовая интерпретация факта в доктрине и практике / А.Ю. Ширяев // Электронное приложение к «Российскому юридическому журналу». 2017. № 2. С. 44-54.
"М." отпадает, главное чтобы пробел был перед и после одной косой черты.

0

@Dinoxromniy

djooj, дошли руки до вашего файла.
Выполняю пункт 1, затем выделяю строчки с фамилиями (то есть без паразитных строчек "#1#2") выполняю пункт 2 и получаю желаемый вами результат.

0

@djooj

Ок! Все работает. Огромный респект за помощь!
Последний вопрос. У меня есть макрос, который работает также с использованием знака"#", можно ли какой-то другой знак или символ использовать при этой замене, чтобы не было путаницы? Я опасаюсь применять например "@?!". ведь эти символы на языке подстановок могут означать иное.

0

@Dinoxromniy

djooj, да, можно использовать абсолютно любой удобный вам набор символов, это не имеет значения.

1

@djooj

Здравствуйте! Можно все-таки попросить примеры символов, которые можно использовать в данной замене вместо #.

0

@Dinoxromniy

djooj, я заменил на тильды, но вообще это может быть абсолютно любой текст, например на кириллице (заменить нужно выделенные цветом куски):

1. Выделяем нужный кусок документа, жмем ctrl+H, в нем выполняем замену выражения (без кавычек)
"^p" на "~2^p~1" чтобы обозначить границы каждой строчки списка.
2. Повторно жмем ctrl+H, ставим галочку на пункте "Подстановочные знаки" и выполняем замену выражения "(~1)(*)( )([А-Я].[А-Я].)( )(*)(//*)(~2)" на "\2\3\4\5\6/\4\5\3\2 \7"

1