摘要：
Sub 替换word中带格式的文本() Set 范围 = ThisDocument.Content 范围.Find.Font.Bold = True '找粗体 范围.Find.Text = "123" '找字符为123 范围.Find.Replacement.Font.Bold = False '替 阅读全文
posted @ 2025-08-27 23:34
python_learn
阅读(5)
评论(0)
推荐(0)
摘要：
Sub Excel_to_Word() Set excel对象 = CreateObject("Excel.Application") '创建Excel应用对象 Set 表格 = excel对象.workbooks.Open("c:\信息.xlsx") '打开Excel表格 i = 2 Do Whi 阅读全文
posted @ 2025-08-27 22:45
python_learn
阅读(5)
评论(0)
推荐(0)
摘要：
Sub word_to_excel() Dim arr() Set Excel对象 = CreateObject("Excel.Application") '创建Excel应用 Set 表格 = Excel对象.workbooks.Open("c:\孙兴华.xlsx") '打开Excel表格 For 阅读全文
posted @ 2025-08-27 22:29
python_learn
阅读(3)
评论(0)
推荐(0)
浙公网安备 33010602011771号