none
ExcelからのWordのSentencesデータの読込み RRS feed

  • 質問

  • WordのDocumentオブジェクトdoc1から1,200程度のSentenceデータをテキストの形式で読込もうと考え、以下のように一旦配列に読込ませた後に、ワークシートのセルに読込むつもりです。

        Dim s1() As String
        Dim i As Integer

        With doc1
            n1 = .Sentences.Count
            ReDim s1(1 To n1, 1 To 1)
            For i = 1 To n1
                s1(i) = .Sentences(i).text
            Next i
        End With

    しかしながら、この配列にSentenceデータを読込ませるのに非常に時間が掛かり困っています。配列にSentenceデータを代入する際に、都度Documentオブジェクトにアクセスするためではないかと考えています。Sentenceデータを配列等に一括で読込む方法があれば教えて下さい。

    2013年11月12日 13:54