自编插件Word格式助手更新V1.1

韵雪中庸

这个支持office2007吗

watpever

Enocheasty 发表于 2024-9-25 08:48
兄弟，你说的表格全选是啥意思？是一个表的内容全选，还是全文的表格全选？
如果是一个表的内容全选，Wo ...

选择全文的表格，我去试试全文模式，感谢大佬

Enocheasty

韵雪中庸 发表于 2024-9-26 09:57
这个支持office2007吗

不支持，2013起步，主要是库不一样，我自己也没用2007的office，就没做兼容。

Enocheasty

watpever 发表于 2024-9-24 14:43
大佬，在再更新能否加上：
（1）表格全选《方便整体修改表格样式》
（2）表格标题行重复

搞了一个全文表格设置重复标题行。看啥时候发下版

watpever

Enocheasty 发表于 2024-9-26 11:37
搞了一个全文表格设置重复标题行。看啥时候发下版

大佬厉害
自动排版可以考虑考虑通过替换样式的方式自动排版，按照大纲级别进行替换，这样快一点

Enocheasty

watpever 发表于 2024-9-26 11:47
大佬厉害
自动排版可以考虑考虑通过替换样式的方式自动排版，按照大纲级别进行替换，这样快一点

我没做自动排版，从我用Word的角度来看，习惯很重要，如果你按照一个好的习惯去做，很多东西都不麻烦。Word软件本身的功能就够用了，如果习惯不好，文档格式稀奇古怪，再智能也难搞好。
去处理那些稀奇古怪的格式太费脑了，所以我最开始不打算搞智能排版，后面也没打算搞。

tie_xue

不错，支持一个先

我的电子表1516

谢谢大神，慢慢学习领会。

bylandi

watpever 发表于 2024-9-24 14:43
大佬，在再更新能否加上：
（1）表格全选《方便整体修改表格样式》
（2）表格标题行重复

Sub 表格—全选表格()
    '
    ' 选取所有表格
    '
    Dim T As Table
    Application.ScreenUpdating = False
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    For Each T In ActiveDocument.Tables
        T.Range.Editors.Add wdEditorEveryone
    Next
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    Application.ScreenUpdating = True
   
End Sub

bylandi

感谢大侠，做得挺好的。