Sub jizhongxiugai()
Dim strFolderPath As String
Dim strFileName As String
Dim oDoc As Document
strFolderPath = "F:\WPS\aaa\" '将此路径修改为文档所在路径
strFileName = Dir(strFolderPath & "*.docx") '假设文档是.docx 格式，可根据实际情况修改
Do While strFileName <> ""
Set oDoc = Documents.Open(strFolderPath & strFileName)
'调用之前的宏
Call xiugaiziti
oDoc.Save
oDoc.Close
strFileName = Dir
Loop
End Sub
1、说了，下面P友已经说了，邮件合并
2、宏
a、保存宏到模块，运行AppData，找到AppData\Roaming\kingsoft\office6\templates\wps\zh_CN
把Normal.dotm复制一份，（复制很重要，如果没有就建一个）
然后 alt+f11 找到如图所示，建立模块，复制代码。
Sub xiugaiziti()
Dim oDoc As Document
Dim oRange As Range
Dim oPara As Paragraph
Dim oWord As Range
Set oDoc = ActiveDocument
For Each oPara In oDoc.Paragraphs
If oPara.Range.Start > oDoc.Paragraphs(2).Range.End Then
Set oRange = oPara.Range （未完）
代码2：
For Each oWord In oRange.Words
Dim originalFontName As String
Dim originalFontSize As Integer
Dim originalUnderline As Long
Dim originalUnderlineColor As Long
originalFontName = oWord.Font.Name
originalFontSize = oWord.Font.Size
originalUnderline = oWord.Font.Underline
originalUnderlineColor = oWord.Font.UnderlineColor （未完）
创作者俱乐部成员
创作者俱乐部成员
@WPS产品体验官
@WPS产品体验官