excel中用vba例遍文件夹中的word文件并设置word文件中第二个表格的标题跨页重复显示同时按厘米修改列宽并替换文本

可以使用以下VBA代码来实现：

Sub TraverseFolder()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim objWord As Object
Dim objDoc As Object
Dim objTable As Object

'设置文件夹路径
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("文件夹路径")

'遍历文件夹中的Word文件
For Each objFile In objFolder.Files
If Right(objFile.Name, 4) = "docx" Or Right(objFile.Name, 3) = "doc" Then
'打开Word文档
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(objFile.Path)

'设置第二个表格的标题跨页重复显示
If objDoc.Tables.Count >= 2 Then
Set objTable = objDoc.Tables(2)
objTable.Rows(1).HeadingFormat = True
objTable.Rows(1).RepeatHeader = True
objTable.AllowPageBreaks = True
End If

'修改列宽
objDoc.PageSetup.TextColumns.SetCount NumColumns:=2
objDoc.PageSetup.TextColumns.Width = CentimetersToPoints(10)

'替换文本
objDoc.Content.Find.Execute FindText:="要替换的文本", ReplaceWith:="替换后的文本", Replace:=wdReplaceAll

'保存并关闭Word文档
objDoc.Save
objDoc.Close
objWord.Quit
End If
Next objFile

'释放对象
Set objTable = Nothing
Set objDoc = Nothing
Set objWord = Nothing
Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
End Sub