ID Artikel: 287120 - Kajian Terakhir: 23 September 2011 - Revisi: 2.0

Cara mengotomatisasi Excel teks pidato di program Office lainnya

Tips SistemThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.

Pada Halaman ini

Perbesar semua | Perkecil semua

RINGKASAN

Artikel ini selangkah demi selangkah menjelaskan bagaimana Anda dapat teks Pidato fungsionalitas Microsoft Excel di program lain, termasuk Microsoft Word, Microsoft PowerPoint, dan Microsoft Outlook.

Microsoft Excel adalah satu-satunya program Microsoft Office XP yang telah built-in teks untuk Speech (TTS) kemampuan. Artikel ini menjelaskan bagaimana Anda dapat menggunakan OLE Otomatisasi untuk pemrograman mengakses Excel object model dan menggunakan teks Pidato fungsi pada program lainnya.

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Menggunakan Text to Speech dalam PowerPoint

Contoh berikut menggunakan Excel object model untuk akses teks pidato dari presentasi PowerPoint. Prosedur ini menunjukkan bagaimana referensi dan membuat Excel objek dalam rangka untuk menggunakan Pidato objek.

Masukkan modul ke dalam presentasi PowerPoint

  1. Buka presentasi PowerPoint.
  2. Tekan ALT+F11 untuk memulai Editor Visual Basic.
  3. Pada Masukkan menu, klik Modul.
  4. Jenis atau Salin dan paste ke modul sampel kode yang muncul kemudian dalam bagian ini.

Menambahkan referensi ke Excel perpustakaan objek 10

  1. Dalam Visual Basic Editor, arahkan ke Referensi pada Alat menu.
  2. Di bawah Referensi yang tersedia, klik untuk memilih Perpustakaan objek Microsoft Excel 10,0 Periksa kotak, dan kemudian klik Oke.

Sub prosedur untuk mengotomatisasi Excel Text to Speech dari PowerPoint

Contoh berikut menganggap bahwa presentasi PowerPoint Anda memiliki dua slide.
Sub demoTTS()
    
    'Declare and create an Excel object.
    Dim XL As Excel.Application
    Set XL = CreateObject("Excel.Application")
    
    ActivePresentation.SlideShowSettings.Run
 
    With SlideShowWindows(1).View
        'The following is said on the first slide:
        XL.Speech.Speak "Welcome to my presentation."
        'Change to slide 2, and then say the following two sentences:
        .Next
        XL.Speech.Speak "This is an example of how to create an Excel Application object."
        XL.Speech.Speak "We can use Excel's object model to invoke Text to Speech."
        
        'Close the Excel object and set the object to nothing.
        XL.Quit
        Set XL = Nothing
        
        'Exit the slideshow.
        .Exit
    End With
    
End Sub

				
CATATAN: Keamanan PowerPoint diatur pada tinggi secara default. Unsigned makro Visual Basic tidak berjalan dalam hal ini pengaturan. Mengubah tingkat keamanan makro untuk Media dengan mengikuti langkah-langkah berikut:
  1. Pada Alat menu, titik Makro, lalu klik Keamanan.
  2. Pada Tingkat keamanan tab, klik untuk memilih Media, lalu klik Oke.
  3. Pada Berkas menu, klik Keluar untuk berhenti PowerPoint.

    CATATAN: Anda harus berhenti dan restart PowerPoint untuk tingkat keamanan perubahan untuk mengambil efek.

Menggunakan Text to Speech pada Word

Contoh berikut menggunakan Excel object model untuk akses teks pidato dari dokumen Word. Prosedur ini menunjukkan bagaimana untuk referensi dan membuat Excel objek dalam rangka untuk menggunakan Pidato objek.

Masukkan modul ke kata

  1. Membuka dokumen Word.
  2. Tekan ALT+F11 untuk memulai Editor Visual Basic.
  3. Pada Masukkan menu, klik Modul.
  4. Jenis atau Salin dan paste ke modul sampel kode yang muncul kemudian dalam bagian ini.

Menambahkan referensi ke Excel perpustakaan objek 10

  1. Dalam Visual Basic Editor, arahkan ke Referensi pada Alat menu.
  2. Di bawah Referensi yang tersedia, pilih Perpustakaan objek Microsoft Excel 10,0 Periksa kotak, dan kemudian klik Oke.

Sub prosedur untuk mengotomatisasi Excel Text to Speech dari kata

Contoh berikut mengasumsikan bahwa Anda ketik teks di Word Anda dokumen dan kemudian pilih teks sebelum Anda menjalankan prosedur Sub.
Sub TTS()
   'Declare and create an Excel object.
      Dim XL_tts As Excel.Application
      Set XL_tts = CreateObject("Excel.Application")
      XL_tts.Speech.Speak Selection
      XL_tts.Quit
      Set XL_tts = Nothing
End Sub
				
CATATAN: Keamanan kata diatur pada tinggi secara default. Unsigned makro Visual Basic tidak berjalan dalam hal ini pengaturan. Mengubah tingkat keamanan makro untuk Media dengan mengikuti langkah-langkah berikut:
  1. Pada Alat menu, titik Makro, lalu klik Keamanan.
  2. Pada Tingkat keamanan tab, klik untuk memilih Media, lalu klik Oke.
  3. Pada Berkas menu, klik Keluar untuk keluar dari Word.
CATATAN: Anda harus berhenti dan restart Word untuk keamanan tingkat perubahan mengambil efek.

REFERENSI

Untuk tambahan informasi, klik nomor artikel di bawah ini untuk melihat artikel di Basis Pengetahuan Microsoft:
277808  (http://support.microsoft.com/kb/277808/EN-US/ ) XL2002: "Run-time kesalahan pengoperasian 1004" ketika Anda mencoba untuk menggunakan Text to Speech di makro
Untuk informasi tambahan tentang mendapatkan bantuan dengan Visual Basic untuk aplikasi, klik nomor artikel di bawah ini untuk melihat artikel di Microsoft Basis Pengetahuan:
163435  (http://support.microsoft.com/kb/163435/ ) Pemrograman sumber daya untuk Visual Basic for Applications

Berlaku bagi:
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Word 2002
Kata kunci: 
kbautomation kbenablesight kbhowtomaster kbmt KB287120 KbMtid
Penerjemahan MesinPenerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:287120  (http://support.microsoft.com/kb/287120/en-us/ )