大家好！今天我们来聊聊怎么用Word和一些小技巧，制作一个属于自己的学工管理系统。这个系统虽然简单，但对于小型学校或者班级来说，已经足够实用了。

首先，我们需要打开Word文档，然后点击菜单栏上的“开发工具”。如果看不到这个选项，可以去文件-选项-自定义功能区里勾选上它。接下来我们要用到的是VBA（Visual Basic for Applications），这是一个非常强大的编程语言，可以帮助我们自动化操作。

假设我们要做一个记录学生基本信息的小程序，比如姓名、年龄、联系方式等。首先创建一个表格，填入表头，像“序号”、“姓名”、“年龄”之类的。然后我们开始写代码，打开VBA编辑器（Alt + F11），在模块里输入以下代码：

        Sub AddStudent()
            Dim ws As Worksheet
            Set ws = ThisWorkbook.Sheets(1)
            Dim lastRow As Integer
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
            
            ' 输入学生信息
            ws.Cells(lastRow, 1).Value = InputBox("请输入序号")
            ws.Cells(lastRow, 2).Value = InputBox("请输入姓名")
            ws.Cells(lastRow, 3).Value = InputBox("请输入年龄")
            ws.Cells(lastRow, 4).Value = InputBox("请输入联系方式")
            
            MsgBox "学生信息已添加！"
        End Sub
        

高校迎新系统

这段代码的意思是，当运行这个宏时，会弹出几个对话框让你输入学生的相关信息，并把这些信息追加到表格的最后一行。是不是很简单？接着，我们还需要一个删除功能，修改上面的代码如下：

        Sub DeleteStudent()
            Dim ws As Worksheet
            Set ws = ThisWorkbook.Sheets(1)
            Dim deleteID As Integer
            deleteID = InputBox("请输入要删除的学生序号")
            
            Dim i As Integer
            For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
                If ws.Cells(i, 1).Value = deleteID Then
                    ws.Rows(i).Delete
                    Exit For
                End If
            Next i
            
            MsgBox "学生信息已删除！"
        End Sub
        

现在我们有了添加和删除的功能，可以试试运行一下这些宏。记得保存你的Word文档为启用宏的版本，这样下次就能直接使用了。

总结起来，通过Word和VBA，我们可以快速搭建一个简易版的学工管理系统，不仅方便日常管理，还能提高工作效率。希望这篇教程对你有所帮助！