Поле для химических формул (значения в верхнем и нижнем индексе)

@Aliona-Tom · Регистрация: 08.02.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте.

Подскажите, пожалуйста, есть ли возможность ввода символов в верхнем и нижнем индексе.
Например не H2O, а H₂O.
При вставке в поле MEMO (с RTF) форматирование не сохраняется.

@Панург · 29.08.2025, 20:23

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

Почему Вы так считаете?

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

@SmitW · 27.10.2025, 13:28

Нашёл интересное решение для вставки не только верхнего и нижнего регистра, но и формул.
В Таблице1 имеется поле поле ИмяПоляOLE.
Т.к. данные храню на сервере, то не сильно беспокоюсь за объём памяти. На сервере это поле имеет тип данных image, а в Access - это уже OLE.
В Access на форме имеется кнопка cmdInsertObject. На неё вешается код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cmdInsertObject_Click()
 On Error GoTo ErrorHandler
    If Me.Dirty Then
        DoCmd.RunCommand acCmdSaveRecord
    End If
    Me!ИмяПоляOLE.SetFocus
    DoCmd.RunCommand acCmdInsertObject
ExitHandler:
    Exit Sub
ErrorHandler:
    MsgBox "Ошибка: " & Err.Description, vbExclamation, "Вставка объекта"
End Sub

При нажатии кнопки cmdInsertObject открывается диалоговое окно Вставка объекта. Выбираем MS Word и вставляем формулу, ну или буковки с верхним и нижним регистром.
Только вот какая закавыка - можно ли этот код модифицировать так, чтобы сразу без диалога и выбора типа объекта открывался ворд, например на вкладке вставки формул? А то слишком много переходов, пользователь не будет радоваться

@АЕ · 27.10.2025, 16:06

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

Только вот какая закавыка

И не одна. Как по картинке найти нужную или отсортировать?

@Eugene-LS · 27.10.2025, 19:30

Сообщение от Aliona-Tom

При вставке в поле MEMO (с RTF) форматирование не сохраняется.

Как идея: писать HTML в memo со стилями - отображать в IE контроле

Например (без доп. стилей):

HTML5
1
2
3
4
5
6
7
8
9
<!doctype html>
<html>
<head>
    <meta charset="utf-8">
</head>
<body>
    <H1>H<sub>2</sub>O</H1>
</body>
</html>

Выглядит так:
Название: h2o_02.png
Просмотров: 47

Размер: 1.4 Кб

@Eugene-LS · 27.10.2025, 19:42

Сообщение от Aliona-Tom

При вставке в поле MEMO (с RTF) форматирование не сохраняется.

HTML предлагает два тега для создания индекса: <sup> — верхний индекс и <sub> — индекс нижний. Текст, помещенный в один из этих контейнеров, обозначается меньшим размером, чем базовый текст и смещается относительно горизонтали.

HTML5
1
2
3
4
5
6
7
8
9
10
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
 <head>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
 </head>
 <body>
  <H2><sup>Формула</sup> <sub>серной</sub> кислоты:</H2> 
  <H3><i>H<sub>2</sub>SO<sub>4</sub></i></H3>
 </body>
</html>

Будет так:

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Aliona-Tom 0 / 0 / 0 Регистрация: 08.02.2015 Сообщений: 2

	Поле для химических формул (значения в верхнем и нижнем индексе) 08.02.2015, 16:15. Показов 4477. Ответов 24 Метки нет (Все метки) Здравствуйте. Подскажите, пожалуйста, есть ли возможность ввода символов в верхнем и нижнем индексе. Например не H2O, а H₂O. При вставке в поле MEMO (с RTF) форматирование не сохраняется. 0