脳内がNotes/Domino系からASP.NETに移行しつつあるIT系情報ブログなつもり。
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
'docは現在開いてる文書のバックエンド文書として取得したものとする。
Dim rtitem As Variant
Set rtitem = doc.GetFirstItem("naiyou")
If ( rtitem.Type = RICHTEXT ) Then
valuedata = rtitem.EmbeddedObjects
If Isarray(valuedata) Then
'オブジェクトが含まれている場合
Else
'オブジェクトが含まれていない場合
planeText = rtitem.GetFormattedText( True, 0 )
If planeText = "" Then
'オブジェクトもテキストもない場合
else
'テキストのみの場合
End If
End If
End If
12 | 2025/01 | 02 |
S | M | T | W | T | F | S |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | |||
5 | 6 | 7 | 8 | 9 | 10 | 11 |
12 | 13 | 14 | 15 | 16 | 17 | 18 |
19 | 20 | 21 | 22 | 23 | 24 | 25 |
26 | 27 | 28 | 29 | 30 | 31 |