Ms word 如何编辑目录中的所有word文档？

我得到了一份scut的工作，负责纠正大约一百份代码测试报告，这些报告是由一位高级程序员错误填写的，他有更多的重要工作要做

不幸的是，我所有的文件都是ms word文档。但幸运的是，格式都是一样的，错误都是在同一个表的相同单元格中发生的

过去，我编写了一个bash进行编辑，将多个xml文件上的单引号更改为双引号。但这是在linux机器上实现的。这次我只有一台开窗机

---

有什么提示可以从哪里开始吗

答案是使用VBA。我构建了两个子程序

第一个子例程循环遍历目录和 打开找到的每个*.doc文件。然后在打开的文档文件上调用 第二个子例程。第二个子例程完成后，文档 保存，然后关闭

Sub DoVBRoutineNow()
Dim file
Dim path As String

path = "C:\Documents and Settings\userName\My Documents\myWorkFolder\"


file = Dir(path & "*.doc")
Do While file <> ""
Documents.Open FileName:=path & file

Call editCellsTableRow2

ActiveDocument.Save
ActiveDocument.Close

file = Dir()
Loop
End Sub

---

谷歌“办公室互操作”你可以用vba来做这个vba是诀窍。谢谢@Sarkar Hasan

Sub editCellsTableRow2()
Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long
With ActiveDocument
For Each Tbl In .Tables

Tbl.Rows(2).Alignment = xlCenter

For Each cel In Tbl.Rows(2).Cells

If cel.ColumnIndex = 6 Then
cel.Range.Text = vbCrLf + "yyyy/MM/dd"
End If

If cel.ColumnIndex = 7 Then
cel.Range.Text = vbCrLf + "Surname"
End If

If cel.ColumnIndex = 8 Then
cel.Range.Text = vbCrLf + "Given Name"
End If

Next cel
Next Tbl
End With
Set cel = Nothing: Set Tbl = Nothing
Application.ScreenUpdating = True
End Sub