1、将以下内容复制进excel的宏模块点击保存。
Dim a, b, zhs
zhs = Sheet 1. Range("c"& Rows.Count).nd(xlUp).Row
p = ThisWorkbook. Path &""
If Sheet 1.Range("c5").Value = "" Then
wjj="新文书"
Else
wjj = Sheet1.nge("c5").Value
End If
If zhs < 3 Then
CreateObject ("Wscript.shell").popup "没有数据可以录入,请输入数据后再点击生成新文档!",1,"提示! ",0 + 32
Exit Sub
End If
If Sheet1.Range("F1") <> "修改本级文档"Then
On Error Resume Next
2、这个方式是用EXCEL的表格对多个内容进行界面管理。
3、之后在用Excel的VBA调用word文件进行查找更改。
相关
文章安卓 | v1.0.0
简体中文 | 52.9 MB
8.8
安卓 | V2.1
简体中文 | 33.2 MB
7.4
安卓 | v4.2.8
简体中文 | 238 MB
7.2
安卓 | V2.30
简体中文 | 47.6 MB
8.5
安卓 | v1.1.3
简体中文 | 169 MB
7.4
安卓 | V0.9.54.529
简体中文 | 1.6 GB
7.8
安卓 | v1.0
简体中文 | 22.8 MB
9.9
安卓 | V0.5
简体中文 | 121.6 MB
8.1
本站为非营利性个人网站,本站所有游戏来自于互联网,版权属原著所有。如有侵犯你的版权,请发邮件给wishdown2023@163.com
湘ICP备2021017279号-3 公安部备案号:13092602000101
Copyright©2006-2019 www.wishdown.com All rights reserved