ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 900|回复: 1

[分享] word提取所有字号

[复制链接]

TA的精华主题

TA的得分主题

发表于 2021-9-12 11:14 | 显示全部楼层 |阅读模式
  1. Sub word文章提取所有字号_查找替换()
  2.     Dim c As New Collection
  3.     For i = 1 To 72 Step 0.5
  4.         Selection.HomeKey Unit:=wdStory
  5.         Selection.Find.ClearFormatting
  6.         Selection.Find.Font.Size = i
  7.         Selection.Find.Execute
  8.         If Selection.Find.Found = True Then
  9. '            Stop
  10.             Select Case i
  11.            Case 6.5
  12.                 i2 = "小六"
  13.                 c.Add i2
  14.                 MsgBox i2
  15.            Case 7.5
  16.                 i2 = "六号"
  17.                 c.Add i2
  18.                 MsgBox i2
  19.             Case 9
  20.                 i2 = "小五"
  21.                 c.Add i2
  22.                 MsgBox i2
  23.             Case 10.5
  24.                 i2 = "五号"
  25.                 c.Add i2
  26.                 MsgBox i2
  27.             Case 12
  28.                 i2 = "小四"
  29.                 c.Add i2
  30.                 MsgBox i2
  31.             Case 14
  32.                 i2 = "四号"
  33.                 c.Add i2
  34.                 MsgBox i2
  35.             Case 15
  36.                 i2 = "小三"
  37.                 c.Add i2
  38.                 MsgBox i2
  39.             Case 16
  40.                 i2 = "三号"
  41.                 c.Add i2
  42.                 MsgBox i2
  43.             Case 18
  44.                 i2 = "小二"
  45.                 c.Add i2
  46.                 MsgBox i2
  47.             Case 22
  48.                 i2 = "二号"
  49.                 c.Add i2
  50.                 MsgBox i2
  51.             Case 24
  52.                 i2 = "小一"
  53.                 c.Add i2
  54.                 MsgBox i2
  55.             Case 26
  56.                 i2 = "一号"
  57.                 c.Add i2
  58.                 MsgBox i2
  59.             Case 36
  60.                 i2 = "小初"
  61.                 c.Add i2
  62.                 MsgBox i2
  63.             Case 42
  64.                 i2 = "初号"
  65.                 c.Add i2
  66.                 MsgBox i2
  67.             Case Else
  68.                 c.Add i
  69.                 MsgBox i
  70.             End Select
  71.             'MsgBox (i2)
  72.             
  73.             '            Stop
  74.             'j = j & i2 & Chr(13)
  75.         End If
  76.     Next i
  77.     'Stop
  78.     'For k = 1 To c.Count - 1
  79.     'For k = 1 To c.Count
  80.     For k = c.Count To 1 Step -1
  81.         s = c(k) & " " & s
  82.         Debug.Print c(k)
  83.         'MsgBox c(k)
  84.         'Stop
  85.         c.Remove (k)
  86.     Next
  87.     MsgBox s, vbOKOnly, "本文包含以下字号"
  88. End Sub
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2021-10-8 19:13 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 04:46 , Processed in 0.037370 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表