Chia sẻ: Nhận diện giọng nói tiếng Việt Offline trong Excel (VBA + DLL) - Hỗ trợ WAV, MP3, MP4, M4A (1 người xem)

Kiều Mạnh · Thứ sáu lúc 11:16

Bài viết sau do ChatGPT biên soạn theo yêu cầu của Tôi

Chia sẻ: Nhận diện giọng nói tiếng Việt Offline trong Excel (VBA + DLL) - Hỗ trợ WAV, MP3, MP4, M4A

Chào các thành viên GPE.

Mình xin chia sẻ một demo nhỏ mình đang nghiên cứu: chuyển giọng nói tiếng Việt thành văn bản ngay trong Excel, chạy offline, không cần Internet và không cần tài khoản AI.

Demo hoạt động

Người dùng chỉ cần:

Chọn một file ghi âm hoặc video.
Excel gọi hàm VBA.
Kết quả văn bản được ghi vào ô đang chọn.

Hỗ trợ các định dạng phổ biến:

WAV
MP3
MP4
M4A (ghi âm từ iPhone)

Kiến trúc của giải pháp

Excel VBA
│
▼
WavParser.dll
(Đọc WAV/MP3/MP4/M4A và chuẩn hóa âm thanh)
│
PCM 16-bit Mono 16 kHz
│
▼
transcribe.dll
(Whisper.cpp + Model AI)
│
▼
Văn bản tiếng Việt UTF-8
│
▼
ActiveCell.Value

Hai DLL có nhiệm vụ hoàn toàn riêng biệt:

DLL	Chức năng
WavParser.dll	Đọc file âm thanh/video, giải mã và chuẩn hóa về PCM 16-bit Mono 16 kHz.
transcribe.dll	Nhận dữ liệu PCM, dùng Whisper để chuyển thành văn bản tiếng Việt.

Ví dụ VBA

Result = DoTranscribe(WavPath, "vi")
ActiveCell.Value = Result
Sau khi chọn file, nội dung nói sẽ được ghi trực tiếp vào ô Excel.

Mục tiêu của dự án

Nhập liệu từ ghi âm cuộc họp vào Excel.
Chuyển ghi âm khách hàng thành văn bản.
Làm công cụ Speech-to-Text cho Excel hoàn toàn offline trên Windows.

Đây mới là phiên bản demo nên mình rất mong nhận được góp ý của anh chị em GPE về hướng phát triển hoặc các ý tưởng ứng dụng trong Excel.

Xin cảm ơn mọi người đã đọc.

ai quan tâm có thể tải và sử dụng trên Gtthub

GitHub - KieuManh366377/SpeechToTextDLL: Offline speech-to-text DLLs for VBA/Excel and Delphi — WAV/MP3/MP4/M4A, powered by whisper.cpp.

Offline speech-to-text DLLs for VBA/Excel and Delphi — WAV/MP3/MP4/M4A, powered by whisper.cpp. - KieuManh366377/SpeechToTextDLL

github.com

Kiều Mạnh · Thứ bảy lúc 11:01

hướng dẫn cho ai đó tò mò muốn thử

1/ Tải các File ở bài số 1 về lưu vào một thư mục nào đó tuỳ thích

2/ Mở Iphone lên ghi âm giọng nói của chính mình xong lưu lại gửi qua Zalo hay cách nào đó tuỳ thích xong tải nó về lưu vào máy tính

3/ thử chuyển từ một chuỗi tiếng việt thành .mp3 xong tải file về máy tính link sau

Free AI Text-To-Speech for English & MP3 Download | ttsMP3.com

Get free AI Text-To-Speech in English and 57+ languages. Natural AI voices, instant playback, and MP3 downloads.

ttsmp3.com

xem hình . khoanh màu đỏ thích gì viết vào đó, khoanh màu xanh mở loa mà nghe xong bấm tải xuống dưới dang mp3 về máy tính

4/ Tuỳ theo cấu hình máy tính đang sử dụng cao hay thấp thì tải Model AI phù hợp về mà sử dụng nhưng để test thì tải Model sau là phù hợp

https://huggingface.co/ggerganov/whisper.cpp/resolve/main/ggml-small.bin

xem hình trên Github

Hoặc tuỳ chọn Model theo sở thích nhưng khi sử dụng khai báo lại

Private Const MODEL_FILE As String = "ggml-small.bin"

ggerganov/whisper.cpp at main

We’re on a journey to advance and democratize artificial intelligence through open source and open science.

huggingface.co

xong từ VBA chạy mã sau chọn file .mp3 hay file đã ghi âm từ Iphone tải trước chạy mã và xem kết quả trên Excel tại vị trí ActiveCell.Value

Toàn bộ giọng nói đã chuyển thành chuỗi tiếng việt có dấu trên Excel

Mã:

Sub TestTranscribeAsyncToSheet()
    Dim WavPath As String, Result As String

    WavPath = Application.GetOpenFilename( _
        "Audio/Video (*.wav;*.mp3;*.mp4;*.m4a),*.wav;*.mp3;*.mp4;*.m4a", _
        , "Chon file WAV, MP3, MP4 hoac M4A")
    If WavPath = "False" Then Exit Sub

    Result = DoTranscribeAsync(WavPath, "vi")
    ActiveCell.Value = Result

    If Left(Result, 6) = "ERROR:" Then
        MsgBox "Co loi - xem chi tiet trong o " & ActiveCell.Address, vbCritical
    Else
        MsgBox "Da ghi ket qua vao o " & ActiveCell.Address, vbInformation
    End If
End Sub

Lưu ý :

1/ Muốn chuẩn kết quả thì sử dụng Model AI càng cao thì kết quả chính xác càng cao

2/ Giọng nói chuẩn tròn vành rõ chữ và không có tạp âm hay ngữ âm địa phương + từ lóng vvv

Chia sẻ: Nhận diện giọng nói tiếng Việt Offline trong Excel (VBA + DLL) - Hỗ trợ WAV, MP3, MP4, M4A (1 người xem)

Người dùng đang xem chủ đề này

Kiều Mạnh

I don't program, I beat code into submission!!!

Bài viết sau do ChatGPT biên soạn theo yêu cầu của Tôi