word把所有文本框的文字改字体

xiao99hui · 发表于 2023-2-8 17:27

Sub 选择所有文本框改字体()
Dim a(), k As Long, fg
k = 0
For Each sha In ActiveDocument.Shapes
'If sha.Type = 17 Then
ReDim Preserve a(k)
a(k) = sha.Name
k = k + 1
'End If
Next
If k > 0 Then
'ActiveDocument.Shapes.Range(a()).Select
With ActiveDocument.Shapes.Range(a())
fg.TextFrame.TextRange.Text = "miao1"
End With
End If
End Sub

问什么不行，求大神指教

taller · 发表于 2023-2-9 08:07

xiao99hui · 发表于 2023-2-10 02:01

taller 发表于 2023-2-9 08:07

你好!我这边还有个问题，能帮我解答一下吗？微信图片_20230210015841.png

杨建营 · 发表于 2023-2-10 10:35

Alt+回车，强制换行

smiletwo · 发表于 2023-2-10 12:30

smiletwo · 发表于 2023-2-10 12:40

本帖最后由 smiletwo 于 2023-2-10 12:41 编辑

xiao99hui 发表于 2023-2-10 02:01
你好!我这边还有个问题，能帮我解答一下吗？

可以找出规律，重新分行。建议上附件（不是真实数据，规律无法使用）

xiao99hui · 发表于 2023-2-10 13:33

smiletwo 发表于 2023-2-10 12:40
可以找出规律，重新分行。建议上附件（不是真实数据，规律无法使用）

文字文稿2.rar (19.78 KB, 下载次数: 3) 你好，大神，这里是文件，看看怎么插入分行

smiletwo · 发表于 2023-2-10 13:45

本帖最后由 smiletwo 于 2023-2-10 13:48 编辑

xiao99hui 发表于 2023-2-10 13:33
你好，大神，这里是文件，看看怎么插入分行

大致看了下，不是一般的乱。放excel中更好处理
请按照需求提供下想要的效果

xiao99hui · 发表于 2023-2-10 14:36

本帖最后由 xiao99hui 于 2023-2-10 14:57 编辑

smiletwo 发表于 2023-2-10 13:45大致看了下，不是一般的乱。放excel中更好处理
请按照需求提供下想要的效果

需求，就是文本框左右宽度变长，字体所在行的位置不变

smiletwo · 发表于 2023-2-10 14:54

本帖最后由 smiletwo 于 2023-2-11 17:54 编辑

xiao99hui 发表于 2023-2-10 13:33
你好，大神，这里是文件，看看怎么插入分行

见11楼

复制代码

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

[求助] word把所有文本框的文字改字体

评分