rspy

摘要： Sub 按小三加粗文本重命名Word文档() ' 初始化集合（存储文件完整路径） Set fileList = New Collection ' 创建FSO对象 Set fso = CreateObject("Scripting.FileSystemObject") ' 定义Windows禁止的文件 阅读全文

摘要： Sub 遍历所有Word文档并在文档的每个表格前插入分节符() ' 选择目标文件夹 Set fileDialog = Application.FileDialog(msoFileDialogFolderPicker) With fileDialog .Title = "请选择包含Word文档的文件夹 阅读全文

摘要： Sub 调整包含特定文本的单元格所在的行高() For i = 1 To Range("a" & 1048576).End(xlUp).Row If Range("a" & i).Value Like "健康管理意见建议*" Then Range("a" & i).EntireRow.RowHeig 阅读全文

摘要： Sub 向下填充() Set ws = ActiveSheet lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row currentValue = ws.Range("C2").Value For i = 3 To lastRow If ws.Ce 阅读全文

摘要： Sub 所有文档每页的第一行居中对齐() 文件夹路径 = "C:\Users\你的用户名\Desktop\批量办公项目库\物业\第二次\300元含以下的住户\" ' 获取文件夹中第一个Word文档 文件名 = Dir(文件夹路径 & "*.doc*") Do While 文件名 <> "" ' 打开 阅读全文

摘要： Sub 第一步插入空行() Set ws = ActiveSheet lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row For i = lastRow To 3 Step -1 If ws.Cells(i, 1).Value <> ws.Cel 阅读全文

摘要： Sub 设置为细框线() 边框类型数组 = Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, _ xlEdgeRight, xlInsideVertical, xlInsideHorizontal) '遍历已使用区域的每个单元格 For Each 单元格 In A 阅读全文

摘要： Sub 取消合并保留内容() For i = 2 To Range("C1048576").End(xlUp).Row 单元格的值 = Range("C" & i).Value 合并单元格的数量 = Range("C" & i).MergeArea.Count Range("C" & i).UnMe 阅读全文

摘要： // 定义源文件夹和目标文件夹路径 var sourceFolderPath = "C:/Users/***/Desktop/拆分/"; var destFolderPath = "C:/Users/***/Desktop/结果/"; // 定义要填充的区域坐标 (x, y, 宽度, 高度) var 阅读全文

摘要： 以下是关于Word VBA中可编辑区域的核心知识点： 分类 具体内容 说明/示例 基本概念 定义 文档中被标记为“允许特定用户/角色编辑”的内容区域，其余区域默认受保护。 核心作用 1. 文档保护（限制编辑范围）. 批量操作（快速选中/处理特定内容）3. 多用户权限管理 适用场景 多人协作编辑、文档 阅读全文