如何提取/刪除每個頁面的第一個單詞？

Question

我做了一個mailmerge來創建客戶信息的動態詞彙頁面。

然後我做了（通過尋找在網絡上）宏結果文件分成幾個頁面，每個頁面被保存爲一個文件。

現在我正在尋找給這些文件包含客戶信息的一些名字。我搜索了這個，我認爲（唯一的）方法是在頁面的開頭創建一個包含該信息的合併域，然後使用宏將其從頁面中提取並從文件名中刪除。

例如：如果我有一個名爲客戶＃1我想有一個文件名爲Facture_Stackoverflow.doc。

我發現無處如何選擇，提取物，然後從我的頁面上刪除這個第一個字。

這裏是我的「分裂宏」，目前名稱的文件只是用遞增的ID：

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

下面的功能將使您能夠提取的第一個字（和有選擇地刪除它）的一句話文件。

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 

我希望這會有所幫助。