【求助】拆分word宏怎么写

狂傲小生

现有一个总的word，想按照分节符拆开，并以每个word开头第一行命名，求宏怎么写？

hhjjpp

1. <blockquote>Sub M()

复制代码

工具-宏-运行

hhjjpp

Sub M()
Dim M$
Do
    Selection.Find.Text = "^b"
    Selection.Find.Execute
    Selection.Delete Unit:=wdCharacter, Count:=1                    '删除分节符
    Selection.MoveUp Unit:=wdScreen, Count:=1, Extend:=wdExtend
    Selection.Cut
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdPasteDefault)
    M = ActiveDocument.Paragraphs(1).Range.Text                     '第一行的文件名，带回车chr(13)
    If M = Chr(13) Then Exit Sub
    ActiveDocument.SaveAs FileName:=ThisDocument.Path & "\" & Replace(M, Chr(13), "") & ".doc", FileFormat:=wdFormatDocument
    ActiveWindow.Close
Loop
End Sub

狂傲小生

hhjjpp 发表于 2016-7-4 17:55
Sub M()
Dim M$
Do

万分感谢！！

izaiexcel

在office2019中报错了。。