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

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 解決できました。 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 以上です。