怎样用Vba宏设计一个按钮可以绘制填充色为白色，线条色为无的文本框

因为工作经常需要在WORD中制作填充色为白色，线条色均为无的文本框，一次次更改太麻烦，怎样录制宏可以创建一个命令，使可以直接画出来一个填充色和线条色均为无的文本框。录制方法和代码都行，只要能用就好😭

Sub 宏1()
'
' 宏1 宏
'
'
    Dim doc As Document
    Dim rng As Range
    Dim shp As Shape
    
    ' 定义要插入文本框的文档和范围
    Set doc = ActiveDocument
    Set rng = Selection.Range ' 或者使用其他需要插入的位置的Range对象
    
    ' 插入文本框
    Set shp = doc.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 50)
    
    ' 设置文本框的填充色为白色、线条颜色为无
    With shp
        .Fill.ForeColor.RGB = RGB(255, 255, 255) ' 设置填充色为白色
        .Line.Visible = msoFalse ' 设置线条颜色为无
    End With
End Sub

你做的文本框组合一下后复制粘贴也不慢呀

【以下回答由 GPT 生成】

问题解决方案

基于您的问题描述，您需要通过VBA宏来设计一个按钮，以便在Word中创建填充色为白色、线条色为无的文本框。根据您提供的信息，以下是解决方案的步骤：

步骤 1：打开Word VBA编辑器

• 在Word中打开一个新的或现有的文档。
• 按下 Alt + F11，打开VBA编辑器。

步骤 2：创建一个新的宏

• 在VBA编辑器中，右键点击 "Normal" 项目，并选择 "Insert" -> "Module"，创建一个新的模块。

步骤 3：编写宏代码

• 在新的模块中，编写以下代码：

Sub CreateTextBox()
    Dim tb As TextBox
    Set tb = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50).TextFrame.TextRange
    With tb
        .Fill.ForeColor.RGB = RGB(255, 255, 255) ' 设置填充色为白色（RGB值为255, 255, 255）
        .Line.Visible = msoFalse ' 设置线条色为无
        .Text = "" ' 可以在此设置默认文本
    End With
End Sub

步骤 4：保存宏并创建按钮

• 在VBA编辑器中，点击 "File" -> "Save"，保存宏。
• 关闭VBA编辑器。

步骤 5：将宏按钮添加到Word界面

• 在Word中，点击工具栏上的 "开发工具" 标签（如果没有显示，请右键点击工具栏，选择 "自定义"，勾选 "开发工具"）。
• 点击 "插入" 下拉菜单中的 "按钮" 控件，然后在文档中绘制按钮的区域。
• 在弹出的 "Assign Macro" 对话框中，选择之前保存的宏 "CreateTextBox"，点击 "确定"。
• 现在您可以在Word文档中使用此按钮来创建填充色为白色、线条色为无的文本框了。

补充说明

• 请确保您了解VBA宏编程以及如何在Word中使用自定义宏的基本知识。
• 以上代码基于Word 2016版本，其他版本可能略有不同。如果您使用的是其他版本，请提供更详细的信息以便给出针对性的解决方案。

【相关推荐】

• 帮你找了个相似的问题, 你可以看下: https://ask.csdn.net/questions/7424471
• 您还可以看一下 陈表达老师的VBA基础编程开发课程课程中的 第6集-算术运算符、逻辑运算符、通配符介绍小节, 巩固相关知识点
  
• 除此之外, 这篇博客: 【VBA编程】VBA基础语法（一）中的 一、VBA中的数据类型 部分也许能够解决你的问题。