各ページの最初の単語の抽出/削除方法は？

Question

私は、顧客情報を含む動的な単語ページを作成するためにメールを作成しました。

次に、結果ファイルを複数のページに分割するマクロを1つのファイルとして保存するマクロを探しました。

私はこれらのファイルに顧客情報を含む名前を付けることを検討しています。私はそれをgoogledと私は（と？）方法は、ページの冒頭に、その情報を持つマージフィールドを作成し、抽出し、ファイル名に入れるために、マクロを持つページから削除することだと思います。

例：Stackoverflowという名前の顧客がいる場合は、Facture_Stackoverflow.docという名前のファイルが必要です。

私のページからこの最初の単語を選択し、抽出して削除する方法はありませんでした。単語の

Sub DecouperDocument() 
    Application.Browser.Target = wdBrowsePage 

    For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages") 

     ActiveDocument.Bookmarks("\page").Range.Copy 

     Documents.Add 
     Selection.Paste 

     Selection.TypeBackspace 
     ChangeFileOpenDirectory "C:\test\" 
     DocNum = DocNum + 1 
     ActiveDocument.SaveAs FileName:="Facture_" & DocNum & ".doc" 
     ActiveDocument.Close 

     Application.Browser.Next 
    Next i 
    ActiveDocument.Close savechanges:=wdDoNotSaveChanges 
End Sub 

Answer 1

以下の関数は最初の単語を抽出し（必要に応じてそれを削除）することができます：ここでは

だけインクリメントIDと、現在その名前のファイル、私の「分割マクロ」であります資料。

Public Function GetFirstWord(Optional blnRemove As Boolean = True) As String 

    Dim rng As Range 
    Dim intCharCount As Integer 
    Dim strWord As String 

    With ThisDocument 
     Set rng = .Characters(1) 

     intCharCount = rng.EndOf(wdWord, wdMove) 

     With .Range(0, intCharCount - 1) 
      strWord = .Text 
      If blnRemove Then 
       .Delete 
      End If 
     End With 
    End With 

    GetFirstWord = strWord 

End Function 

これが役立ちます。