如何批量用word的文件名插入word的标题头
宏:
Sub dddd()
Dim S As String, T1, T2, T3, i As Long
S = Dir(“E:\test\*.DOC”)
Do While S <> “”
Set T2 = Documents.Open(“E:\test\” & S)
T3 = ActiveDocument.Name
T1 = Split(T3, “.”)
T2.Content.InsertBefore T1(0) & vbCrLf
ActiveDocument.Save
T2.Close
S = Dir
Loop
End Sub
运行….. 调试.


在
在
在







