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)

エラーは

セット プロパティ 'Selection に対して無効です。オブジェクトの配列、オブジェクト、または idNothingEnum 列挙子が予期されていましたが、受信されました (文字、文字、文字、文字、文字)

CharacterStyle をセル内のテキストの部分文字列に適用するには、まったく異なる手法が必要だと思いますが、高低を検索してもまだ発見していません。

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 に答える