批量删除word文件中行（段)及段末统一标点符号

dongfgdwdjg

duquancai 发表于 2016-8-9 20:47
那就你用这个代码吧?不陪你玩了！

我说错了吗？如果有冒犯，真心说声对不起，我不是有意的。

dongfgdwdjg

duquancai 发表于 2016-8-9 20:41
你截图表达清楚

如图，着色部分，原文件中可没有着色啊。
就是把删除图片中着色段删除，把统一标点图片中着色段落最后一个文字后的任何空格或标点删除后更换为句号。

dongfgdwdjg

duquancai 发表于 2016-8-9 20:36
到底是行还是段？怎么还在用  “行（段）” 这个词语，让人模糊不清？呵呵呵

我自己分不清啊，按你说的，应该是段，不是行

dongfgdwdjg

是个难题？还是研究word的比研究excel的人本来就少啊？

duquancai

dongfgdwdjg 发表于 2016-8-9 22:32
是个难题？还是研究word的比研究excel的人本来就少啊？

1. Sub Wordvba遍历文件夹()
   
2.     Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document
   
3.     Dim Rngtxt As Range
   
4.     Application.ScreenUpdating = False
   
5.     On Error Resume Next
   
6.     Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
   
7.     With MyDialog
   
8.         .Filters.Clear
   
9.         .Filters.Add "所有 WORD 文件", "*.doc", 1
   
10.         .AllowMultiSelect = True
    
11.         If .Show = -1 Then
    
12.             Application.ScreenUpdating = False
    
13.             For Each vrtSelectedItem In .SelectedItems
    
14.                 Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False)
    
15.                 Set Rngtxt = Doc.Content
    
16.                 With Rngtxt.Find
    
17.                     .Text = "(包括：^13)[!^13]@(^13[!^13]@包括：)"
    
18.                     .Replacement.Text = "\1\2"
    
19.                     .Text = "(。^13)[!一-﨩]@(^13签名：)"
    
20.                     .Replacement.Text = "\1\2"
    
21.                     .MatchWildcards = True
    
22.                     .Execute Replace:=wdReplaceAll
    
23.                 End With
    
24.                 Doc.Close True
    
25.             Next
    
26.             Application.ScreenUpdating = True
    
27.         End If
    
28.     End With
    
29.     MsgBox "操作完毕!", vbInformation
    
30. End Sub
    

复制代码

duquancai

dongfgdwdjg 发表于 2016-8-9 22:32
是个难题？还是研究word的比研究excel的人本来就少啊？

激将法啊！呵呵呵！我写了一个。在审核！等等看吧！

dongfgdwdjg

duquancai 发表于 2016-8-9 22:54
激将法啊！呵呵呵！我写了一个。在审核！等等看吧！

不知道你审核的怎么样了，我在等着呢。工作昨晚已经加班完成了，我现在想跟着学习方法呢。

dongfgdwdjg

duquancai 发表于 2016-8-9 22:51

我在excel中使用您的代码，报错如图。
我真的不知道如何在word中使用VBA，就是把您的代码放到什么地方运行？在excel 中设置一个按钮，把代码放按钮，点击按钮运行，但在word中我甚至都找不到 添加控件工具，不会用啊。我是真的不懂啊，可不是谦虚，嘿嘿

dongfgdwdjg

duquancai 发表于 2016-8-9 22:51

在word VBE窗口运行这段代码，存在问题：
1.  只能手动选文件 （我希望是选文件夹批量对文件夹或子文件夹中文件 操作)
2. 操作后，只删除了那行中的句号，却没有删除段，留下一个空白段 （我希望整段删除)

dongfgdwdjg

duquancai 发表于 2016-8-9 20:18
楼主我看你的表述，估计你对word还不太熟悉，对不起我说两句
第一，“格式相同的word文件”，我想你未必真 ...

请教一下，如何在word中运行VBA代码，能不能设置一个按钮赋予代码？