Знаки английской транскрипции как рисованный текст

[Sasha_Smirnov]

Код программы можно смотреть по Alt-F11 и, как и все ВБА-надстройки, по Alt-F8 (в списке макросов): двойной щелчок по её имени (Rescript) — запуск. Принудительное прерывание: по Ctrl+Pause.

Запуск в открытом документе (его можно даже не скачивать и открыть прямо здесь, в приложенном архиве) — по альт-S (то есть держите клавишу Alt, а букву S жмёте столько раз, сколько слов хотите транскрибировать).

Алгоритм чтения английских буквосочетаний весьма сложен (и не полон! так что обязательна* проверка по словарю, ну, скажем, по этому).

На новом компе, как я сейчас обнаружил, рисунок знака транскрипции попадает не в начало текущей строки (как в Ворде 97), а в начало первой строки, и текст транскрипции разрывается! Что делать!

Кому вообще интересна тема печати знаков транскрипции — смотрите также внизу похожую тему С.М.С, да и прочие его темы за 29 декабря — 3 января. Там это более развито. Правда, в сторону графики — а не алгоритма.
__________________
* программа «не знает», где должно стоять ударение, — и обычно ставит наобум, на 1-м слоге; также не проработано чтение сочетаний с буквой R

[Sasha_Smirnov]

Настроил макрос для слов типа language [´лэнгуичж] :-)

Microsoft Office Word 2003 на третьем (!) компьютере совершенно так же выполняет эту программу, как и Word 97.

Теперь даже и не знаю, почему на втором — иначе...

[Sasha_Smirnov]

Возможно потому, что он четырёхъядерный. Потому что Винды там и там те же самые.

[Sasha_Smirnov]

Вот, сделал нормально для любой Windows (начиная с 98-й).

Закладку в нижеследующем коде удалять не стал. Да и надо ли?

Function InsertPictureInLine(signname As String) As String

    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="b"
        .ShowHidden = False
    End With

    ActiveDocument.Shapes(signname).Duplicate.ConvertToInlineShape.Select
    
With Selection
    .Font.Size = razmer
    .Cut
    
    .GoTo What:=wdGoToBookmark, Name:="b"
    'возврат из начала текста (куда конвертировался знак транскрипции) в точку, где пишем транскрипцию
    
    .Paste
    .MoveLeft Extend:=wdExtend
        
                Select Case ActiveDocument.Shapes(signname).Name
                Case "j-FRENCH"
                    .Font.Position = -0.3 * .Font.Size + 0.5
                Case "g-gothic"
                    .Font.Position = -0.3 * .Font.Size + 0.5
                End Select

    .Collapse Direction:=wdCollapseEnd
    .Font.Position = 0
End With
End Function

[Sasha_Smirnov]

А, всё равно русскими буквами понятнее!

Произношение в конечном счёте запоминается на слух (там и символы транскрипции более новые).

В итоге, эта моя самая большая программа — просто разминка для ума!

[Sasha_Smirnov]

А вообще есть какакие-то замечания, советы, приветы?..

[Sasha_Smirnov]

4003 просмотра... Ну хорош молчать-то. Применимо?

[Вождь]

Так что макрос делает то? Такое впечатление, что начало ветки отсутствует

[Sasha_Smirnov]

Испытайте. В посте #2 для Word 97, а для любого ворда — в архиве поста #4.

[Вождь]

Да сразу испытал. Красиво работает. Но хотелось бы знать, что на входе, что на выходе. Так сказать, инструкция для обычного пользователя А почему буквы-картинки?