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

dongfgdwdjg

我有一系列相似的word文件，每个文件中均有2段，我想通过vba实现以下目的：
1.把所有文件的第一段删除
2.第二段末文字后统一标点符号为句号（目前有空格、有空格+其他标点、有双标点、有什么也没有的)。
最好在excel文件中设置按钮解决。估计第一个要求批量删除行容易一些，我用得也最急，只告诉我实现批量删除也行，当然，如果二个要求一并解决最好。
谢谢！

dongfgdwdjg

如果文件不是文本而是表格，如何解决？这里所说的表格其实只是一个单元格--只有一行一列，其中有二段文字。

duquancai

楼主我看你的表述，估计你对word还不太熟悉，对不起我说两句
第一，“格式相同的word文件”，我想你未必真正理解了word中的格式和样式慨念，现在不展开说这个word中复杂的格式与样式的慨念，姑且认为你所谓的“格式相同的word文件”是准确的；
第二，你提到了word在“行（段）”这个说法，请不要混淆行与的概念，行是行，段是段，是不同的。word中定义段的概念是这样的：段落包含一个段落标记以及所有位于此段落标记和前一个段落标记之间的文本（不包括前一个段落标记）；对于word中的行我引用守柔版主的原话：“Word 2003及其以后版本中，是有“页”和“行”对象的，即“Page"和“Line“，它们也可以与Range对象关联起来，但尽量不要使用这些对象，如果程序要通过页和行来解决问题时，应该检讨一下程序的设计思路是否存在问题，在使用“页”特别是“行”对象时，请慎用。
Sub 逐行选中()
    Dim oPage As Page
    Dim oLine As Line
    For Each oPage In ActiveDocument.ActiveWindow.ActivePane.Pages
        For Each oLine In oPage.Rectangles(1).Lines
            oLine.Range.select
        Next
    Next
End Sub”
第三，你这个需求是必须要在Excel中用VBA代码吗？难道用wordVBA不行吗？况且用excelvba调用word程序是要花时间的。

dongfgdwdjg

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

受教了，谢谢！
对wordVBA我一点也不懂啊，我现在只想解决问题，采取什么办法无所谓。不用excelVBA能解决问题也行啊

dongfgdwdjg

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

听您一说，我才知道自己原来想法过于简单了。我实际的工作文件如附件（相似文件有近千个)，我要删除第2页表格内倒数第二行（段)，就是仅有一个句号的那行（如果没有那个句号，就是空白行了)。
请帮帮忙。明天早晨领导就要啊，如果没有 简易办法，今晚我要加班 到深夜了。
十分感谢！

duquancai

dongfgdwdjg 发表于 2016-8-9 20:33
听您一说，我才知道自己原来想法过于简单了。我实际的工作文件如附件（相似文件有近千个)，我要删除第2页 ...

到底是行还是段？怎么还在用  “行（段）” 这个词语，让人模糊不清？呵呵呵

dongfgdwdjg

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

我要统一段末标点符号的段是表格内第6段（总第8段)，就是“在考核的各项指标中，较好的方面内容包括：”下边的那段。

duquancai

dongfgdwdjg 发表于 2016-8-9 20:36
我要统一段末标点符号的段是表格内第6段（总第8段)，就是“在考核的各项指标中，较好的方面内容包括：” ...

你截图表达清楚

dongfgdwdjg

我在excelVBA中用以下代码提取word中的文字到excel表格中
With wd.Documents.Open(mypath & ff)
                    x = .Paragraphs.Count
                    s = s + 1
                    zf = .Paragraphs(2).Range
                    zf1 = .Paragraphs(8).Range
                    zf2 = .Paragraphs(10).Range
                    Cells(s, 1) = Split(ff, "\")(5)
                    Cells(s, 2) = Split(zf, "交流对象：")(1)
                    Cells(s, 3) = Split(zf1, "。")(0)
                    Cells(s, 4) = Split(zf2, "。")(0)
                    .Close False
               End With
是成功的。但我要删除行时，采用 .Paragraphs(8).Range.delete或 .Paragraphs(8).delete或 .Paragraphs(8).Range.rows.delete或 .Paragraphs(8).rows.delete或别的几种办法，都不能解决。我可是真的不懂啊。

duquancai

dongfgdwdjg 发表于 2016-8-9 20:45
我在excelVBA中用以下代码提取word中的文字到excel表格中
With wd.Documents.Open(mypath & ff)
         ...

那就你用这个代码吧?不陪你玩了！