word自动填写功能

来源：百度知道 编辑：UC知道 时间：2024/05/24 13:57:56
在Word里是否有自动填写功能，类似于excel里的lookup功能，在一篇文章里有若干个填项，只要填了其中一个空，其他的空就自动相应填上了。因为要准备员工的年终奖金信，内容是一样的，就是姓名，职位，级别，奖金明细等有所不一样，希望能输进一个名字或工号，其他数据就能出来，但经理希望能用到word文本编辑，能不能告诉我在word文档下怎么弄这些功能？相似的功能也可，万分感谢！

在word中插入excel表格，然后用excel的功能。

具体方法么：

建立Excel文档

按 Alt+F11 ，在VBA编辑器菜单中点 插入→模块，将下面的函数复制到插入的模块当中

Function CChinese(StrEng As String) As String

'将阿拉伯数字转成中文字的程式例如：1560890 转成 "壹佰伍拾陆万零捌佰玖拾"。

'程式限制为不可输入超过16个数字

If Not IsNumeric(StrEng) Or StrEng Like "*.*" Or StrEng Like "*-*" Then

If Trim(StrEng) <> "" Then MsgBox "无效的数字"

CChinese = "": Exit Function

End If

Dim intLen As Integer, intCounter As Integer

Dim strCh As String, strTempCh As String

Dim strSeqCh1 As String, strSeqCh2 As String

Dim strEng2Ch As String

strEng2Ch = "零壹贰叁肆伍陆柒捌玖"

strSeqCh1