如何打开wordvb代码框

打开Word VBA代码框需要以下步骤：

1. 打开Word文档，点击“开发工具”选项卡；

2. 在“开发工具”选项卡中，点击“Visual Basic”按钮；

3. 这样会打开Visual Basic编辑器，可以在其中编辑和运行VBA代码。

另外，还可以通过快捷键Alt + F11来打开Visual Basic编辑器。

在Visual Basic编辑器中，可以使用各种VBA代码来自动化执行各种任务。例如，可以编写宏来自动化重复性的任务，比如批量替换文本、自动格式化文本、自动添加页眉页脚等等。在编辑器中，可以使用IntelliSense智能感知功能和帮助文档来帮助编写代码。在编辑完代码后，可以通过单击“运行”按钮或按下F5键来执行代码。

VB.NET写 word文件代码：

Dim wordApp As New Word.Application

Dim objSelection As Word.Selection

Dim Title As String = "K388+400常胜沟大桥"

wordApp.Documents.Add()

oDocument = wordApp.ActiveDocument

objSelection = wordApp.Selection

wordApp.Selection.TypeText(Title)

objSelection.TypeParagraph()

wordApp.Selection.TypeText("一、桥梁基本状况卡片")

objSelection.TypeParagraph()

wordApp.Selection.TypeText("A行政数据识别，B技术结构数据")

objSelection.TypeParagraph()

wordApp.Selection.TypeText("A行政数据识别。B技术结构数据。C档案资料（全、不全、或无）。D最近技术状况评定")

objSelection.InsertBreak() '插入分页符，相当于2个字符

objSelection.TypeText("E修建工程记录")

SetRange(1)

With wordApp.Selection

.Font.Size = 18 '字体（小二）

.ParagraphFormat.Alignment = 1 '水平居中

.Font.Bold = True

End With

SetRange(2)

With wordApp.Selection

.Font.Size = 14 '字体（四）

.Font.Bold = True

.Font.Name = "华文琥珀"

End With

SetRange(25, 44, True)

With wordApp.Selection

.Font.Size = 9 '字体（小五）

.Font.Bold = True

.Font.Italic = True

End With

SetRange(4, 2)

With wordApp.Selection

.Font.Size = 9 '字体（小五）

.Font.Bold = True

End With

'文件保存

oDocument.SaveAs("d:\" &Title &".doc")

wordApp.Visible = True

左上角的word按钮—word选项—高级—显示—在任务栏中显示所有窗口，没选中时所有的word就会在一个窗口，这时右上角会有两个关闭的按钮，按上面的那个大的，所有的word都会关掉，按下面的那个就只关闭当前的word。

当word设置的是“在任务栏里显示所有窗口”，这样右上角就只有一个关掉的按钮，这时候按关闭按钮，只会关掉一个，别的word不会关。

---