返回列表 上一主題 發帖

音訊設定

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-4-24 14:37 | 只看該作者

音訊設定

本帖最後由 HSIEN6001 於 2012-4-24 14:46 編輯

我太菜了!光這個就搞不定
厚臉皮來求救了!
  1. Sub SpeEng()
  2. Dim i
  3.     For i = 1 To CountA(Range("C:C"))   '--->Error
  4.         Set oSa = CreateObject("SAPI.SpVoice")
  5.         oSa.Volume = 100
  6.         oSa.Rate = -1
  7.         oSa.Speak [ "C" & i ]   '--->Error
  8.         Sleep 2000  '--->Error
  9.     Next i
  10. End Sub
複製代碼
PS:小聲問....XP 內定的男音 有方法改成女音?!  (請不要告訴我:改灌Win 7)
收藏 分享

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
8#
發表於 2012-4-25 13:04 | 只看該作者
可以用了耶!
  1. Sub SpeEnginBox()
  2. Dim i
  3.     Application.ScreenUpdating = False
  4.     i = InputBox("請輸入欲發音列, 格式 1、2、3...", , 2)
  5.     Application.DisplayAlerts = False
  6.         Set oSa = CreateObject("SAPI.SpVoice")
  7.         oSa.Volume = 100
  8.         oSa.Rate = -1
  9.         oSa.Speak Cells(i, 3)
  10.         Sleep 2000
  11. End Sub
複製代碼
剪剪貼貼ㄉ語法
有誤用的話，請大大們指點。

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
7#
發表於 2012-4-24 22:19 | 只看該作者
回復 6# Hsieh


    謝謝Hsieh 版主的解析，我大略懂意思了
　我會再加把勁學習的，另一個想法我自己繼續努力看看
　
　屆時再商請指導！
　∼感恩！

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
247  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-14 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2012-4-24 22:05 | 只看該作者
本帖最後由 Hsieh 於 2012-4-24 22:15 編輯

回復 4# HSIEN6001

sleep是API函數，完整程式碼如下
  1. Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  2. Sub SpeEng()
  3. Dim i
  4.     For i = 1 To Application.CountA(Range("C:C"))   '使用工作表函數計算C欄的資料量作為迴圈結束
  5.         Set oSa = CreateObject("SAPI.SpVoice")  '創建語音物件
  6.         oSa.Volume = 100  '音量
  7.         oSa.Rate = -1  '速度
  8.         oSa.Speak Cells(i, 3) '讀出C欄的內容
  9.         Sleep 2000  '停留2秒繼續
  10.     Next i
  11. End Sub
複製代碼
學海無涯_不恥下問

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2012-4-24 16:43 | 只看該作者
本帖最後由 HSIEN6001 於 2012-4-24 17:03 編輯

回復 3# oobird

  版大,拍謝!  這網址,偶不知道按哪個下載!
優化（蛋）下載？！

　剛剛選 mike 發音較正常些!~謝謝^^

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2012-4-24 16:41 | 只看該作者
本帖最後由 HSIEN6001 於 2012-4-24 16:49 編輯

回復 2# oobird


    語法真是千變萬化!  好神!

    CountA(Range("C:C")    我不清楚錯在哪?!---->可以告訴我錯誤?!
    延遲 Sleep 2000 也不知道為何不行，會出現偵錯--->延遲的語法,請版大指導,謝謝!

   --->有個想法是用對話框輸入指定欄位，一次唸一句。不要〔延遲〕設定　　－－＞拜託版大指導，謝謝。
   
   版大提供 [c65536].End(3).Row 我趕快Google

   [C65536].End(xlUp).Row
   [C65536].End(xlDown).Row
   還有點"霧煞煞"，End(3)--->3應該指的是C
   UP & Down ?!

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2012-4-24 15:53 | 只看該作者
http://115.com/file/bhvcw92h
目前這個是公認最接近真人發音的文字轉換語音引擎

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2012-4-24 15:27 | 只看該作者
1.for i = 1 to [c65536].end(3).row

2. oSa.Speak  cells(i,3)

3. 網上有許多語音庫供下載，這是一個：http://album.blog.yam.com/show.p ... 8681&i=15505199
其實下載微軟TTS語音引擎 (TTS Engines) 5.1版，已包括 Sam / Mary / Mike 三種美國英語發音

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題