В Примечание невозможно вставить символы (транскрипцию)

[Оксана33]

Sub ПРИМЕЧАНИЕ()
Dim Tt
Tt = InputBox("Введите текст", "")
If Tt = "" Then Exit Sub
Selection.NoteText Text:=Tt

With Selection.Comment.Shape
.OLEFormat.Object.Font.Size = 18
.Height = 100
.Width = 150
.Visible = False
End With
End Sub

как изменить этот код, чтобы можно было вставлять транскрипцию слова
refer [rɪ'fɜː]
technology [tek'nɔləʤɪ]

[IgorGO]

наберите словарь с транскрипциями и заменяйте слова на их транскрипции

[Оксана33]

Сообщение от IgorGO

наберите словарь с транскрипциями и заменяйте слова на их транскрипции

вы не поняли, когда я копирую транскрипцию [tek'nɔləʤɪ] в InputBox, то имею вот это

[IgorGO]

согласен, абсолютно не понял, но не мудрено...

поэкспериментируйте немного. конструкция [...] имеет в VBA особый смысл, уйдите от квадратных скобок (добавите потом) и вообще - на все можно найти ответ, если проявить настойчивость

лично я пока не понимаю в чем, собственно, проблема?

[Оксана33]

Сообщение от IgorGO

согласен, абсолютно не понял, но не мудрено...

поэкспериментируйте немного. конструкция [...] имеет в VBA особый смысл, уйдите от квадратных скобок (добавите потом) и вообще - на все можно найти ответ, если проявить настойчивость

лично я пока не понимаю в чем, собственно, проблема?

но квадратные скобки не играют роль - такая картина что с ними, что без них
и после вставки вот что выходит (и это без скобок)

[EducatedFool]

Вот так будет работать: (используется другой Inputbox)

Sub ПРИМЕЧАНИЕ()
    Dim txt$
    txt$ = Application.InputBox("Введите текст", "")
    If txt$ = "" Then Exit Sub

    With ActiveCell.AddComment(txt).Shape
        .OLEFormat.Object.Font.Size = 18
        .Height = 100
        .Width = 150
        .Visible = False
    End With
End Sub

[Оксана33]

БОЛЬШУЩЕЕ ВАМ СПАСИБО!!!