1

Тема: [Авроры улица] в [ул. Авроры]

Приветствую!
Подскажите, как из этого:
1220 км улица
60 лет Октября проспект
8 Марта улица
Автобусный переулок
Автономный переулок
Адмиральская улица
Адмиральский проспект
Азовский переулок
Айвазовского улица
Амурский бульвар
Анюйский проезд

поэтапно сделать вот это:

ул. 1220 км
пр. 60 лет Октября
ул. 8 Марта
пер. Автобусный
пер. Автономный
ул. Адмиральская
пр. Адмиральский
пер. Азовский
ул. Айвазовского
б-р. Амурский
пр-д. Анюйский

------------------------------
Записей таких много, поэтому хотелось бы автоматизировать..)

Спасибо.
----------
PS: не получается под спойлер списки засунуть  hmm ...

2

Re: [Авроры улица] в [ул. Авроры]

И ещё момент: задумался о правильности сокращений...
На данной страничке ознакомился с :
бул.(бульв.) - бульвар, о. (о-в) - остров, пр. - проспект, дер. - деревня, пер. - переулок, р. - река, дор. - дорога, пл. - площадь, свх. - совхоз, кан. - канал, пос. - поселок, ул. - улица, наб. - набережная, прол. - пролив.

Окончательно ли это?? Кто знает, где-нить есть официальные документы, регламентирующие употребления сокращений в литературе справочной, художественной и пр....

3

Re: [Авроры улица] в [ул. Авроры]

Если не хотите программировать на VBA или использовать  возможности подстановочных знаков,
то можно попробовать следующее:
1 Заменить все полные названия  улиц, проспектов и т. п. на их сокращения с каким-нибудь разделителем впереди, например,
улица на #ул.
2  Полученный текст  преобразовать в таблицу из 2-х столбцов, указав в качестве разделитея   выбранный вами (в данном случае, это #).
3 Поменять в таблице столбцы местами.
4 Преобразовать таблицу в текст или сделать невидимыми её границы.

4

Re: [Авроры улица] в [ул. Авроры]

azur пишет:

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


ГОСТ 7.12-93. 
БИБЛИОГРАФИЧЕСКАЯ ЗАПИСЬ. СОКРАЩЕНИЕ СЛОВ НА РУССКОМ ЯЗЫКЕ.
ОБЩИЕ ТРЕБОВАНИЯ И ПРАВИЛА


А также "Словарь сокращений русского языка".

Отредактировано ЮВ (28.09.2011 11:16:03)

5

Re: [Авроры улица] в [ул. Авроры]

azur пишет:

И ещё момент: задумался о правильности сокращений...
На данной страничке ознакомился с :
бул.(бульв.) - бульвар, о. (о-в) - остров, пр. - проспект, дер. - деревня, пер. - переулок, р. - река, дор. - дорога, пл. - площадь, свх. - совхоз, кан. - канал, пос. - поселок, ул. - улица, наб. - набережная, прол. - пролив.

Окончательно ли это?? Кто знает, где-нить есть официальные документы, регламентирующие употребления сокращений в литературе справочной, художественной и пр....

К сожалению, в упомянутом коллегой ГОСТе есть не все адресные реквизиты.
Обычно разрабатываются некоторые корпоративные нормы сокращений адресных реквизитов, которые утверждаются руководством. По крайней мере, у нас в компании так делали.
А за основу для корпоративной нормы берутся какие-либо имеющиеся рекомендации (например, КЛАДР или материал из интернета, который привели Вы).

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

6

Re: [Авроры улица] в [ул. Авроры]

Alex_Gur пишет:

А за основу для корпоративной нормы берутся какие-либо имеющиеся рекомендации (например, КЛАДР или материал из интернета, который привели Вы).

Тогда уж лучше  "Мильчин А.Э. Справочная книга корректора и редактора".
В этой толстенной книге  есть ответы,  наверное, на все вопросы.

7

Re: [Авроры улица] в [ул. Авроры]

ЮВ пишет:

Тогда уж лучше  "Мильчин А.Э. Справочная книга корректора и редактора".
В этой толстенной книге  есть ответы,  наверное, на все вопросы.

Я посмотрел книгу Мильчина.
К сожалению, устойчивых сокращений адресных наименований там тоже не нашел. Там только говорится, что такие сокращения допустимы (разд. 35.3.3, п. 6) и приведено несколько примеров (р. - река, о. - остров).
Но, как справедливо отмечает автор вопроса, остров часто сокращается как о-в.
Так что все же приходится принимать решение самому.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

8

Re: [Авроры улица] в [ул. Авроры]

Alex_Gur пишет:

К сожалению, устойчивых сокращений адресных наименований там тоже не нашел. Там только говорится, что такие сокращения допустимы (разд. 35.3.3, п. 6) и приведено несколько примеров (р. - река, о. - остров).
Но, как справедливо отмечает автор вопроса, остров часто сокращается как о-в.
Так что все же приходится принимать решение самому.

Да, общего совета на все случаи жизни дать невозможно.
1 В частности, использовать о. или о-в  при сокращенни "остров"  выбирается из принципа наименьшей длины сокращения (именно для этой цели и вводятся сокращения, отсюда и критерий выбора): если в тексте сокращение о. однозначно  понимается как "остров", то используется оно, если есть  острова, то о-ва и т. п.
2 Общие же правила такие: вы можете  придумывать любые свои сокращения, только надо  их описывать тогда
в документе в обязательном разделе "Принятые обозначения и сокращения".

9

Re: [Авроры улица] в [ул. Авроры]

говорил говорю и буду говорить забудьте про ГОСТы, прав тот у кого больше прав, Вам нужно по аналогии:

.............ОВСКОЕ ГОРОДСКОЕ СОБРАНИЕ ДЕПУТАТОВ

РЕШЕНИЕ
от 17 июня 2004 г. N 794

ОБ УТВЕРЖДЕНИИ В НОВОЙ РЕДАКЦИИ "МУНИЦИПАЛЬНОГО
РЕЕСТРА НАИМЕНОВАНИЙ УЛИЦ И ДРУГИХ ВНУТРИГОРОДСКИХ
ГЕОГРАФИЧЕСКИХ ОБЪЕКТОВ, РАСПОЛОЖЕННЫХ В ПРЕДЕЛАХ
...........ОВСКОГО ГОРОДСКОГО ОКРУГА"

(в ред. Решений Собрания депутатов ..............ского городского округа
от 29.03.2006 N 25-ЗГО, от 04.07.2006 N 53-ЗГО,
от 26.11.2007 N 102-ЗГО)
у нас там такая таблица:
│ N  │  Объект  │  Существующее имя (2002) │       Официальное полное       │для ЭБД (ЭБД - электронные базы данных)│
и если его начинаешт тщательно смотреть, то видно:
│23-1│Поселок   │Балашиха                  │Пос. Балашиха                   │Балашиха пос.            │
│(п. 23-1 введен Решением Собрания депутатов .....овского городского округа от 04.07.2006 N 53-ЗГО)│
и ещё
│ 15.│поселок   │Айский                    │пос. Айский                     │Айский пос.              │
Так вот почему в одном случае посёлок с большой, а в другом случае посёлок с маленькой буквы, и если этот вопрос муссировать у предаставителей власти то уверен, что они назовут меня буквоежкой и всё!!!!!!!

10

Re: [Авроры улица] в [ул. Авроры]

Ципихович Эндрю пишет:

говорил говорю и буду говорить забудьте про ГОСТы, прав тот у кого больше прав, Вам нужно по аналогии:

.............ОВСКОЕ ГОРОДСКОЕ СОБРАНИЕ ДЕПУТАТОВ

РЕШЕНИЕ
от 17 июня 2004 г. N 794

ОБ УТВЕРЖДЕНИИ В НОВОЙ РЕДАКЦИИ "МУНИЦИПАЛЬНОГО
РЕЕСТРА НАИМЕНОВАНИЙ УЛИЦ И ДРУГИХ ВНУТРИГОРОДСКИХ
ГЕОГРАФИЧЕСКИХ ОБЪЕКТОВ, РАСПОЛОЖЕННЫХ В ПРЕДЕЛАХ
...........ОВСКОГО ГОРОДСКОГО ОКРУГА"

(в ред. Решений Собрания депутатов ..............ского городского округа
от 29.03.2006 N 25-ЗГО, от 04.07.2006 N 53-ЗГО,
от 26.11.2007 N 102-ЗГО)
у нас там такая таблица:
│ N  │  Объект  │  Существующее имя (2002) │       Официальное полное       │для ЭБД (ЭБД - электронные базы данных)│
и если его начинаешт тщательно смотреть, то видно:
│23-1│Поселок   │Балашиха                  │Пос. Балашиха                   │Балашиха пос.            │
│(п. 23-1 введен Решением Собрания депутатов .....овского городского округа от 04.07.2006 N 53-ЗГО)│
и ещё
│ 15.│поселок   │Айский                    │пос. Айский                     │Айский пос.              │
Так вот почему в одном случае посёлок с большой, а в другом случае посёлок с маленькой буквы, и если этот вопрос муссировать у предаставителей власти то уверен, что они назовут меня буквоежкой и всё!!!!!!!

Я и говорю, Эндрю, по своему опыту: вопрос решается индивидуально, корпоративным путем.
Мы утвердили подобный список сокращений у руководителя департамента, и потом никто никаких претензий нам не предъявлял.
А руководителю департамента показали распечатку из интернета, подобную той, которую цитируете Вы. Руководителя это вполне удовлетворило. smile

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

11

Re: [Авроры улица] в [ул. Авроры]

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

Post's attachments

Osnovnye sokraschenia.zip 8.33 Кб, 3 скачиваний с 2011-09-28 

You don't have the permssions to download the attachments of this post.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

12

Re: [Авроры улица] в [ул. Авроры]

ЮВ, спасибо! Работает.
Если не трудно - как через поиск/замену это дело провернуть??
Хотел сделать по типу \1\2\3 --> \3\1\2 (как в статье к '97 ворду написано), но не знаю как нужное выражение (к примеру, (улица) ) переместить в начало строки....  sad

13

Re: [Авроры улица] в [ул. Авроры]

azur пишет:

ЮВ, спасибо! Работает.
Если не трудно - как через поиск/замену это дело провернуть??
Хотел сделать по типу \1\2\3 --> \3\1\2 (как в статье к '97 ворду написано), но не знаю как нужное выражение (к примеру, (улица) ) переместить в начало строки....  sad

Непложие решения приводятся в
внешняя ссылка.

Например:

Sub Макрос1()
'
' Макрос1 Макрос меняет порядок слов в строке  iText$
'
'
    iText$ = "Макрос для работы с текстом"
    iMassiv = Split(iText$, " ")
    For iCount% = UBound(iMassiv) To LBound(iMassiv) Step -1
    iNewText$ = iNewText$ & " " & iMassiv(iCount%)
    Next
    MsgBox "Старый текст : " & iText$ & _
    vbNewLine & "Новый текст : " & iNewText$, vbOKOnly, ""
End Sub

Только мне непонятно, как в макросе перебрать все строки.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

14

Re: [Авроры улица] в [ул. Авроры]

Здесь, по сути, последнее слово в строке надо поставить на первое место.
И перебрать все строки.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

15

Re: [Авроры улица] в [ул. Авроры]

Вот макрос, позволяющий переместить последнее слово на первое место' в текущей строке:

Sub Макрос1()
'
' Макрос1 - Перемещение последнего слова на первое место
' в текущей строке
'
Dim StringA, wordLast, wordsFirst As String
Dim xx1, xx2 As Integer
Selection.HomeKey Unit:=wdLine
Selection.Paragraphs(1).Range.Select
xx1 = 1
xx2 = 1
StringA = Selection.Paragraphs(1)
Do While xx1 > 0 And xx2 > 0
    xx1 = InStr(xx1, Trim(StringA), " ")
    xx2 = InStr(xx1 + 1, StringA, " ")
    If xx2 > 0 Then
        xx1 = xx2
    End If
Loop
wordLast = Mid(Trim(StringA), xx1 + 1, Len(StringA) - xx1 - 1)
wordsFirst = Mid(StringA, 1, xx1)
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.TypeText (Trim(wordLast) & " " & Trim(wordsFirst))
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

16

Re: [Авроры улица] в [ул. Авроры]

Спасибо, Alex_Gur!
Макрос хорошо работает.