[求助]按关键字拆分word的宏怎么写？

ljjqaz

1. 
   

复制代码

现有一个总的word，想按照关键字“￥”拆开，并以每个word开头第一行命名，求宏怎么写？

现在有一个代码，总是无法改好，达不到目的，不知咋回事？
要求：
总文档以“￥”拆分，判断条件是“￥”。
拆分后的文档要保持原有格式，即字体的大小、颜色等等。

1. Sub CF()
   
2. Dim M$
   
3. Do
   
4.     Selection.Find.Text = "￥"
   
5.     Selection.Find.Execute
   
6.     Selection.Delete Unit:=wdCharacter, Count:=1         
   
7.     Selection.MoveUp Unit:=wdScreen, Count:=1, Extend:=wdExtend
   
8.     Selection.Cut
   
9.     Documents.Add DocumentType:=wdNewBlankDocument
   
10.     Selection.PasteAndFormat (wdPasteDefault)
    
11.     M = ActiveDocument.Paragraphs(1).Range.Text                     '第一行的文件名，带回车chr(13)
    
12.     If M = Chr(13) Then Exit Sub
    
13.     ActiveDocument.SaveAs FileName:=ThisDocument.Path & "" & Replace(M, Chr(13), "") & ".doc", FileFormat:=wdFormatDocument
    
14.     ActiveWindow.Close
    
15. Loop
    
16. End Sub

复制代码

试验品.rar (3.86 KB, 下载次数: 1)

2019-12-13 12:11 上传

点击文件名下载附件
求助