批量vba去掉解析段落的底纹和回车符

jzjtgx

从文件夹中选择要整理的文件，然后批量vba去掉解析段落的底纹和回车符，以便节约纸张，谢谢

limonet

老师的题出的不错，言简意赅。

无敌小猪猪

Sub RemoveShadingAndCarriageReturns()
    Dim fd As FileDialog
    Dim fileChosen As Integer
    Dim doc As Document
    Dim para As Paragraph
   
    ' 创建文件对话框
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
   
    With fd
        .AllowMultiSelect = True ' 允许选择多个文件
        .Title = "请选择Word文档"
        
        ' 显示文件选择对话框
        fileChosen = .Show
        
        If fileChosen <> -1 Then ' 如果用户选择了文件
            Dim selectedFiles As Variant
            selectedFiles = .SelectedItems
            
            ' 遍历所有选择的文件
            Dim i As Integer
            For i = 1 To .SelectedItems.Count
                Set doc = Documents.Open(.SelectedItems(i))
               
                ' 去除段落底纹
                For Each para In doc.Paragraphs
                    para.Shading.Texture = wdTextureNone
                Next para
               
                ' 去除回车符
                Dim rng As Range
                Set rng = doc.Content
                rng.Find.ClearFormatting
                rng.Find.Replacement.ClearFormatting
                rng.Find.Text = "^p"
                rng.Find.Replacement.Text = ""
                rng.Execute Replace:=wdReplaceAll
               
                ' 保存并关闭文档
                doc.Save
                doc.Close
            Next i
        End If
    End With
   
    ' 清理
    Set fd = Nothing
End Sub

仅供参考

jzjtgx

无敌小猪猪 发表于 2024-12-9 16:23
Sub RemoveShadingAndCarriageReturns()
    Dim fd As FileDialog
    Dim fileChosen As Integer

感谢，但是没有测试成功，努力修改中呢

perfect131

jzjtgx 发表于 2024-12-10 09:51
感谢，但是没有测试成功，努力修改中呢

他应该是用ai写的
看我写的 比ai强多了