项目
09/23/2023
适用范围：Visual Studio Visual Studio for Mac Visual Studio Code本演练演示如何在 Microsoft Office Word 的文档级自定义项中使用按钮和文本框。适用于： 本主题中的信息适用于 Word 的文档级项目。 有关详细信息，请参阅办公室应用程序和项目类型提供的功能。本演练阐释了以下任务：先决条件你需要满足以下条件才能完成本演练：创建项目第一步是创建 Word 文档项目。创建新项目创建名为 “我的 Word 按钮”的 Word 文档项目。 在向导中，选择“ 创建新文档”。
有关详细信息，请参阅“如何：在 Visual Studio 中创建办公室项目。
Visual Studio 将在设计器中打开新的 Word 文档，并将“我的 Word 按钮”项目添加到解决方案资源管理器。
向 Word 文档添加控件用户界面控件包含一个按钮和一个 Word 文档上的文本框。添加一个按钮和一个文本框验证该文档已在 Visual Studio 设计器中打开。
从工具箱的“常见控件”选项卡中，将控件TextBox拖动到文档中。
注意在 Word 中，默认情况下控件将按照文本进行删除。 可以通过更改 Word 中“选项”对话框的“编辑”选项卡上的默认值来修改控件和形状对象插入的方式。
在“视图”菜单上选择“属性”窗口。
在“属性”窗口下拉列表框中查找 TextBox1，并将文本框的 Name 属性更改为 displayText。
将 按钮 控件拖到文档中并更改以下属性。
属性
值
Name
insertText
文本
插入文本
现在，你可以编写将在单击该按钮时运行的代码。
单击按钮时填充文本框每次用户选择该按钮时， Hello World！ 都会添加到文本框中。在单击按钮时写入文本框在解决方案资源管理器中，右键单击 ThisDocument，然后选择快捷菜单上的“查看代码”。
将下列代码添加到按钮的 Click 事件处理程序。
C#
VB
private void insertText_Click(object sender, EventArgs e)
{
this.displayText.Text += "Hello World!";
}
在 C# 中，必须向 Startup 事件添加按钮的事件处理程序。 有关创建事件处理程序的信息，请参阅如何：在办公室项目中创建事件处理程序。
this.insertText.Click += new EventHandler(insertText_Click);
测试应用程序现在，你可以测试文档，以确保选择按钮时文本框中会显示消息 Hello World！ 。测试文档按 F5 运行项目。
选择
按钮。
确认 Hello World！ 显示在文本框中。
后续步骤本演练演示在 Word 文档中使用按钮和文本框的基础知识。 以下是接下来可能要执行的一些任务：相关内容有关办公室文档的Windows 窗体控件概述
使用 Word 的演练
办公室开发示例和演练
如何：向办公室文档添加Windows 窗体控件
主机项和主机控件概述
}

一、问题来源有知友在关于Powerpoint VBA教程文章的评论区问我下面这个问题：请问ppt的vba，选中的当前文本框的名称、选中的当前形状的名称是什么，老是提示找不到对象。说实话，这样的问题网上一搜就可以找到，但是有求必应是我的风格。二、解决方案——向ChatGPT求助于是我打开了我的专属微软MVP-ChatGPT并要求它扮演一位精通Office VBA的专家。直接把知友的问题甩给它：奇思：我需要你扮演一位微软MVP，专长于VBAChatGPT：好的，我会尽力扮演一位专长于Excel VBA的微软MVP。请问有什么需要我回答的问题吗？奇思：请问ppt的vba，选中的当前文本框的名称、选中的当前形状的名称是什么，老是提示找不到对象。ChatGPT：要在PowerPoint的VBA中获取当前选中文本框或形状的名称，您可以使用下面的代码：Sub GetSelectedShapeName()
Dim sld As Slide
Dim shp As Shape
Set sld = ActiveWindow.Selection.SlideRange(1)
Set shp = ActiveWindow.Selection.ShapeRange(1)
If shp.Type = msoTextBox Then
MsgBox "Selected shape name: " & shp.Name & vbNewLine & _
"Selected text box name: " & shp.TextFrame.Name
Else
MsgBox "Selected shape name: " & shp.Name
End If
End Sub这段代码首先获取当前选中的幻灯片（使用ActiveWindow.Selection.SlideRange(1)），然后获取选中的形状（使用ActiveWindow.Selection.ShapeRange(1)）。接下来，它检查所选形状的类型。如果它是文本框，则它还获取文本框的名称（使用shp.TextFrame.Name）。甚至它还考虑到了异常情况——没有选择对象，程序会报错，也给出了处理的代码。请注意，如果当前没有选中形状或文本框，则此代码将会报错。为了避免这种情况，您可以在代码开头添加以下行：If ActiveWindow.Selection.Type <> ppSelectionShapes And _
ActiveWindow.Selection.Type <> ppSelectionText Then
MsgBox "Please select a shape or text box first.", vbExclamation
Exit Sub
End If这样，如果没有选择任何形状或文本框，则会显示一条消息并退出过程。希望这可以帮助您获取所需的对象名称。三、测试验证1. 打开Powerpoint，新建一个PPT。2. 按快捷键 Alt+F11打开VBE编辑器。3. 新建模块在当前PPT的VBAProject上右键选择“插入”然后选择“模块”。4. 粘贴代码将上面ChatGPT给出的代码复制粘贴到代码窗口。5. 测试运行直接在VBE窗口中按F5，提示一个错误“方法和数据成员未找到”，应该是文本框的名称并不是shp.TextFrame.Name这个属性，将其改为shp.Name，再次运行。这次没有出现报错，但是运行到这个语句时出错，实际上是由于没有选中文本框或者形状。明明有错误处理的代码啊，为什么没起作用呢？仔细观察代码，错误处理的代码在出错的代码的下方，当然起不到作用啦！把两个代码块调换下位置。6. 再次运行这次出现了错误处理的提示，没有选择文本框或形状，我的确没有选择任何形状或者文本框。选择一个形状后，再次F5运行代码，出现的正确的结果：四、 总结ChatGPT的确非常强大，能够快速解决代码的问题。我最近也在深入研究如何用ChatGPT来快速提升VBA解决问题的能力，如果你对学习ChatGPT与VBA结合有兴趣，请私信咨询。}

项目
09/23/2023
适用范围：Visual Studio Visual Studio for Mac Visual Studio Code本演练演示如何在 Microsoft Office Word 的文档级自定义项中使用按钮和文本框。适用于： 本主题中的信息适用于 Word 的文档级项目。 有关详细信息，请参阅办公室应用程序和项目类型提供的功能。本演练阐释了以下任务：先决条件你需要满足以下条件才能完成本演练：创建项目第一步是创建 Word 文档项目。创建新项目创建名为 “我的 Word 按钮”的 Word 文档项目。 在向导中，选择“ 创建新文档”。
有关详细信息，请参阅“如何：在 Visual Studio 中创建办公室项目。
Visual Studio 将在设计器中打开新的 Word 文档，并将“我的 Word 按钮”项目添加到解决方案资源管理器。
向 Word 文档添加控件用户界面控件包含一个按钮和一个 Word 文档上的文本框。添加一个按钮和一个文本框验证该文档已在 Visual Studio 设计器中打开。
从工具箱的“常见控件”选项卡中，将控件TextBox拖动到文档中。
注意在 Word 中，默认情况下控件将按照文本进行删除。 可以通过更改 Word 中“选项”对话框的“编辑”选项卡上的默认值来修改控件和形状对象插入的方式。
在“视图”菜单上选择“属性”窗口。
在“属性”窗口下拉列表框中查找 TextBox1，并将文本框的 Name 属性更改为 displayText。
将 按钮 控件拖到文档中并更改以下属性。
属性
值
Name
insertText
文本
插入文本
现在，你可以编写将在单击该按钮时运行的代码。
单击按钮时填充文本框每次用户选择该按钮时， Hello World！ 都会添加到文本框中。在单击按钮时写入文本框在解决方案资源管理器中，右键单击 ThisDocument，然后选择快捷菜单上的“查看代码”。
将下列代码添加到按钮的 Click 事件处理程序。
C#
VB
private void insertText_Click(object sender, EventArgs e)
{
this.displayText.Text += "Hello World!";
}
在 C# 中，必须向 Startup 事件添加按钮的事件处理程序。 有关创建事件处理程序的信息，请参阅如何：在办公室项目中创建事件处理程序。
this.insertText.Click += new EventHandler(insertText_Click);
测试应用程序现在，你可以测试文档，以确保选择按钮时文本框中会显示消息 Hello World！ 。测试文档按 F5 运行项目。
选择
按钮。
确认 Hello World！ 显示在文本框中。
后续步骤本演练演示在 Word 文档中使用按钮和文本框的基础知识。 以下是接下来可能要执行的一些任务：相关内容有关办公室文档的Windows 窗体控件概述
使用 Word 的演练
办公室开发示例和演练
如何：向办公室文档添加Windows 窗体控件
主机项和主机控件概述
}