Sub？答()
？開？錯誤？簡歷？然後
暗淡？sFolderFullPath？作為？線
暗淡？oFiles？作為？收藏品
暗淡？lFileIndex？作為？長的
暗淡？sFileFullName？作為？字符串，？sFileName？作為？線
暗淡？奧多克？作為？詞。文件
暗淡？lDocCount？作為？長的
Const？添加文本？=?“文字”？& amp？vbCrLf？& amp？該文檔可以解析大型DBX文件。在龐大的DBX文件中，我們找不到郵件列表連接的規律，或者說理解上還存在壹些問題，但是只要按照文檔中描述的方法去分析，完全可以分析出來。”？添加的文本
選擇壹個文件夾
用什麽？申請。文件對話框(msoFileDialogFolderPicker)
。AllowMultiSelect？=?錯誤的
。標題？=?"請選擇壹個文件夾"
。顯示
如果？. SelectedItems.Count？=?0?然後
MsgBox？您沒有選擇文件夾，程序將退出
退出？潛水艇
結束？如果
sFolderFullPath？=?. SelectedItems.Item(1)
結束？隨著
sFileName？=?Dir(sFolderFullPath？& amp？"\*.doc* "，？vbNormal)
什麽時候？Len(sFileName)？& gt？0
sFileFullName？=?sFolderFullPath？& amp？"\"?& amp？sFileName
設置？奧多克？=?文件。打開(文件全名)
如果？不是嗎？奧多克？是嗎？什麽都沒有？然後
' Odoc.content.insertparagrapher '在文檔末尾添加壹個新段落，
奧多克。段落。最後。對齊？=?wdAlignParagraphLeft？左邊對齊
奧多克。段落.最後.範圍.選擇
選擇。文字？=?' AddText '將heart段落的文本設置為？。。。
選擇。' EndKey '將插入點移動到文檔的末尾。
奧多克。“保存”保存文檔。
結束？如果
sFileName？=?Dir？列舉下壹個
行
結束？潛水艇