如何批量用word的文件名插入word的标题头
Daily Something - 30 六 2010
宏:
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
运行….. 调试.
在 
在 
在 
评论暂缺 »
还没有任何评论。
这篇文章上的评论的 RSS feed TrackBack URI
留下评论
If you want to leave a feedback to this post or to some other user´s comment, simply fill out the form below.