Расцветка синтаксиса при копировании кода из Visual Basic

@Lexangross51 · Регистрация: 16.09.2019

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

Доброго всем дня! Такой вопрос: можно ли как-то сохранить расцветку кода при его копировании из Visual Basic, скажем, в Word. Если можно, то как?

@UBUNTU · 11.11.2020, 07:38

Lexangross51, В Ворд нет если вы не напишите надстройку которая будет по условию подсвечивать код. А вот в блокноте к примеру Notepad++ есть плагины которые подсвечивают синтаксис разных языков.

@Lexangross51 · 11.11.2020, 10:18 **[ТС]**

А как написать эту самую надстройку?

@Pro_grammer · 11.11.2020, 12:30

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

Если можно, то как?

Ни чего писать не надо.
Слушайте лайфхак!
Копируете нужный код из редактора VB6 и вставляете его в сообщение на форуме.
Например вот, первый который попался:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
Private Function pltrkoor(x1 As Single, y1 As Single, x2 As Single, y2 As Single, x3 As Single, y3 As Single) As Double
Dim a As Single, b As Single, c As Single, pp As Double
    a = rast(x1, y1, x2, y2)
    b = rast(x1, y1, x3, y3)
    c = rast(x3, y3, x2, y2)
    pp = (a + b + c) / 2
    pltrkoor = (pp * (pp - a) * (pp - b) * (pp - c)) ^ 0.5
End Function
Private Function rast(xn As Single, yn As Single, xk As Single, yk As Single) As Single
    rast = ((xk - xn) ^ 2 + (yk - yn) ^ 2) ^ 0.5
End Function
 
Private Sub Command1_Click()
Dim xa As Single, ya As Single
Dim xb As Single, yb As Single
Dim xc As Single, yc As Single
Dim s As Double
    Picture1.Cls
    xa = Val(Text1)
    ya = Val(Text2)
    xb = Val(Text3)
    yb = Val(Text4)
    xc = Val(Text5)
    yc = Val(Text6)
    s = pltrkoor(xa, ya, xb, yb, xc, yc)
    Picture1.Print Format(s, "0.00")
End Sub

Обрамляете тегами [/VB][/VB] для правильной подсветки синтаксиса.
После публикации копируете уже расцвеченный текст программы и сразу вставляете его в Word (пока расцветка не поблёкла) и наслаждаемся результатом:

Расцветка синтаксиса при копировании кода из Visual Basic

@UBUNTU · 11.11.2020, 12:47

Pro_grammer, а если нет интернета под рукой и вообще это долго

@Pro_grammer · 11.11.2020, 13:13

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

если нет интернета под рукой

Тогда можно использовать всё тот же Notepad++.
Нужно сделать экспорт подсвеченного документа Дополнения > NppExport > Export to HTML
Или как RTF copy RTF to clipboard
И вставить в Word.

@Argus19 · 11.11.2020, 14:10

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

и сразу вставляете его в Word (пока расцветка не поблёкла)

У меня Word2007 так делать не хочет

@Lexangross51 · 11.11.2020, 15:20 **[ТС]**

А встроенными методами все-таки никак нельзя сохранить раскраску? Просто препод сказал, что это как бонусное задание, за которое можно получить бонусные баллы)

@Rh2Dark · 11.11.2020, 15:33

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

А встроенными методами все-таки никак нельзя сохранить раскраску? Просто препод сказал, что это как бонусное задание, за которое можно получить бонусные баллы)

Это он вас на написание своего плагина раскручивает

@Lexangross51 · 11.11.2020, 15:35 **[ТС]**

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

Тогда можно использовать всё тот же Notepad++.
Нужно сделать экспорт подсвеченного документа Дополнения > NppExport > Export to HTML
Или как RTF copy RTF to clipboard
И вставить в Word.

А можно вот здесь поподробнее. Не могу понять, куда жмякать

Добавлено через 49 секунд

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

Это он вас на написание своего плагина раскручивает

Ну вот а как это сделать?

@Rh2Dark · 11.11.2020, 15:38

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

Ну вот а как это сделать?

Использовать RichTextBox, загнать туда текст, поиском выцепить ключевые слова и раскрасить их

@Pro_grammer · 11.11.2020, 15:53

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

У меня Word2007 так делать не хочет

Не может такого быть. Я же скрин выставил именно из 2007 -го.
Или вы нарушили технологию копипастинга!

@Argus19 · 11.11.2020, 15:59

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

Или вы нарушили технологию копипастинга!

Вполне возможно.
https://forum.sources.ru/index... pic=359459
https://www.codeguru.com/vb/ge... nd-VB6.htm

@Pro_grammer · 11.11.2020, 16:03

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

А можно вот здесь поподробнее. Не могу понять, куда жмякать

И из буфера сразу в Word.
Правда, подсветка синтаксиса у N++ победнее будет, чем на форуме.

@Pro_grammer · 11.11.2020, 16:09

Argus19, для вас опять же есть готовое приложение на VB6, которое как раз сохраняет любой код на VB6 ( а так же файлы, проекты целиком!) в код на HTML с подсветкой.
Что самое интересное, можно менять там цвета на свои любые.
Где искать код? Да в том же вашем диске!

@Argus19 · 11.11.2020, 16:36

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

Да в том же вашем диске!

Я жду от вас и других кодов для размещения на диске.
Работа до сих пор до конца не доделана.

@Catstail · 11.11.2020, 17:01

Pro_grammer, Супер!!!

@falcons83 · 23.01.2024, 02:02

Visual Basic
1
2
Dim ПутьК_Папке As Variant
'Структура для хранения информации о структуре строк

@Jack Famous · 23.01.2024, 09:10

Раз уж тему воскресили, то отпишусь.
Я бы написал программу для Word на VBA по "подсветке" синтаксиса — то есть замене цвета шрифта на заданный у слов согласно списков. Но, думаю, там будет немало нюансов.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Lexangross51 1 / 1 / 0 Регистрация: 16.09.2019 Сообщений: 55

	Расцветка синтаксиса при копировании кода из Visual Basic 11.11.2020, 06:47. Показов 2076. Ответов 18 Метки нет (Все метки) Доброго всем дня! Такой вопрос: можно ли как-то сохранить расцветку кода при его копировании из Visual Basic, скажем, в Word. Если можно, то как? 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	11.11.2020, 07:38
	Lexangross51, В Ворд нет если вы не напишите надстройку которая будет по условию подсвечивать код. А вот в блокноте к примеру Notepad++ есть плагины которые подсвечивают синтаксис разных языков. 0

@Lexangross51 1 / 1 / 0 Регистрация: 16.09.2019 Сообщений: 55
	11.11.2020, 10:18 [ТС]
	А как написать эту самую надстройку? 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	11.11.2020, 12:47
	Pro_grammer, а если нет интернета под рукой и вообще это долго 0

@Lexangross51 1 / 1 / 0 Регистрация: 16.09.2019 Сообщений: 55
	11.11.2020, 15:20 [ТС]
	А встроенными методами все-таки никак нельзя сохранить раскраску? Просто препод сказал, что это как бонусное задание, за которое можно получить бонусные баллы) 0

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	11.11.2020, 16:09
	Argus19, для вас опять же есть готовое приложение на VB6, которое как раз сохраняет любой код на VB6 ( а так же файлы, проекты целиком!) в код на HTML с подсветкой. Что самое интересное, можно менять там цвета на свои любые. Где искать код? Да в том же вашем диске! 2

@Catstail Супер-модератор 38167 / 21102 / 4307 Регистрация: 12.02.2012 Сообщений: 34,690 Записей в блоге: 14
	11.11.2020, 17:01
	Pro_grammer, Супер!!! 0

@Jack Famous 932 / 365 / 43 Регистрация: 10.05.2021 Сообщений: 1,564 Записей в блоге: 10
	23.01.2024, 09:10
	Раз уж тему воскресили, то отпишусь. Я бы написал программу для Word на VBA по "подсветке" синтаксиса — то есть замене цвета шрифта на заданный у слов согласно списков. Но, думаю, там будет немало нюансов. 1

Расцветка синтаксиса при копировании кода из Visual Basic

Решение