如何通过excel代码批量加黑word内指定字符

罗亮亮

如何通过EXCEL 代码批量将文件夹里面的几个word中的出现A列字符加粗?
因为工作需要 需要处理很多这样的文件 所以求助大神帮忙
如何通过excel代码批量加黑word内指定字符.zip (55 KB, 下载次数: 12)

2020-2-26 14:14 上传

点击文件名下载附件

zmj9151

characters属性了解一下

jiangxiaoyun

Sub 数据提取1()
    Dim wdapp As Object, mydoc As Object   '
    Set wdapp = CreateObject("Word.Application")  '
    Dim mypath$, myname$
    Dim brr
    brr = Sheet1.[a1].CurrentRegion
    mypath = ThisWorkbook.Path & "\"
    myname = Dir(mypath & "*.doc*")
    Do While myname <> ""
        Set mydoc = wdapp.Documents.Open(mypath & myname)
        For I = 1 To UBound(brr)
            With mydoc.Content.Find
                Do While .Execute(FindText:=brr(I, 1), Format:=True)
                    .Parent.Font.Bold = True
                Loop
            End With
        Next
        mydoc.Close True
        myname = Dir()
    Loop
    wdapp.Quit
    Set mydoc = Nothing
    Set wdapp = Nothing
End Sub

罗亮亮

jiangxiaoyun 发表于 2020-2-26 16:28
Sub 数据提取1()
    Dim wdapp As Object, mydoc As Object   '
    Set wdapp = CreateObject("Word.Ap ...

太感谢您了 您的代码给了我非常大的帮助,一直在调试代码,没有在第一时间回复您表示歉意