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

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

Sub LoopThroughFiles()
Dim MyFile As String
Dim MyFolder As String
Dim wdApp As Object
Dim wdDoc As Object
Dim wdTable As Object

'设置文件夹路径
MyFolder = "C:\MyFolder\"

'创建Word应用程序对象
Set wdApp = CreateObject("Word.Application")

'禁用Word应用程序的屏幕更新
wdApp.ScreenUpdating = False

'循环遍历文件夹中的所有Word文件
MyFile = Dir(MyFolder & "*.doc*")
Do While MyFile <> ""
'打开Word文档
Set wdDoc = wdApp.Documents.Open(MyFolder & MyFile)

'设置第二个表格的标题跨页重复显示
Set wdTable = wdDoc.Tables(2)
wdTable.Rows(1).HeadingFormat = True
wdTable.Rows(1).RepeatHeader = True

'按厘米分别修改每列列宽
wdTable.Columns(1).Width = wdApp.CentimetersToPoints(3)
wdTable.Columns(2).Width = wdApp.CentimetersToPoints(5)
wdTable.Columns(3).Width = wdApp.CentimetersToPoints(7)

'替换文本
wdDoc.Content.Find.Execute FindText:="old text", ReplaceWith:="new text", Replace:=wdReplaceAll

'保存并关闭Word文档
wdDoc.Save
wdDoc.Close

'继续遍历下一个文件
MyFile = Dir
Loop

'