WORD文書の一部をデータとして、VBにて取り込むには？

解決

閃コ 2003-08-26 06:53:16 No: 79140

VBにてWORD文書検索機能を作成しようとしています。
検索する際にWORD文章内の文章をTextBoxに表示させようとしていますが、
うまくできません。Selectionに関する良い方法を教えてください。

猪口 2003-10-02 04:57:00 No: 79141

解決できました。
Set wdDoc = wdApp.Documents.Open(MyPath & DocName)
Set wdSelection = wdApp.Selection

With wdSelection
     'WORDの文書の取得
     .MoveRight Unit:=wdCell, Count:=1
     TxtTitle = .Text
     If Len(t_txt) < 4 Then
         .MoveRight Unit:=wdCell, Count:=3
         TxtTitle = .Text
     End If
     '全角を半角に変換
     TxtTitle = StrConv(TxtTitle, vbNarrow)
End With

以上です。