vba 操作Word-更新word内容

最新推荐文章于 2025-03-10 17:54:16 发布

peijunfeng

最新推荐文章于 2025-03-10 17:54:16 发布

阅读量7.5k

点赞数 1

文章标签： vba list string function 文档 integer

本文链接：https://blog.youkuaiyun.com/peijunfeng/article/details/1830389

版权

这段代码展示了如何使用VBA来操作Word，遍历指定目录下的DOC文件，打开每个文档，更新特定内容，如测量者、校对人和审核人的信息，并进行保存。程序还包含了日志记录功能，用于跟踪处理过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim docPath As String
    Dim wordApp As New Word.Application
    Dim wordDoc As New Word.Document

Private Sub CmdSelectDic_Click()
Unload Me
End Sub

Private Sub List_file(oPath As String)

          Dim uuFso, uuDir, uuFiles, uuObj

          List1.Clear
          Set uuFso = CreateObject("Scripting.FileSystemObject")
          Set uuDir = uuFso.getfolder(oPath)
          Set uuFiles = uuDir.Files
          For Each uuObj In uuFiles
                  Select Case UCase(uuFso.GetExtensionName(uuObj.Name))
                          Case "DOC"
                            If Left(uuObj.Name, 1) <> "~" Then
                                  List1.AddItem uuObj.Name
                            End If
                          Case Else
                  End Select
          Next
End Sub

Private Sub CmdExit_Click()
End
End Sub

Private Sub cmdShowLog_Click()
Shell "notepad c:/olog.log", vbMaximizedFocus
End Sub

Private Sub CmdStart_Click()

    If CHECK_TXT = 0 Then
        Exit Sub
    End If

    CmdStart.Enabled = False
    CmdExit.Enabled = False

    Me.Caption = "正在处理..."

    '退出所以word文档并保存
    wordApp.Quit True

    List2.Clear

    Me.ProgressBar1.Value = 0

最低0.47元/天解锁文章