word的每月有分类1、2的内容，怎样将1，2的内容汇总到一起？

wgf4242 · 发表于 2015-2-1 10:06

如图。。。这样的需求。。总结用。

pipiludaxian · 发表于 2015-2-1 11:41

运行前请将月份行删除
请运行两次
第二次将 "分类1：""分类2："互换

且请在
分类2：
内容4444
。。。。。
后加上一行分类1：

仅仅提供一种思路
其实导入excel处理更简单

pipiludaxian · 发表于 2015-2-1 12:38

本帖最后由 pipiludaxian 于 2015-2-1 12:41 编辑

如果你的文档内容1111 部分不分段
则可用以下程序
Sub outData()
Dim mypar As Paragraph
Dim outData As String
ff = FreeFile
Open ActiveDocument.Path & "\list.txt" For Output As #ff
Print #ff, "分类1："
For Each mypar In ActiveDocument.Paragraphs
If Left(mypar, 4) = "分类1：" Then
outData = mypar.Next.Range.Text

Print #ff, outData
End If
Next
Close #ff
End Sub

		自动登录	找回密码
密码			免费注册

[求助] word的每月有分类1、2的内容，怎样将1，2的内容汇总到一起？