【已解决】怎样批量修改同一文件夹下多个WORD字体的大小?

kepeng100 · 发表于 2009-4-9 22:50

请高手赐教,在此谢谢!

[ 本帖最后由 kepeng100 于 2009-5-7 21:27 编辑 ]

kepeng100 · 发表于 2009-4-10 20:36

要是EXCEL呢?那又怎么做呢?

yagi2008 · 发表于 2009-4-10 22:23

找到WORD文档对象的文字内容的大小属性、找到EXCEL工作表对象内RANGE对象的文字内容的大小属性就OK了！

kepeng100 · 发表于 2009-4-10 22:35

能否麻烦帮我做个试例呀!
VBA我才刚入门不久,请大侠相助,谢谢!

kepeng100 · 发表于 2009-5-2 11:42

3楼的说的很轻巧,很简单,可是对于我们这些入门者却很难,

还是不明白怎么做?

sgrshh29 · 发表于 2009-5-2 15:37

下面的是更改word中全部字体式样代码（如果是excel中，只要把word对象改为excel对象就可以了，相应的Selection改为range）：
Sub HHH()
Dim strFileName As String
Dim strPath As String
Dim wApp As Object
Dim wDoc As Object
strPath = ThisWorkbook.Path & "\"
strFileName = Dir(strPath & "*.doc")
Set wApp = CreateObject("Word.Application")
Do While strFileName <> ""
Set wDoc = wApp.Documents.Open(strPath & strFileName)
With wApp.Selection
      .WholeStory
      .Font.Bold = True '加粗
      .Font.Italic = True '斜体
      .Font.Underline = True '下划线
      .Range.HighlightColorIndex = 3 '高亮颜色
      .Font.Color = vbRed          '字体颜色
      .Font.Size = 16                '字体大小
End With
wDoc.Save
wDoc.Close
strFileName = Dir
Loop
Set wDoc = Nothing
wApp.Quit
Set wApp = Nothing
End Sub

[ 本帖最后由 sgrshh29 于 2009-5-2 15:40 编辑 ]

kepeng100 · 发表于 2009-5-7 18:52

6楼的提示错误,要求对象,请再帮忙,谢谢!

错误.JPG

sgrshh29 · 发表于 2009-5-7 19:57

原帖由 kepeng100 于 2009-5-7 18:52 发表
6楼的提示错误,要求对象,请再帮忙,谢谢!

507605

解压后，二个文件保持在同一个文件夹中。

test.zip (9.81 KB, 下载次数: 691)

kepeng100 · 发表于 2009-5-7 21:24

测试成功!
非常感谢8楼的sgrshh29 仁兄!

非常感谢,我想这个问题非常经典,也许论坛上早有这样的回答了,但我搜了好几天,都没找到,现在终于解决了,高兴!

s1m2a3r4t5 · 发表于 2011-3-28 09:40

这个问题我也刚刚遇到，正好看看怎么解决，非常感谢

		自动登录	找回密码
密码			免费注册

[求助] 【已解决】怎样批量修改同一文件夹下多个WORD字体的大小?

回复 5楼 kepeng100 的帖子

评分