| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3266221
建立时间:2005年6月6日 |
| |
|
 [delpih编程]利用vba统一word文档中所有的表格风格(原创，加缩进便于浏览）
软件技术
吕向阳 发表于 2010/11/7 20:16:00 |
在审计实践中，财务报表附注这个文档往往含有数十个大小不一的表格。自己在做附注时有可能要改变一下风格，整个文件中全部表格重新调整过来，可能要几个小时或更多的时间，这时vba可方便助你改变表格风格，可能只是几十秒，所有表格调整一致，干净清爽。
下面是代码，您可按需要设置每行高度，表格颜色，
Sub change_table_style()
Dim atable
If ActiveDocument.Tables.Count >= 1 Then
For Each atable In ActiveDocument.Tables
'对所有表格进行循环
& |
|
|
[delpih编程]word中加入工具按钮的用例
软件技术
吕向阳 发表于 2010/11/7 20:06:03 |
Sub DeleteBtn()
On Error Resume Next
Application.CommandBars("cmdBtn Type").Delete
On Error GoTo 0
End Sub
Sub startbb()
Dim cmdBar As CommandBar
Dim cmdBtn As CommandBarButton
Dim cmdBtn2 As CommandBarButton
& |
|
|
[delpih编程]利用vba统一word文档中所有的表格风格
软件技术
吕向阳 发表于 2010/11/5 10:26:02 |
在审计实践中，财务报表附注这个文档往往含有数十个大小不一的表格。自己在做附注时有可能要改变一下风格，整个文件中全部表格重新调整过来，可能要几个小时或更多的时间，这时vba可方便助你改变表格风格，可能只是几十秒，所有表格调整一致，干净清爽。
下面是代码，您可按需要设置每行高度，表格颜色，
Sub change_table_style()
Dim atable
If ActiveDocument.Tables.Count >= 1 Then
For Each atable In ActiveDocument.Tables
'对所有表格进行循环
atable.Select
'将所有的表格调整到左对齐，这样看起来整体协调
Selection.Rows.HeightRule = wdRowHeightAtLeast
'调整每行高度到0.65cm,这个您自个定
Selection.Rows.Alignment = wdAlignRowLeft
atable.Rows.Height = Centimete |
|
|
[delpih编程]word 中 vba将一标志字符换成顺序号
软件技术
吕向阳 发表于 2010/11/3 22:19:22 |
我的WORD文档中加入了很多【===】标志，在最后行文的时候要用一个vba代码将这些标志符替换成中文顺序号（这里是简单的前
二十），或英文顺序号。在word2007下测试通过。
Sub make_order_number()
Dim I As Integer
I = 1
Do
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "【===】"
.Replacement.Text = dx(I)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildc |
|
|
[delpih编程]Word巧妙调用Excel“文本到语音”功能(转贴)
软件技术
吕向阳 发表于 2010/10/10 11:16:53 |
在微软Excel 2009中有一个“文本到语音”的性能，使用此性能可以完成语言校对，但是在Microsoft Word 2009中却没有此项性能。其实我们可以在Microsoft Word中使用VBA代码调用微软Excel的“文本到语音”性能。
1.代码的编写
打开Microsoft Word 2009，点击“工具→宏→宏”菜单命令，这时出现“宏”对话框，将“宏”命名为“语音校对”，“宏的位置”设为“所有的活动模板和文档”。再点击[创建]安钮，此时出现“代码”窗口，在其中输入下面的代码：
Sub语音校对()
微软Excel.Application.speech.speak Selection‘朗读选中的单元格内容
End Sub
2.建立与微软Excel之间的联系
点击菜单栏上的“工具→引用”菜单命令，在出现的窗口中择选“Microsoft 微软Excel 11.0 Object Library”项，再点击[确定]安钮，最后点击“文档→保存”菜单命令。
3.工具安钮的打造
通过点击“文档→关闭并返 |
|
|
[delpih编程]vba对word中域的直接操作
软件技术
吕向阳 发表于 2010/9/16 15:28:20 |
本代码直接作用为，用一个循环，将所有的域遍历一次，接着判断是否是一个链接到excel单元格的域，如是，则将其链接的excel的路径文件改为新的路径。 也就是实现了域的链接表格动态变化。
For i = 1 To ActiveDocument.Fields.Count
'MsgBox ActiveDocument.Fields.Item(i).Type
If ActiveDocument.Fields.Item(i).Type = 56 Then
MsgBox ActiveDocument.Fields.Item(i).Code
strtmp = ActiveDocument.Fields.Item(i).Code
ActiveDocument.Fields.Item(i).Code.Text = Replace(strtmp, "D:\\My Documents\\财务报表附注模板\\新兴模板附注.xls", "D:\\My Documents\\财务报表附注模板1\\新兴模板附注.xls", 1, 1, vbTextCompare)
|
|
|