我在Microsoft Word 2003中有一个大约1000个字母的文件夹。
这些字母的标题布局相似,但内容可能不同。标题的布局是2列2行表,但第2列具有合并的单元格。在标题表之前总是有两个回车符。
我需要进入每个字母并删除第1栏和第1栏的内容。第一个单元格和第二列的内容,替换为空。
答案 0 :(得分:1)
您可以使用VBA宏迭代所有文件并将更改应用于表格,例如使用以下代码:
Sub CleanHeader()
Dim strDirectory As String
Dim strFile As String
strDirectory = "C:\tmp\"
strFile = Dir(strDirectory & "*.doc")
Do While strFile <> ""
Dim oDoc As Document
Dim oTable As Table
Set oDoc = Documents.Open(FileName:=strDirectory & strFile)
Set oTable = oDoc.Tables(1) ' get the correct table here
oTable.Columns(1).Delete ' deletes an entire column
oTable.Cell(1, 2).Range.text = "" ' empties a cell
oDoc.Close SaveChanges:=True
strFile = Dir
Loop
End Sub