1

如何从单元格中选择文本子字符串，以便应用字符样式？

当我只选择一个字符时，这很好用：

If IsNumeric(para.Contents.ToString.Substring(0, 1)) 
    doc.Selection = para.Characters.ItemByRange(1, 1)
    doc.Selection.Item(1).appliedCharacterStyle = mycharstyle
End If

但如果我尝试选择一系列字符，它会失败

doc.Selection = myCell.Characters.ItemByRange(72, 76)

错误是

对设置属性“选择”无效。预期的对象数组、对象或 idNothingEnum 枚举器，但已收到（字符、字符、字符、字符、字符）

我认为必须有一些完全不同的技术将我的 CharacterStyle 应用于我的 Cell 中的文本子字符串，但是在搜索高低之后我还没有发现它。

4

1 回答 1

0

让它与 GREP 一起工作。

        app.FindGrepPreferences = idNothingEnum.idNothing
        app.ChangeGrepPreferences = idNothingEnum.idNothing
        app.FindChangeGrepOptions.IncludeFootnotes = False
        app.FindChangeGrepOptions.IncludeHiddenLayers = False
        app.FindChangeGrepOptions.IncludeLockedLayersForFind = False
        app.FindChangeGrepOptions.IncludeLockedStoriesForFind = False
        app.FindChangeGrepOptions.IncludeMasterPages = False
        mycharstyle = doc.CharacterStyles("SK-number1")
        app.ChangeGrepPreferences.AppliedCharacterStyle = mycharstyle
        app.FindGrepPreferences.FindWhat = "(?<=\t)(\d{4}.*~b)"
        doc.ChangeGrep()
于 2013-03-16T14:13:09.870 回答