word自动填写功能

发布网友 发布时间:2022-04-21 10:10

我来回答

4个回答

热心网友 时间:2023-11-09 12:25

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

具体方法么:

建立Excel文档

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

Function CChinese(StrEng As String) As String

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

'程式*为不可输入超过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 = " 拾佰仟 拾佰仟 拾佰仟 拾佰仟"

strSeqCh2 = " 万亿兆"

StrEng = CStr(CDec(StrEng))

intLen = Len(StrEng)

For intCounter = 1 To intLen

strTempCh = Mid(strEng2Ch, Val(Mid(StrEng, intCounter, 1)) + 1, 1)

If strTempCh = "零" And intLen <> 1 Then

If Mid(StrEng, intCounter + 1, 1) = "0" Or (intLen - intCounter + 1) Mod 4 = 1 Then

strTempCh = ""

End If

Else

strTempCh = strTempCh & Trim(Mid(strSeqCh1, intLen - intCounter + 1, 1))

End If

If (intLen - intCounter + 1) Mod 4 = 1 Then

strTempCh = strTempCh & Mid(strSeqCh2, (intLen - intCounter + 1) \ 4 + 1, 1)

If intCounter > 3 Then

If Mid(StrEng, intCounter - 3, 4) = "0000" Then strTempCh = Left(strTempCh, Len(strTempCh) - 1)

End If

End If

strCh = strCh & Trim(strTempCh)

Next

CChinese = strCh

End Function

回到Excel工作表中,若要转化A1单元格的数字,则可在B1单元格中输入公式 =CChinese(A1)。要转化A这一列,则鼠标指向B1C1单元格交汇的的下脚,变符号之后下拉即可。

热心网友 时间:2023-11-09 12:26

使用“自动图文集”就能办到。只要你设置了词语,句子以后,就可以在输入前一两个字以后就出现提示,让你选择自动填写的语句。

参考资料:http://www.officexy.com/Articles/Word/WordSkill/20061121161011014.htm

热心网友 时间:2023-11-09 12:26

此功能仅在Excel中可以自如运用。
建议,在Excel中做好后复制到Word,或者插入到Word。
祝你成功!

热心网友 时间:2023-11-09 12:27

可以写VBA,完全没问题
声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
Top