テキストを指定された長さのチャンクに分割することはできますか？

Question

私は様々なアルゴリズムがさまざまな長さのテキストを要約する程度を分析するプロジェクトに取り組んでいます。私は、私が使用しているWord文書としてフォーマットされた多数の電子ブックを持っています。これまでは、毎回テストしたい単語の正確な数をコピーして貼り付けていますが、これは非常に面倒です。

私はVBAに慣れていませんが、研究の結果、これはオプションになるようです。マクロが長いWord文書を指定された数の塊に分割する方法はありますか？たとえば、最初の750語を新しい文書に抽出します。簡単な場合は、750単語ごとにページ区切りを作成することもできます。

これについては、より良い方法があるかもしれないので、他の提案も高く評価されます。これについて

Answer 1

何：

Sub CopyWords() 
    Dim InputString As String 
    Dim Words As Integer 
    Do 
     InputString = InputBox("How many words?", "CopyWords") 
     If InputString = "" Then Exit Sub 
     Words = Val(InputString) 
     If Words = 0 Then MsgBox "You can't have """ & InputString & """ words!" 
    Loop While Words = 0 
    Selection.MoveRight Unit:=wdWord, Count:=Words, Extend:=wdExtend 
    If Selection.Range.ComputeStatistics(wdStatisticWords) < Words Then 
     MsgBox "There aren't " & InputString & " words available from this point" 
    Else 
     Selection.Copy 
    End If 
End Sub 

それが値を要求し、それが数値の場合、カーソルからその多くの単語を選択しようとします。十分な数があれば、それをクリップボードにコピーします。