VBA操作AWS Polly修改文本后无法朗读新内容及字符计数不更新问题

我来帮你搞定这个问题！你遇到的情况其实很常见——直接修改textarea的value值后，页面的前端脚本根本没察觉到变化，所以既没更新剩余字符计数器，也没让Polly识别到新的文本内容。咱们一步步来修复：

AWS Polly的演示页面依赖前端事件（比如input或change）来同步textarea的内容到内部状态。你直接用VBA修改value属性后，这些关键事件没被触发，页面自然还在使用原来的默认值。

1. 确保页面完全加载再操作 #

很多时候问题出在页面还没加载完毕就执行代码，一定要加等待逻辑：

objIE.Visible = True
objIE.Navigate "https://aws.amazon.com/polly/demo/"

' 等待页面核心加载完成
Do While objIE.Busy Or objIE.ReadyState <> 4
    DoEvents
Loop
' 额外加2秒延迟，确保前端脚本全部初始化
Application.Wait Now + TimeValue("00:00:02")

2. 定位textarea并修改内容，同时触发事件 #

不能只改value，必须手动触发input事件让页面感知变化：

Dim textArea As Object
' 这里要确保元素ID正确，可按F12在IE开发者工具里查看
Set textArea = objIE.Document.getElementById("text-to-speak")

If Not textArea Is Nothing Then
    ' 设置新文本
    textArea.Value = "This is a test message."
    ' 创建并触发input事件
    Dim evt As Object
    Set evt = objIE.Document.createEvent("HTMLEvents")
    evt.initEvent "input", True, False
    textArea.dispatchEvent evt
End If

3. 触发朗读按钮的点击事件 #

找到页面上的朗读按钮，模拟用户点击操作：

Dim speakBtn As Object
Set speakBtn = objIE.Document.getElementById("speak-button")

If Not speakBtn Is Nothing Then
    speakBtn.Click
End If

把以上步骤整合起来，完整的VBA代码如下：

Sub AWSPollyCustomText()
    Dim objIE As Object
    Set objIE = CreateObject("InternetExplorer.Application")
    
    ' 打开Polly演示页面
    objIE.Visible = True
    objIE.Navigate "https://aws.amazon.com/polly/demo/"
    
    ' 等待页面加载完成
    Do While objIE.Busy Or objIE.ReadyState <> 4
        DoEvents
    Loop
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 修改文本并触发事件
    Dim textArea As Object
    Set textArea = objIE.Document.getElementById("text-to-speak")
    If Not textArea Is Nothing Then
        textArea.Value = "This is a test message."
        Dim evt As Object
        Set evt = objIE.Document.createEvent("HTMLEvents")
        evt.initEvent "input", True, False
        textArea.dispatchEvent evt
    End If
    
    ' 短暂等待计数器更新
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 触发朗读
    Dim speakBtn As Object
    Set speakBtn = objIE.Document.getElementById("speak-button")
    If Not speakBtn Is Nothing Then
        speakBtn.Click
    End If
    
    ' 如需自动关闭IE，可取消下面两行注释
    ' objIE.Quit
    ' Set objIE = Nothing
End Sub

• 要确认元素ID是否正确：AWS可能会更新页面结构，你可以在IE中按F12打开开发者工具，直接查看textarea和朗读按钮的ID。
• 如果getElementById找不到元素，可以尝试用getElementsByTagName("textarea")遍历，或者querySelector（IE11及以上支持）。
• 延迟时间可根据你的网络情况调整，确保页面和脚本完全就绪。

内容的提问来源于stack exchange，提问作者jeromekjerome