|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 替换()
Application.ScreenUpdating = False
Dim i%, arr, myPath$, wdApp, wdD
myPath = ThisWorkbook.Path & "\"
Set wdApp = CreateObject("word.application")
wdApp.Visible = False
F = Dir(myPath & "*.doc*")
Do While F <> ""
mc = Split(F, ".")(0)
Set wdD = wdApp.Documents.Open(myPath & F)
wdD.Tables(1).cell(1, 2).Range.Text = mc
wdD.Close True
F = Dir
Loop
wdApp.Quit
Set wdD = Nothing
Set wdApp = Nothing
Application.ScreenUpdating = False
MsgBox "ok!"
End Sub
|
|