经验直达：
- 怎么将word文档中数字设置成千分隔符
- 怎么让word按规定字数把它分成许多文档
一、怎么将word文档中数字设置成千分隔符
在word文档中会写很多数据，有些带小数点，有些不带，但为了直观，需要把这些数据全部设置为“千位分隔符”的格式，设置方法为：
1、一般情况下，word文档只是一个处理文字的应用软件，在输入数字的时候不会出现千位分隔符 。
2、先在Excel中输入数据，然后点上方的千位分隔符，最后点一下旁边的货币符号 。
【word文档数字怎么分割 怎么将word文档中数字设置成千分隔符】
3、利用Office剪贴板复制Excel的数据到Word中粘贴原理 。
4、在word表格中定位光标，然后再剪贴板的项目中点击一下需要粘贴的项目即可 。
注意事项：
千位分隔符，其实就是数字中的逗号 。依西方的习惯，人们在数字中加进一个符号 ， 以免因数字位数太多而难以看出它的值 。所以人们在数字中，每隔三位数加进一个逗号，也就是千位分隔符，以便更加容易认出数值 。
二、怎么让word按规定字数把它分成许多文档
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；2、键入ALT F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：Option ExplicitSub SplitPagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As IntegerDim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentoRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 ToActiveDocument.Content.Information(wdNumberOfPagesInDocument)oSrcDoc.Bookmarks("page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))Set oNewDoc = Documents.AddSelection.PasteoNewDoc.SaveAs strNewNameoNewDoc.Close FalseNextSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox "结束！"End Sub4、键入F5运行，看到“完成！”结束 。5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容 。Option ExplicitSub SplitPagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As IntegerDim fso As ObjectConst nSteps = 4Set fso = CreateObject("Scripting.FileSystemObject")Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentnTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oRange.Collapse wdCollapseStart oRange.SelectFor nIndex = 1 To nTotalPages Step nStepsSet oNewDoc = Documents.AddIf nIndexnSteps > nTotalPages ThennBound = nTotalPagesElsenBound = nIndexnSteps - 1End IfFor nSubIndex = nIndex To nBoundoSrcDoc.ActivateoSrcDoc.Bookmarks("page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextoNewDoc.ActivateoNewDoc.Windows(1).Selection.PasteNext nSubIndexstrSrcName = oSrcDoc.FullNamestrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))oNewDoc.SaveAs strNewNameoNewDoc.Close FalseNext nIndexSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox "结束！"End Sub