excel - VBA Word更改表格单元格中特定单词的字体大小
问题描述
我正在从 Excel 编辑 Microsoft Word 文档。我的 Word 文档中有一个表格,其中第 4 列由一个数字和后面的字母wk组成。
例子:
+------+------+------+-------+
| Col1 | Col2 | Col3 | Col4 |
+------+------+------+-------+
| test | 2 | 123 | 1 wk |
| test | 2 | 123 | 13 wk |
| test | 2 | 123 | 10 wk |
+------+------+------+-------+
我正在尝试更改字母wk的字体大小。我想我可以通过选择来做到这一点,然后替换字母,但它绝对不能通过 Excel 在 VBA 中工作。我怎样才能做到这一点?
我当前的代码:
Tbl.Columns(4).Select
WDApp.Selection.Find.ClearFormatting
With WDApp.Selection.Find
'.ClearFormatting
.Text = "wk"
.Replacement.Text = "wk"
.Font.Size = 9
End With
WDApp.Selection.Find.Execute Replace:=wdReplaceAll
解决方案
这是未经测试的移动设备,所以请耐心等待。
目前您没有更改“替换”文本的文本大小,因此您应该更新为.Replacement.Font.Size = 9
With WDApp.ActiveDocument.Content.Find
.ClearFormatting
.ClearAllFuzzyOptions
.Text = "wk"
With .Replacement
.Text = "wk" 'this line might be unnecessary
.Font.Size = 9
End With
.Execute Format:=True, Replace:=wdReplaceAll
End With
推荐阅读
- bash - 使用 sed 更新 js 文件中的行
- apache-kafka - 服务器不接受Kafka消息(仅来自远程IP?)
- c# - Visual Studio 2015 社区报告查看器版本 12 使用 c# 获取额外边距时出错
- assembly - 我的 LC3 解决方案对于查找递增序列的长度是否正确?
- python - 如何将字典存储在为特定数据集创建的 genism 中?
- .htaccess - htaccess 规则返回页面未找到
- javascript - javascript递归优化
- html-email - VML 响应式背景图片
- c# - 将 Wndows 窗体转换为 Windows 用户控件
- javascript - 如果您将类名作为字符串,如何在 Javascript 中创建对象?