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

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

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

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

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

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

РЕШЕНИЕ
от 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.│поселок   │Айский                    │пос. Айский                     │Айский пос.              │
Так вот почему в одном случае посёлок с большой, а в другом случае посёлок с маленькой буквы, и если этот вопрос муссировать у предаставителей власти то уверен, что они назовут меня буквоежкой и всё!!!!!!!

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

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

Например:

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

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

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

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