如何改变Word表格中部分文字的格式？

冰封气流 · 发表于 2021-5-20 16:12

如上图，一个表格，“车辆所在地” 为宋体四号，“山东临沂” 为楷体四号类似这种的如何改变？
wd1.Tables(4).Cell(1, 2).Select
wd.Selection.Collapse 1
wd.Selection.Expand wdSentence
wd.Selection.Range.Find.Execute findtext:="车辆所在地"

以上语句我都试过了，根本无法选中车辆所在地五个字......

求大佬给解决下，谢谢了

冰封气流 · 发表于 2021-5-20 23:43

413191246se 发表于 2021-5-20 19:51

不行，大佬，运行就会所有的字体都变为楷体。。。。

413191246se · 发表于 2021-5-21 00:50

楼主，上个附件吧！我看你图片中只有一个单元格，我也就处理一个单元格，在我 Word 2019 中没有问题。

冰封气流 · 发表于 2021-5-21 09:28

413191246se 发表于 2021-5-21 00:50
楼主，上个附件吧！我看你图片中只有一个单元格，我也就处理一个单元格，在我 Word 2019 中没有问题。

车号.zip (16.46 KB, 下载次数: 6) 这是附件，麻烦给看看，给个解决思路

gbgbxgb · 发表于 2021-5-21 20:08

试试附件。

车号.rar (8.54 KB, 下载次数: 12)

413191246se · 发表于 2021-5-21 21:57

本帖最后由 413191246se 于 2021-5-21 23:04 编辑

* gbgbxgb 老师辛苦了！

Sub test()
Dim c As Cell
With ActiveDocument.Tables(1).Range
With .Font
.NameFarEast = "楷体"
.NameAscii = "Arial"
.Size = 14
End With
For Each c In .Cells
With c.Range
ActiveDocument.Range(Start:=.Start, End:=.Characters(InStr(.Text, "：")).End).Font.Name = "宋体"
End With
Next
End With
End Sub

复制代码

冰封气流 · 发表于 2021-5-22 10:08

gbgbxgb 发表于 2021-5-21 20:08
试试附件。

谢谢，非常完美！！！

冰封气流 · 发表于 2021-5-22 10:08

413191246se 发表于 2021-5-21 21:57
* gbgbxgb 老师辛苦了！

这个运行到后面会出错。。。

413191246se · 发表于 2021-5-22 11:47

怎么出错？楼主请明示，把错误之处截图上来可好？

Jason_WangSS · 发表于 2021-6-1 17:40

查找替换，两步
1、设置查找方向，向上，光标放到表格末尾
2、勾选使用通配符
3、查找内容：([一-龥]{1,99}[：:])
4、替换内容：\1
5、替换内容里面设置替换的格式为：宋体四号
6、替换看效果
7、同样的方法，查找方向改为向下，光标移动到表格开头
8、查找内容：([：:][一-龥 0-9a-zA-Z]{1,99})
9、替换内容：\1
10、替换内容里面设置替换格式为：楷体四号
要用VBA自己录个宏改改

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

[求助] 如何改变Word表格中部分文字的格式？