我想从另一个具有列Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument
With .Styles(wdStyleHeading1)
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Times New Roman"
.Font.Size = 20
.Font.ColorIndex = wdGreen
End With
With .Range.Find
.ClearFormatting
.Text = ""
.Font.Size = 20
.Font.Name = "Times New Roman"
.Replacement.ClearFormatting
.Replacement.Text = ""
.Replacement.Style = wdStyleHeading1
.Format = True
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
End With
Application.ScreenUpdating = True
End Sub
的文件（names）的文件（modifiedFlights.csv）中添加一个original.csv列。目标是在比较两个文件中都存在的列names之后在modifiedFlights.csv中添加名称。但是我不能这样做。
hashes