代码之家 › 专栏 › 技术社区 › Walid Abdelal

预格式化字符串的在线插入

ms-word vba

Walid Abdelal · 技术社区 · 6 年前

在使用下面的宏填充MS word表格时,我脑海中有一个单元格,其中有两条语句,一条是粗体文本,另一条不是,下面是我处理它的方式。我相信有一种更智能、更在线的方式来实现快速格式化的字符串插入。而且,下面的实现没有任何效果?

For n = 1 To nCount
    With oTable.Rows(n + 1)
        'Page number
        .Cells(1).Range.Text = _
            oDoc.Comments(n).Scope.Information(wdActiveEndPageNumber)
        .
        .
        .
        .Cells(3).Range.Text = "First Statement: "
        .Cells(3).Range.Select
        With .Cells(3).Range
            .Bold = True
        End With
        .Cells(3).Range.Bold = False
        .Cells(3).Range.InsertAfter ("Second Statement")
    End With
Next n

1 回复 | 直到 6 年前

macropod 6 年前

Dim Rng As Range
For n = 1 To nCount
    With oTable.Rows(n + 1)
        'Page number
        .Cells(1).Range.Text = _
            oDoc.Comments(n).Scope.Information(wdActiveEndPageNumber)
        '
        '

    Set Rng = .Cells(3).Range
    With Rng
      .End = .End - 1
      .Text = "First Statement: "
      .Font.Bold = True
      .Collapse wdCollapseEnd
      .Text = "Second Statement"
      .Font.Bold = False
    End With
Next n

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前