Озвучка текста в C#
В данной статье я расскажу вам как озвучить текст при помощи C#.
Для работы нам понадобится подключить библиотеку Speech.
В данной статье я расскажу вам как озвучить текст при помощи C#.
Для работы нам понадобится подключить библиотеку Speech.
В данной статье я научу вас автоматизировать Microsoft Excel средствами VBS. В прошлой статье я описывал работу с Word. Привожу сразу код, так как он подробно прокомментирован:
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 29 30 31 32 33 34 35 36 37 38 |
Option Explicit Dim oExcelApp ' Объявляем переменные Dim oRangeD2D8 Dim oRangeH2J8 Set oExcelApp = CreateObject("Excel.Application") ' Создаём объект с Excel-ем oExcelApp.Visible = True ' Делаем Excel видимым oExcelApp.Workbooks.Add ' Добавляем книгу в Excel oExcelApp.Cells(2,2).Font.Bold = True ' Делаем текст жирным в ячейке 1,1 oExcelApp.Cells(2,2).Font.Size = 20 ' Устанавливаем размер шрифта oExcelApp.Cells(2,2).Font.ColorIndex = 2 ' Устанавливаем цвет текста oExcelApp.Cells(2,2).Interior.ColorIndex = 1 ' Устанавливаем цвет ячейки oExcelApp.Cells(2,2).Value = "Test" ' Добавляем данные Set oRangeD2D8 = oExcelApp.Range("D2","D8") ' Получаем доступ к ряду ячеек oRangeD2D8.Font.Size = 16 ' Устанавливаем размер шрифта oRangeD2D8.Font.Italic = True ' Делаем курсивный текст oRangeD2D8.Font.Underline = True ' Делаем текст подчёркнутым oRangeD2D8.Value = "Test" ' Устанавливаем для всех них текст Dim i For i = 2 To 6 oExcelApp.Cells(i,6).Value = i ' заполняем ячейки числами Next oExcelApp.Cells(8,6).Font.Bold = True oExcelApp.Cells(8,6).Font.Underline = True oExcelApp.Cells(8,6).Font.Size = 24 oExcelApp.Cells(8,6).Formula = "=SUM(F2:F6)" ' Добавляем формулу, которая в ячейке F8 отобразит сумму ранее добавленных цифр Set oRangeH2J8 = oExcelApp.Range("H2","J8") ' Получаем доступ к ячейкам H2:J8 oRangeH2J8.Merge ' Объединяем группу ячеек oExcelApp.Save ' Сохраняем Excel файл oExcelApp.Quit ' Закрываем Excel |
Результат работы скрипта: Помогла ли вам данная статья, ответьте в комментариях.
Всем привет. В данной статье я расскажу вам про базовый функционал для работы с Microsoft Office при помощи VBS. Ниже привожу код, который я подробно прокомментировал:
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 29 30 |
Option Explicit ' Инструкция, которая будет "ругаться", если переменные не будут явно объявляться Dim oWord ' объявляем переменные Dim oDoc Dim oSelectionPlace Set oWord = CreateObject("Word.Application") ' Создаём объект с Word-ом oWord.Visible = True ' делаем видимым Word Set oDoc = oWord.Documents.Add() ' Добавляем документ Set oSelectionPlace = oWord.Selection ' Получаем доступ к выделенной области oSelectionPlace.TypeParagraph() ' Делаем параграф oSelectionPlace.Paragraphs.Alignment = 1 ' Выравнивание текста по центру. 0 - левый край, 1 - по центру, 2 - правый край, 3 - по ширине oSelectionPlace.Font.Name = "Calibri" ' Указываем желаемый шрифт oSelectionPlace.Font.Size = "40" ' Указываем размер шрифта oSelectionPlace.Font.Bold = True ' Устанавливаем жирный текст oSelectionPlace.Font.Color = RGB(19, 77, 158) ' Устанавливаем цвет текста oSelectionPlace.TypeText "Progtask.ru" ' Вводим текст oSelectionPlace.TypeParagraph() ' Делаем параграф oSelectionPlace.Font.Size = "20" ' Устанавливаем размер шрифта oSelectionPlace.Font.Color = RGB(167, 8, 93) ' Устанавливаем цвет текста oSelectionPlace.TypeText "Записки программиста" ' Вводим текст oDoc.Save ' сохраняем документ oDoc.Close ' закрываем документ oWord.Quit ' закрываем Word |
Результат выполнения данного скрипта: Кстати, для того чтобы русский текст отображался нормально, а не кракозябрами, файл необходимо сохранять в кодировке UCS-2 LE BOM. Это можно сделать к примеру […]
Приветствую. В данной статье я расскажу как при помощи bat файла создать папки от 1 до того значения, которое вам необходимо. Примечателен способ тем, что для его использования вам не потребуется что-то устанавливать дополнительно, если конечно вы являетесь пользователем Windows. Вот собственно сам код:
1 2 3 4 5 6 7 8 9 10 11 12 |
chcp 1251 set nameFolder = 0 :: объявляем переменную :m :: метка set /A nameFolder=nameFolder+1 :: добавляем к переменной 1 md %nameFolder% :: создаём папку if not %nameFolder% == 100 goto m :: проверка условия. Когда значение превысит указанное число, программа завершится. :: Вместо 100 вы естественно можете подставить требуемое значение. |
Конечно же, начальный номер можно тоже поменять, для этого заменив […]