这个不能批量改？必须得循环？

tpb123

ActiveDocument.Tables(1).Cell(2, 6).Range.Characters(6, 11).Font.Size = 7.5
老师请教一下，我要设置表格1的第2行第3列的第7个字符到11字符的大小为六号     这句话应该怎么改呢

mmwwdd

Sub SetFont()
    Worksheets("表格1").Cells(2, 3).Characters(Start:=7, Length:=5).Font.Size = 6
End Sub

守候_CJ

Word VBA：Range+Start+End定位字符位置
代码：

1. Sub 定位测试()
   
2.     Dim 开始 As Long
   
3.     Dim 结束 As Long
   
4.    
   
5.     开始 = ActiveDocument.Tables(1).Cell(2, 6).Range.Characters(7).Start
   
6.     结束 = ActiveDocument.Tables(1).Cell(2, 6).Range.Characters(11).End
   
7.    
   
8.     ActiveDocument.Range(开始, 结束).Font.Size = 7.5
   
9. End Sub

复制代码

gwjkkkkk

ActiveDocument.Tables(1).Cell(2, 3).Range.Characters(6, 11).Font.Size = 7.5

bqwd36

ActiveDocument.Tables(1).Cell(2,3).Range.Characters(7, 11).Font.Size = 6
我猜的

杨建营

直接录制一段宏试试看。

tpb123

bqwd36 发表于 2023-3-4 20:54
ActiveDocument.Tables(1).Cell(2,3).Range.Characters(7, 11).Font.Size = 6
我猜的

这种会报错

tpb123

gwjkkkkk 发表于 2023-3-4 20:35
ActiveDocument.Tables(1).Cell(2, 3).Range.Characters(6, 11).Font.Size = 7.5

主要是这句写法有问题，不是单元格，选错的问题

tpb123

守候_CJ 发表于 2023-3-4 17:27
Word VBA：Range+Start+End定位字符位置
代码：

这个确实可行，厉害厉害

tpb123

mmwwdd 发表于 2023-3-4 17:25
Sub SetFont()
    Worksheets("表格1").Cells(2, 3).Characters(Start:=7, Length:=5).Font.Size = 6
En ...

是wordvba哦