WORD VBA排版怎么绕过表格文本？

zhongqiuzz

在大神413191246se的帮助下，搞了个WORD VBA的自动排版工具，但问题来了，每次排版都会对表格了的文档进行调整，有没有方法跳过表格段落，只对一般文本进行设置呢？

Jason_WangSS

Range.Information (wdWithInTable) = true 的时候就是在表格内

413191246se

楼主，大神不敢当！在我的《自动排版宏》里面的《公文排版》宏中，你可以读到"首表下方/表间循环/末表下方"这 3 段代码，它的作用就是只处理表格外的文本而不处理表格内的文本，请在 VBE 中将光标放在代码行上按 F8 键逐行调试程序即可明白。

zhongqiuzz

413191246se 发表于 2021-1-12 23:02
楼主，大神不敢当！在我的《自动排版宏》里面的《公文排版》宏中，你可以读到"首表下方/表间循环/末表下方" ...

在不断学习你的代码，遇到新问题了。窗体里的代码怎么相互调用呢？就像模块里的代码相互调用一样。

413191246se

* 窗体里的每个按钮，双击即可进入它的代码编辑模块（宏）中，这也叫事件；然后就直接写代码了。
* VBE 中选中 Normal，插入菜单——用户窗体(双击窗体属性ShowModel使之变为：False)——在窗体上新建一个复选框（名称：chkOfficial，Caption：公文），新建一个命令按钮（名称：cmdAutoType，Caption：排版）。双击命令按钮“排版”进入你的按钮模块，但是请全部删除，替换上我的代码，打开一篇文档，在窗体上点击 "运行"按钮（三角形），公共变量 g（公文首字母）=1 代表公文排版，0 代表普通排版。

1. Option Explicit
   
2. Dim g As Long
   
3. Private Sub chkOfficial_Click()
   
4.     If chkOfficial Then g = 1 Else g = 0
   
5. End Sub
   
6. Private Sub cmdAutoType_Click()
   
7.     With ActiveDocument.Content.Font
   
8.         If g = 0 Then
   
9.             .Name = "楷体"
   
10.             .Size = 14
    
11.             .ColorIndex = wdPink
    
12.         Else
    
13.             .Name = "仿宋"
    
14.             .Size = 16
    
15.             .ColorIndex = wdBlue
    
16.         End If
    
17.     End With
    
18. End Sub

复制代码

413191246se

在 NewMacros 模块新建一个过程，如：sub RunUserForm，写上 userform1.show 即可调用窗体，设为热键更为方便。

zhongqiuzz

413191246se 发表于 2021-1-13 13:07
在 NewMacros 模块新建一个过程，如：sub RunUserForm，写上 userform1.show 即可调用窗体，设为热键更为方 ...

我的意思是窗体里面有多个过程，怎么相互调用。

413191246se

楼主，一般过程是放在 NewMacros 模块中，窗体按钮代码可以直接调用；至于窗体的过程怎么调用，这我还真说不好。窗体按钮都是事件驱动的。窗体设计我也不在行（最近几天我也想玩玩窗体，结果，昨晚窗体还出错了，我暂时放弃窗体了）。或请查询网络吧！

zhongqiuzz

413191246se 发表于 2021-1-13 17:19
楼主，一般过程是放在 NewMacros 模块中，窗体按钮代码可以直接调用；至于窗体的过程怎么调用，这我还真说 ...

主要是窗体里有变量，又没弄懂模块怎么调用窗体的变量（或者是输入的值）

413191246se

楼主，第 5 楼，第 2 行代码，g 变量 只要放在过程前面，就是窗体模块的全局变量了啊！你可以试试。