Hỏi cách dùng Text to speech để đọc textbox

[nplvn]

Mình có tải những tiện ích tạo từ điển trên diễn đàn.
Định làm tự điển chuyên ngành XD,
Nay bị vướng ở chỗ là làm thế nào để đọc tiếng anh trong textbox.
Xin mấy anh chỉ giùm.
Xin cảm ơn mọi người.

 

[mymichau]

Dùng cau lệnh : Application.Speech.Speak (TextBox1.Value)

 

[cadafi]

Mình có tải những tiện ích tạo từ điển trên diễn đàn.
Định làm tự điển chuyên ngành XD,
Nay bị vướng ở chỗ là làm thế nào để đọc tiếng anh trong textbox.

Bạn xem file đính kèm nhé!

 

[nplvn]

Xin chân thành cảm ơn.
Với lại mình còn 1 vấn đề nhờ mấy anh giúp đỡ.
Hiện tại mình có 1 dữ liệu từ tiếng anh sang tiếng việt (chuyên ngành XD), nhưng lại không có từ Việt sang Anh. Mình định lấy lại dữ liệu từ Anh sang Việt (đổi ngược lại), thành từ Việt sang Anh (chắc là không đúng hoàn toàn khi đổi ngược lại, nhưng để hổ trợ người tìm kiếm cho nhanh rồi xem ngược lại).
Nhưng do dữ liệu từ Anh sang Việt (có những giải thích lòng vòng) nên mình định lấy những từ cần thiết (do nhiều quá nên làm bằng tay thật là lâu) . Nên nhờ mấy anh xem
có cách nào lọc dữ liệu cần thiết không xin giúp đỡ dùm. Mình có up file kèm theo. Những từ tô màu đỏ trong file là từ cần lấy. Về cấu trúc dữ liệu thì tất cả từ cỏn lại đều giống như vậy cuối từ là dấu Enter hay sao ấy.
Xin nhờ mấy anh giúp đỡ.

 

[cadafi]

Xin chân thành cảm ơn.
Với lại mình còn 1 vấn đề nhờ mấy anh giúp đỡ.
Hiện tại mình có 1 dữ liệu từ tiếng anh sang tiếng việt (chuyên ngành XD), nhưng lại không có từ Việt sang Anh. Mình định lấy lại dữ liệu từ Anh sang Việt (đổi ngược lại), thành từ Việt sang Anh (chắc là không đúng hoàn toàn khi đổi ngược lại, nhưng để hổ trợ người tìm kiếm cho nhanh rồi xem ngược lại).
Nhưng do dữ liệu từ Anh sang Việt (có những giải thích lòng vòng) nên mình định lấy những từ cần thiết (do nhiều quá nên làm bằng tay thật là lâu) . Nên nhờ mấy anh xem
có cách nào lọc dữ liệu cần thiết không xin giúp đỡ dùm. Mình có up file kèm theo. Những từ tô màu đỏ trong file là từ cần lấy. Về cấu trúc dữ liệu thì tất cả từ cỏn lại đều giống như vậy cuối từ là dấu Enter hay sao ấy.
Xin nhờ mấy anh giúp đỡ.

Bạn dùng hàm LEFT kết hợp với FIND nhé.
Tại ô C2 gõ công thức:

=LEFT(B2,FIND(CHAR(10),B2,1)-1)

Sau đó copy công thức xuống nhé.
Bạn xem file đính kèm.

 

[nplvn]

Cảm ơn dafi, để mình tải xuống rối làm thử.
Cảm ơn nhiều.

 

[nplvn]

Một lần nữa, cảm ơn bạn Kiệt, bạn chỉ dùng hàm đơn giản vậy là xong , vậy mà mình nghĩ hoài không ra.
Hì, với bạn giúp thì giúp cho trót.
Mình có tải file của anh Duyệt (cái form học từ vựng), về chế lại tí cho nó lâu lâu mới show 1 lần, đọc 1 lần rồi ẩn xuống. Bị vướng ở chỗ là nếu đang làm việc ở cad hay chương trình khác thì form đò không đưa lên trên cùng được. bạn có cách nào giúp mình không. Cảm ơn

 

[nplvn]

Bạn Kiệt làm ơn cho mình hỏi cái nữa. Hàm left và find có thể dùng trong VBA như dùng trong Excel không. Mình thử dùng hàm đó trong VBA thay đổi "B2" bằng một biến chứa chuỗi text thì báo lỗi ở
"Char" .Vì định làm thay đổi màu cho dòng chữ "nghĩa chính" của từ điển từ Anh sang Việt, nên cần lấy đoạn te xt đó rối gán vào 1 text box khác . Xin cảm ơn.
Mong bạn và các anh nào biết giúp đỡ giùm.

 

[cadafi]

Bạn Kiệt làm ơn cho mình hỏi cái nữa. Hàm left và find có thể dùng trong VBA như dùng trong Excel không. Mình thử dùng hàm đó trong VBA thay đổi "B2" bằng một biến chứa chuỗi text thì báo lỗi ở
"Char" .Vì định làm thay đổi màu cho dòng chữ "nghĩa chính" của từ điển từ Anh sang Việt, nên cần lấy đoạn te xt đó rối gán vào 1 text box khác . Xin cảm ơn.
Mong bạn và các anh nào biết giúp đỡ giùm.

Trong VBA thì bạn dùng hơi khác một chút nhé:

MyText = Left(Sheets("sheet1").Range("B2"), _
Application.WorksheetFunction.Find(Chr(10), _
Sheets("sheet1").Range("B2"), 1) - 1))

Thay CHAR() bằng CHR()
Thay FIND() bằng Application.WorksheetsFunction.FIND()
Thay B2 bằng địa chỉ Sheets("Tên Sheet").Range("Địa chỉ ô cần trích") hoặc bằng một tham số tùy biết có thuộc tính range.

 

[nplvn]

Gởi Kiệt:
Mình có tải chương trình tự điển của bạn xuống . Xin bạn giúp đỡ (cái náy mình so với những chương trình mình tải trên diễn đàn xuống)
- Mình không biết nhiều
- Khi sử dụng thì thấy cách tìm từ của bạn rất nhanh, rất hợp với cách tìm từ từ Việt sang Anh. các chương trình khác thì chậm hơn do phải clear rồi add các từ lại.
- Mình định lấy chưong trình của bạn rồi thêm các dữ liệu của mình vào nhưng do dữ liệu của mình hơi nhiều. Khi mới chèn vào khoảng 3.000 từ bên list tiếng anh sang việt và kéo các công thức để thay đổi danh sách của bạn xuống 20.000 thì lên tới 21.3 Mb. Mình không biết thêm hết dữ liệu vào cỡ bao nhiêu chỉ sợ máy chạy không nỗi. Các chương trình khác với 3000 từ thì khoảng 4.5Mb. Kiệt có cách nào để giảm dung lượng file xuống không. Hiện tại với cấu trúc của file của bạn thì cùng 1 dữ liệu có tới ở 2 Sheet. Rất mong bạn giúp đỡ nếu có thể.