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

可以使用VBA编写一个宏来实现这个功能。首先，需要使用FileSystemObject对象来遍历文件夹中的所有Word文件。然后，使用Word对象模型来打开每个文件，并找到第二个表格。接下来，使用Table对象的属性来设置表格标题的跨页重复显示，并按照需要修改每列的列宽。最后，使用Find和Replace方法来查找并替换整个文件中的公司文字为空值。

以下是一个示例代码：

Sub ProcessWordFiles()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim objWord As Object
Dim objDoc As Object
Dim objTable As Object
Dim i As Integer

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

'打开Word应用程序
Set objWord = CreateObject("Word.Application")
objWord.Visible = True

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

'找到第二个表格
Set objTable = objDoc.Tables(2)

'设置表格标题的跨页重复显示
objTable.Rows(1).HeadingFormat = True
objTable.Rows(1).AllowBreakAcrossPages = True

'按照需要修改每列的列宽
objTable.Columns(1).Width = CentimetersToPoints(2)
objTable.Columns(2).Width = CentimetersToPoints(3)
objTable.Columns(3).Width = CentimetersToPoints(4)

'查找并替换整个文件中的公司文字为空值
With objDoc.Content.Find
.Text = "公司"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With

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

'关闭Word应用程序
objWord.Quit
End Sub

注意：以上代码仅供参考，具体实现可能需要根据实际情况进行调整。