污力胸毛
在word中插入excel表格，然后用excel的功能。
具体方法么：
建立Excel文档
按Alt+F11，在VBA编辑器菜单中点插入→模块，将下面的函数复制到插入的模块当中
FunctionCChinese(StrEngAsString)AsString
'将阿拉伯数字转成中文字的程式例如：1560890转成"壹佰伍拾陆万零捌佰玖拾"。
'程式限制为不可输入超过16个数字
IfNotIsNumeric(StrEng)OrStrEngLike"*.*"OrStrEngLike"*-*"Then
IfTrim(StrEng)<>""ThenMsgBox"无效的数字"
CChinese="":ExitFunction
EndIf
DimintLenAsInteger,intCounterAsInteger
DimstrChAsString,strTempChAsString
DimstrSeqCh1AsString,strSeqCh2AsString
DimstrEng2ChAsString
strEng2Ch="零壹贰叁肆伍陆柒捌玖"
strSeqCh1="拾佰仟拾佰仟拾佰仟拾佰仟"
strSeqCh2="万亿兆"
StrEng=CStr(CDec(StrEng))
intLen=Len(StrEng)
ForintCounter=1TointLen
strTempCh=Mid(strEng2Ch,Val(Mid(StrEng,intCounter,1))+1,1)
IfstrTempCh="零"AndintLen<>1Then
IfMid(StrEng,intCounter+1,1)="0"Or(intLen-intCounter+1)Mod4=1Then
strTempCh=""
EndIf
Else
strTempCh=strTempCh&Trim(Mid(strSeqCh1,intLen-intCounter+1,1))
EndIf
If(intLen-intCounter+1)Mod4=1Then
strTempCh=strTempCh&Mid(strSeqCh2,(intLen-intCounter+1)\4+1,1)
IfintCounter>3Then
IfMid(StrEng,intCounter-3,4)="0000"ThenstrTempCh=Left(strTempCh,Len(strTempCh)-1)
EndIf
EndIf
strCh=strCh&Trim(strTempCh)
Next
CChinese=strCh
EndFunction
回到Excel工作表中，若要转化A1单元格的数字，则可在B1单元格中输入公式=CChinese(A1)。要转化A这一列，则鼠标指向B1C1单元格交汇的的下脚，变符号之后下拉即可。
word 自动填表
在word中插入excel表格，然后用excel的功能。
具体方法么：
建立Excel文档
按Alt+F11，在VBA编辑器菜单中点插入→模块，将下面的函数复制到插入的模块当中
FunctionCChinese(StrEngAsString)AsString
'将阿拉伯数字转成中文字的程式例如：1560890转成"壹佰伍拾陆万零捌佰玖拾"。
'程式限制为不可输入超过16个数字
IfNotIsNumeric(StrEng)OrStrEngLike"*.*"OrStrEngLike"*-*"Then
IfTrim(StrEng)<>""ThenMsgBox"无效的数字"
CChinese="":ExitFunction
EndIf
DimintLenAsInteger,intCounterAsInteger
DimstrChAsString,strTempChAsString
DimstrSeqCh1AsString,strSeqCh2AsString
DimstrEng2ChAsString
strEng2Ch="零壹贰叁肆伍陆柒捌玖"
strSeqCh1="拾佰仟拾佰仟拾佰仟拾佰仟"
strSeqCh2="万亿兆"
StrEng=CStr(CDec(StrEng))
intLen=Len(StrEng)
ForintCounter=1TointLen
strTempCh=Mid(strEng2Ch,Val(Mid(StrEng,intCounter,1))+1,1)
IfstrTempCh="零"AndintLen<>1Then
IfMid(StrEng,intCounter+1,1)="0"Or(intLen-intCounter+1)Mod4=1Then
strTempCh=""
EndIf
Else
strTempCh=strTempCh&Trim(Mid(strSeqCh1,intLen-intCounter+1,1))
EndIf
If(intLen-intCounter+1)Mod4=1Then
strTempCh=strTempCh&Mid(strSeqCh2,(intLen-intCounter+1)\4+1,1)
IfintCounter>3Then
IfMid(StrEng,intCounter-3,4)="0000"ThenstrTempCh=Left(strTempCh,Len(strTempCh)-1)
EndIf
EndIf
strCh=strCh&Trim(strTempCh)
Next
CChinese=strCh
EndFunction
回到Excel工作表中，若要转化A1单元格的数字，则可在B1单元格中输入公式=CChinese(A1)。要转化A这一列，则鼠标指向B1C1单元格交汇的的下脚，变符号之后下拉即可。
word里面输入的数字怎么自动填充
工具/原材料
word2007版、电脑。
1、打开电脑找到并点击word2007版新建文档软件；
2、双击打开新建工作文档以后，为更好的举例说明先在空白文档内编辑好任意的文本内容；
3、选中好需要自动填充的表格后，在上方的工具栏中找到并点击编号旁的向下箭头的符号；
4、点击以后，在下拉选项中找到并点击“定义新编号格式”的命令；
5、在弹出的对话框中，就可以根据实际情况对编号样式、格式及对齐方式进行设置；
6、设置并确定好以后，此时选中的表格已经自动添加数字。
怎么把Excel里的数据自动填写到word里？
直接用word中的“邮件合并”功能。
先在word中设计好你需要的表格的格式，然后点菜单上的“工具”－“信函和邮件”－“邮件合并”，按照提示一步步走下去，在对应的单元格中输入你需要的字段名称即可
word里面制作合同设置自动填写
我们需要用Word 2007做一份采购合同书。它与普通Word文档的不同在于，其中的大部分内容是不需要更改的，甚至不允许更改。另外一些内容，比如涉及到公司的名称、地址、帐号等不允许出错，还包括一些可选的项目等。这种类似网页表单的文本用Word怎样实现呢?请您跟我来，按照下面的步骤一步步熟悉，马上就可以做出一份满足上述要求的合同书，它定会给您以后的工作带来极大方便。1.建立文档在编写采购合同时候，按照正常的步骤输入文档，需要注意的是留出需要单独填写的部分。在下面的步骤中，我们将最常用的文本输入格式——文本，日期，下拉列表，复选框等内容来介绍给大家。还有一点要注意，那就是要为Word添加“开发工具”选项卡，这是我们实现后期添加窗体控件的必要条件。在初始状态下，在菜单栏中是没有“开发工具”这个选项的。这时候，可以单击office图标(Office系列软件左上角)，然后选择“Word 选项”，在“常用”标签中选择“在功能区显示”开发工具”选项卡”，就可以看到了。2.添加控件我们先来仔细看一看“开发工具”中的“控件”窗口，针对不同的项目，我们可以添加不同的控件。显然，最常见的是文本内容的输入，它对应于控件窗口中前两个，分别叫做“格式文本”和“纯文本”。回到刚开始那份合同界面，首先遇到的是合同编号，那么它显然是一个文本输入.由于在合同封面，所以还要有一定的格式要求，这就要插入一个“格式文本”控件，这也是它与“纯文本”控件的区别。
word表格能不能自动填写日期
在EXECL自动填写以后，再复制到WORD表格当中，很方便的。
word中如何用office的基本功能实现重复内容的自动填写？
楼主所说的不知是不是邮件合并？
邮件合并的典型例子是：有一个花名册（数据表），有一个信封模版。信封的收件人和地址的空白，由系统自动从花名册找出来填上去。邮件合并的功能当然不止是填信封，只是这种类型的事，由邮件合并功能来干。总之，它就是一次填写其他就自动生成。
请具体给我讲讲怎么做吗？我还可以追加分数的！
你的需求讲的很模糊，请举例说明，如果讲不清楚可以贴图
转载请注明出处51数据库 » word自动填写 WORD里怎么弄自动填写
