Таблица в телеграмм как сделать

Добавил пользователь Евгений Кузнецов
Обновлено: 18.09.2024

с друзьями и учиться. Хочешь проверять ошибки в тексте, строить планы на учёбу или практиковать английский? Тебе помогут Telegram-боты. Мы собрали незаменимых помощников абитуриентов в одной статье.

Боты, которые помогут подготовиться к экзамену по русскому

OrfoBot — проверит твои тексты на ошибки. С ним ты станешь самым грамотным в классе.

Дактиль — бот, созданный, чтобы подтянуть твои знания русской поэзии. Назначай время и Дактиль пришлет тебе стихотворение. Заряжает на хорошее настроение.

Боты для сдающих английский язык

Yandex.Translate — это инструмент интегрированный с переводчиком Яндекса. Держи его под рукой, когда работаешь с текстами на иностранном.

InMind — мини-репетитор прямо в твоём Telegram. Уделяя ему 15 минут в день, ты сможешь учить новые слова, а также соревноваться в знании английского с друзьями.

Andy English Bot — потенциальный друг по переписке. Он пополнит твои знания речевых конструкций. Поможет сдать устную часть экзамена на отлично.

Боты, которые позволят тебе управлять временем

Alert Bot — удобная альтернатива напоминалкам в телефоне. Введи время и событие, о котором нужно напомнить. Тогда бот тебе маякнёт.

Боты с полезными статьями

Arzamas Bot — продукт от известной платформы Арзамас. Там ты найдёшь материалы из истории, культуры, философии и искусства. Маст-хэв для сдающих гуманитарные предметы.

MISIS Books — огроменный сборник статей по всем экзаменационным предметам. Механика работы понятная: пишешь ему тему, а он выдает книги по ней.

Боты для работы с текстом

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

Кстати, у нас есть собственные Telegram-каналы, там мы общаемся, публикуем полезные посты и подготовке к экзаменам, вузах, психологии и хобби.

Надеемся, Telegram-боты облегчат твою учёбу и увеличат шансы получить хорошую отметку. Но помни, настоящую подготовку к экзаменам они не заменят.

Спасибо, что дочитал до конца. Мы рады, что были полезны. Чтобы получить больше информации, посмотри ещё:

Разберемся во всех секретах редактора статей Telegram

Telegraph — относительно свежий программный продукт от команды разработчиков Telegram. Сервис появился в 2016 году и с тех пор потихоньку укрепляет свои позиции.

Некоторые всерьез считают, что недалек тот день, когда Telegraph сможет заменить печатные СМИ. Разберемся, может ли такое быть, для чего вообще нужен текстовый редактор от Telegram и как им пользоваться.

Рекомендуем заглянуть в наш Каталог: Телеграм каналы с сортировкой по категориям и странам.

Содержание:

Что такое Telegraph и для чего он нужен

Какие возможности дает Telegraph

Как начать пользоваться Telegraph

Как добавить пост из Telegram в Telegraph

Бот для Telegraph

Секреты оформления статей в Telegraph

- Почему некоторые называют Telegraph убийцей СМИ
Что такое Telegraph и для чего он нужен

Это специальная платформа, на которой можно публиковать самый разный контент. Благодаря тому, что этот сервис создан на языке markdown, опубликованные материалы быстро загружаются и “весят” совсем немного.

Интересно: размер публикации в этом редакторе не ограничен, поэтому он идеально подходит для создания лонгридов.

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

При первом запуске вы увидите эти поля

И хотя Telegraph и является продуктом Telegram, но предназначен он не только для связанной с мессенджером работы.

На сайте telegra.ph вы сможете размещать свои посты для ВК, Одноклассников, Viber, WhatsApp и вообще любого другого ресурса.

После публикации статьи редактор сгенерирует готовую ссылку, которой вы сможете делиться с пользователями.

Интересно: одна из крутых особенностей этого редактора состоит в том, что материал можно опубликовать анонимно и без регистрации.

Какие возможности дает Telegraph

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

Основные инструменты по форматированию текста в Telegraph

Заголовки

Первый и самый главный инструмент — это возможность создавать заголовки. Давно известно, что статья, в которой есть заголовки и подзаголовки, воспринимается гораздо проще.

Вы просто пробегаете глазами заголовки и останавливаетесь на чем-то важном для себя.

Оглавления (содержание)

Второй инструмент тесно связан с первым: в статье, опубликованной на Telegraph, можно создавать оглавление. За каждым заголовком закреплен определенный идентификатор, который используется как гиперссылка.

Проще говоря, сервис дает возможность прикреплять к каждому заголовку ссылку-якорь для быстрого перехода к ним.

Достаточно нажать на якорь, чтобы переместиться к участку публикации с этим заголовком.

Делается это просто: в нужном месте вашего текста напишите слово “Оглавление” или, например, “Содержание”. И под ним располагайте пункты-заголовки.

Но при формировании якоря заголовки нужно будет слегка отформатировать — вместо пробелов поставить тире.

Чтобы слово сработало как ссылка на определенный заголовок в тексте, делаем так:

Важно: проверяйте, чтобы заголовки не повторялись, иначе ссылка в содержании будет работать некорректно.

Разберемся на примере

Общая структура якоря выглядит так:

Шрифт

Третий инструмент незаменим при расставлении акцентов. Выбирайте сами, какой шрифт использовать для важной информации — курсив или полужирный.

Цитаты

А еще Телеграф дает возможность использовать и оформлять цитаты. Причем делать это можно двумя разными способами.

Для того чтобы переключаться между разным видом цитат, выделите текст, а затем нажмите один или два раза на значок цитаты.
- Если кликнуть один раз в редакторе на значок цитаты (две запятые справа), то цитируемый кусочек текста оформится курсивом с черной вертикальной линией слева.
- При повторном клике на значок текст расположится по центру и тоже выделится курсивом.
Медиа

Пятый пункт в списке возможностей касается визуального контента. Если вы хотите разбавить публикацию картинками или видео из YouTube — пожалуйста.

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

Для вставки видео с YouTube или Vimeo, а также постов с Twitter, нужно кликнуть на специальную иконку.

Вставить видео или твитт в Telegram редактор очень просто — кликните на этот значок и вставьте ссылку

Списки

И, наконец, для любителей упорядочивать информацию доступно оформление списков.

Вы можете создавать как обычные нумерованные, так и выразительные маркированные списки. Сформировать список вы можете двумя способами:
- Классическим способом — добавляя цифры перед начало пункта;
- Поставив короткое тире или звездочку, а затем пробел перед началом пункта, чтобы сделать маркированный список.
Сервис предоставляет неплохой набор для творчества, не правда ли? Ниже посмотрим, как это все выглядит при детальном рассмотрении.

Как начать пользоваться Telegraph

Чтобы написать красивую статью, зайдите на сайт telegra.ph . Выглядит он очень просто. Перед вами окажется практически чистый лист, где потребуется указать заголовок и написать сам текст материала.

Внимание: после недавнего отказа Павла Дурова предоставить ключи к данным пользователей Роскомнадзор заблокировал все ресурсы, связанные с Telegram.

Это коснулось и Телеграф.

Наш совет: для того, чтобы зайти на сайт редактора, используйте VPN.

Разберемся по порядку.
- Итак, первое, что нужно сделать — прописать Title. Это название вашей публикации.
По умолчанию этот тайтл вместе с датой попадет в ссылку, по которой пользователи будут читать ваш материал.
- Второе поле — Your name — заполнять не обязательно, если хотите анонимности.
Но иногда бывают ситуации, когда указание авторства необходимо. В этом случае в поле можно указать реальные данные или воспользоваться никнеймом.
- В третьем поле создается сам текст материала.
Здесь уже доступны все перечисленные виды форматирования. После того, как материал будет написан и оформлен, не забудьте нажать кнопку Publish , чтобы статья опубликовалась.

Кстати, отредактировать ее ( Edit ) спустя некоторое время можно будет только с того же устройства и браузера, с которого вы писали материал.

В противном случае материал изменить будет нельзя. Это своеобразный минус редактора для тех, кто уже привык к личным кабинетам на сайтах. Подробнее о работе с этим ботом ниже.

Как добавить пост из Telegram в Telegraph

Как быть, если пост в мессенджере уже написан, и им хочется поделиться с аудиторией вне Telegram? Тратить время на создание еще одной статьи не хочется, а результат нужен, что называется, здесь и сейчас.

Решается эта проблема просто. Нужно зайти в Telegram и найти пост, который вы хотите перенести в редактор.

Чтобы вставить пост в статью, сначала нужно скопировать на него ссылку. В Telegram Desktop нужно нажать на пост правой кнопкой мышки В мобильной версии для копирования ссылки нажмите на иконку справа

Дальше вставьте ссылку в поле для ввода текста в редакторе и нажмите Enter . Готово!

При переходе по ссылке пост откроется в новом окне.

Вставка постов из Telegram в редактор происходит максимально просто: достаточно вставить ссылку и нажать Enter

Интересно: в Телеграф можно скопировать пост в виде голосовой записи.

При копировании постов из Telegram в редактор обязательно помните о нескольких нюансах:
- Если копируете статью из канала, проследите, чтобы он был не приватным, а открытым;
- У чата должен быть статус супергруппы;
- Если копируете пост с голосованием, то его результаты отображаться не будут, перенесется только само тело статьи.
Рекомендуем: узнайте больше о том, как создавать качественные Telegram-каналы.

Бот для Telegraph

Это очень полезная штука для тех, кто ведет канал или группу в Telegram. Бот @telegraph помогает редактировать уже опубликованные материалы с любого устройства.

Кроме этого, он умеет еще несколько крутых вещей:

Такой помощник придется очень кстати тем, кто ведет несколько каналов или групп в Telegram, так как с помощью бота можно быстро переключаться между аккаунтами.

Чтобы начать пользоваться ботом, достаточно перейти по прямой ссылке или найти его по имени @telegraph и запустить. Для начала работы нужно будет войти в учетную запись с помощью команды “Log in…” .

Интересно: чтобы узнать более подробную статистику по просмотрам, попробуйте воспользоваться @TGStat_Bot.

Он покажет общее количество просмотревших ваш пост и распишет цифры по датам. А еще бот подскажет, сколько каналов упомянули статью.

Рекомендуем: читайте нашу подборку самых интересных Telegram-ботов.

Секреты оформления статей в Telegraph

Вроде бы все возможности этого редактора лежат на поверхности, но есть еще несколько крутых фишек, о которых мы расскажем ниже. Берите их на вооружение и вперед, создавать классные и грамотно оформленные статьи!

В Телеграф есть быстрый способ разделять текст на смысловые части и главы. Просто наберите три звездочки на клавиатуре и нажмите клавишу Enter. Редактор начертит линии, эффектно отделяющие не связанные части текста.

Чтобы создать новую строку, нажмите обе клавиши вместе. Если хотите оформить абзац, то здесь сработает привычный нам тап по Enter .
- Ссылку на статью в Телеграф можно сделать короткой и запоминающейся.
И нет, речь не пойдет о сервисах для сокращения ссылок. Все просто. Перед тем как нажать кнопку “Publish” , дайте статье то самое короткое название в поле “Title” .

Затем опубликуйте материал и потом измените название на желаемое с помощью кнопки “Edit” . Поскольку ссылка формируется один раз, в ней останется прописанным короткое наименование публикации.
- Сделать статью более красочной и выразительной можно с помощью гифок.
Чтобы добавить гифку, просто скопируйте на нее ссылку, вставьте в редактор и нажмите Enter . Второй способ: сохранить изображение на свое устройство, а затем добавить его через значок фотоаппарата.

Рекомендуем: узнайте подробнее о поиске и создании гифок прямо в Telegram.

Будущее наступило: в рабочем чате отдела маркетинга одновременно находятся люди и боты У каждого ― собственные задачи. Например, бот Wall-e помогает маркетологам Ringostat следить за важными показателями ― каждый день по расписанию присылает в чат скриншот дашборда с данными из Google Analytics и CRM. Рассказываем, как создать и настроить бота-помощника, который возьмет на себя часть рабочей рутины.

Время чтения 10 минут

Вы можете перейти сразу к интересующему разделу:

Зачем нужен бот-отправлятор

Многие отделы маркетинга и продаж ежедневно отслеживают ключевые показатели работы: количество посещений сайта, лидов, звонков, сделок. Например, маркетологи Ringostat создали дашборд, куда в режиме реального времени подтягиваются сведения из Google Analytics и CRM. Так нам не приходится собирать данные из разных систем вручную ― это происходит автоматически.

Но оставался еще один вопрос ― как настроить регулярную рассылку дашборда, чтобы всегда держать важные показатели под рукой? Раньше руководителю приходилось каждый день заходить в документ, делать скрин экрана и пересылать в группу.

Но теперь эта задача поручена боту. Каждое утро сотрудники отдела маркетинга Ringostat получают о него скриншот дашборда со свежими показателями сайта и блога.

Как работает бот:
Боту можно поручить сбор и отправку данных из самых разных документов в Google Таблицах, например:

Ringostat для руководителя и собственника бизнеса
- Получите больше заказов при том же затратах — отчеты покажут, какая реклама работает, а какая нет, это позволит перераспределить бюджет.
- Узнайте, как окупаются вложения в продвижение — Ringostat автоматически рассчитает это по каждой запущенной активности.
- Поймите, где теряются деньги: в маркетинге или отделе продаж — вы узнаете, если реклама не приводит лидов или продажники упускают покупателей.
- Оценивайте работу подрядчика по продвижению или штатного маркетолога — с точки зрения звонков и прибыльности рекламы.
Создание бота

Самый первый этап ― создание собственного бота.

Получение chat_id

Бот может отправлять изображения из таблиц:
Настройка направления и расписания отправки

ВАЖНО: если ячейка содержит несколько разных данных, например, несколько chat_id, дней недели, часов ― удалите между ними пробелы. Данные должны быть разделены между собой только знаками ― запятой или точкой с запятой. В противном случае бот не сработает.

Создание триггера

Этот триггер подходит для регулярной отправки данных ― согласно указанных вами дней недели и часов. Скрипт будет запускаться только тогда, когда будет срабатывать триггер. А точные дни и часы для отправки он будет искать в столбцах Е и F.

Запуск бота

Бот вежливый ― первым писать не станет
1. Если бот должен передавать данные лично пользователю , нужно сначала найти и запустить бота ― нажать команду /start.
2. Если бот должен слать данные в группу, нужно добавить его в число участников. Дополнительные команды не нужны.
Тестирование

Тут есть три задачи:
Сразу после тестового запуска вы увидите, что столбцы H и I автоматически заполняются данными о последней отправке. Содержимое ячеек будет обновляться после каждого последующего запуска скрипта.

Возможные ошибки и проблемы

Если бот ничего не прислал, вот список возможных ошибок.

Добрый день, эксперты!

Function RussianStringToURLEncode_New(ByVal txt As String) As String
For i = 1 To Len(txt)
l = Mid(txt, i, 1)
Select Case AscW(l)
Case Is > 4095: t = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
Case Is > 127: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
Case 32: t = "%20"
Case Else: t = l
End Select
RussianStringToURLEncode_New = RussianStringToURLEncode_New & t
Next
End Function

Прошу подсказать, где я допускаю ошибку.

Заранее спасибо. :help:

Добрый день, эксперты!

Function RussianStringToURLEncode_New(ByVal txt As String) As String
For i = 1 To Len(txt)
l = Mid(txt, i, 1)
Select Case AscW(l)
Case Is > 4095: t = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
Case Is > 127: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
Case 32: t = "%20"
Case Else: t = l
End Select
RussianStringToURLEncode_New = RussianStringToURLEncode_New & t
Next
End Function

Прошу подсказать, где я допускаю ошибку.

Заранее спасибо. :help: lanitfin

Function RussianStringToURLEncode_New(ByVal txt As String) As String
For i = 1 To Len(txt)
l = Mid(txt, i, 1)
Select Case AscW(l)
Case Is > 4095: t = "%" & Hex(AscW(l) \ 64 \ 64 + 224) & "%" & Hex(AscW(l) \ 64) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
Case Is > 127: t = "%" & Hex(AscW(l) \ 64 + 192) & "%" & Hex(8 * 16 + AscW(l) Mod 64)
Case 32: t = "%20"
Case Else: t = l
End Select
RussianStringToURLEncode_New = RussianStringToURLEncode_New & t
Next
End Function

Прошу подсказать, где я допускаю ошибку.

Заранее спасибо. :help: Автор - lanitfin
Дата добавления - 17.05.2021 в 13:17

Чтобы понимал бот html, надо ему это указать
sURL = "https://api.telegram.org/bot" & Token & "/sendMessage?chat_id=" & ChatID & "&text https://api.telegram.org/bot" & Token & "/sendMessage?chat_id=" & ChatID & "&text=" & message & "&parse_mode=HTML"

Чтобы понимал бот html, надо ему это указать
sURL = "https://api.telegram.org/bot" & Token & "/sendMessage?chat_id=" & ChatID & "&text https://api.telegram.org/bot" & Token & "/sendMessage?chat_id=" & ChatID & "&text=" & message & "&parse_mode=HTML" doober

doober, у меня не получается, или до меня не доходит=) у меня еще не такой продвинутый уровень VBA.
можете в коде показать, что нужно добавить/изменить?

doober, у меня не получается, или до меня не доходит=) у меня еще не такой продвинутый уровень VBA.
можете в коде показать, что нужно добавить/изменить? lanitfin

Отправляемый текст
Message "http://www.excelworld.ru/forum/10-47549-1"">ссылка на эту тему"
Результат

Отправляемый текст
Message "http://www.excelworld.ru/forum/10-47549-1"">ссылка на эту тему"
Результат
doober

doober, у нас с Вами могут отличаться версии Excel?

Копирую полностью Вашу строку и получаю:

во-первых Кириллица отображается как ". "
во-вторых: почему - то нет ни пробелов, ни переносов. И указываются не значения ячеек, а адрес ячейки. У Вас тоже приходят адреса ячеек, а не значения ячеек.

Ссылка работает, но замысел был в том, чтобы сриншот/таблица/документ выгружался с локального компьютера.

doober, у нас с Вами могут отличаться версии Excel?

Копирую полностью Вашу строку и получаю:

во-первых Кириллица отображается как ". "
во-вторых: почему - то нет ни пробелов, ни переносов. И указываются не значения ячеек, а адрес ячейки. У Вас тоже приходят адреса ячеек, а не значения ячеек.

Ссылка работает, но замысел был в том, чтобы сриншот/таблица/документ выгружался с локального компьютера. lanitfin

Копирую полностью Вашу строку и получаю:

во-первых Кириллица отображается как ". "
во-вторых: почему - то нет ни пробелов, ни переносов. И указываются не значения ячеек, а адрес ячейки. У Вас тоже приходят адреса ячеек, а не значения ячеек.

Ссылка работает, но замысел был в том, чтобы сриншот/таблица/документ выгружался с локального компьютера. Автор - lanitfin
Дата добавления - 24.05.2021 в 10:25

А что, у меня есть файл ваш?
Я для примера показал, как перенос, как ссылку вставлять Автор - doober
Дата добавления - 24.05.2021 в 16:00

doober, да, работает. Спасибо. коды еще пока не сравнивал.

Sub MessegeToTelegram1()
Dim Token As String, ChatID As String, message As String, strPhoto As String
Dim sURL As String, oHttp As Object, sHTML As String
' первая строка
message = Range("B38").Text & "\t" & _
" " & Range("j38").Text & "\t" & _
" (" & Range("I38").Text & ")" & "\n" & _
"ИМЯ: " & Range("C38").Text & "\t" & _
Range("D38").Text & "\n" & _
"слово: " & Range("F38").Text & "\n" & _
"ключ: " & Range("G38").Text & "\n" & _
Range("K38").Text & "\n" & _
"тема: " & Range("H38").Text

' Вторая строка
message = Range("B39").Text & "\t" & _
" " & Range("j39").Text & "\t" & _
" (" & Range("I39").Text & ")" & "\n" & _
"ИМЯ: " & Range("C39").Text & "\t" & _
Range("D39").Text & "\n" & _
"Слово: " & Range("F39").Text & "\n" & _
"Ключ: " & Range("G39").Text & "\n" & _
Range("K39").Text & "\n" & _
"ТЕМА: " & Range("H39").Text

' Третья строка- пустая
message = Range("B39").Text & "\t" & _
" " & Range("j40").Text & "\t" & _
" (" & Range("I40").Text & ")" & "\n" & _
"ИМЯ: " & Range("C40").Text & "\t" & _
Range("D40").Text & "\n" & _
"Слово: " & Range("F40").Text & "\n" & _
"ключ: " & Range("G40").Text & "\n" & _
Range("K40").Text & "\n" & _
"тема: " & Range("H40").Text

doober, да, работает. Спасибо. коды еще пока не сравнивал.

Sub MessegeToTelegram1()
Dim Token As String, ChatID As String, message As String, strPhoto As String
Dim sURL As String, oHttp As Object, sHTML As String
' первая строка
message = Range("B38").Text & "\t" & _
" " & Range("j38").Text & "\t" & _
" (" & Range("I38").Text & ")" & "\n" & _
"ИМЯ: " & Range("C38").Text & "\t" & _
Range("D38").Text & "\n" & _
"слово: " & Range("F38").Text & "\n" & _
"ключ: " & Range("G38").Text & "\n" & _
Range("K38").Text & "\n" & _
"тема: " & Range("H38").Text

' Вторая строка
message = Range("B39").Text & "\t" & _
" " & Range("j39").Text & "\t" & _
" (" & Range("I39").Text & ")" & "\n" & _
"ИМЯ: " & Range("C39").Text & "\t" & _
Range("D39").Text & "\n" & _
"Слово: " & Range("F39").Text & "\n" & _
"Ключ: " & Range("G39").Text & "\n" & _
Range("K39").Text & "\n" & _
"ТЕМА: " & Range("H39").Text

' Третья строка- пустая
message = Range("B39").Text & "\t" & _
" " & Range("j40").Text & "\t" & _
" (" & Range("I40").Text & ")" & "\n" & _
"ИМЯ: " & Range("C40").Text & "\t" & _
Range("D40").Text & "\n" & _
"Слово: " & Range("F40").Text & "\n" & _
"ключ: " & Range("G40").Text & "\n" & _
Range("K40").Text & "\n" & _
"тема: " & Range("H40").Text

Sub MessegeToTelegram1()
Dim Token As String, ChatID As String, message As String, strPhoto As String
Dim sURL As String, oHttp As Object, sHTML As String
' первая строка
message = Range("B38").Text & "\t" & _
" " & Range("j38").Text & "\t" & _
" (" & Range("I38").Text & ")" & "\n" & _
"ИМЯ: " & Range("C38").Text & "\t" & _
Range("D38").Text & "\n" & _
"слово: " & Range("F38").Text & "\n" & _
"ключ: " & Range("G38").Text & "\n" & _
Range("K38").Text & "\n" & _
"тема: " & Range("H38").Text

' Вторая строка
message = Range("B39").Text & "\t" & _
" " & Range("j39").Text & "\t" & _
" (" & Range("I39").Text & ")" & "\n" & _
"ИМЯ: " & Range("C39").Text & "\t" & _
Range("D39").Text & "\n" & _
"Слово: " & Range("F39").Text & "\n" & _
"Ключ: " & Range("G39").Text & "\n" & _
Range("K39").Text & "\n" & _
"ТЕМА: " & Range("H39").Text

' Третья строка- пустая
message = Range("B39").Text & "\t" & _
" " & Range("j40").Text & "\t" & _
" (" & Range("I40").Text & ")" & "\n" & _
"ИМЯ: " & Range("C40").Text & "\t" & _
Range("D40").Text & "\n" & _
"Слово: " & Range("F40").Text & "\n" & _
"ключ: " & Range("G40").Text & "\n" & _
Range("K40").Text & "\n" & _
"тема: " & Range("H40").Text

Читайте также: