Sub 自动调整所有表格()
'
' 自动调整所有表格 宏
'
'Application.Browser.Target = wdBrowseTable

For i = 1 To ActiveDocument.Tables.Count

   With ActiveDocument.Tables(i)
   .AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容
   .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
   .Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
   .Borders(wdBorderHorizontal).LineStyle = wdLineStyleInset '加水平线
   End With
    
    
    
Next i

End Sub

打开word文档，选择开发工具，点击宏。弹窗之后新建宏，输入以上命令，运行即可。



Logo
2048 AI社区

有“AI”的1024 = 2048，欢迎大家加入2048 AI社区

更多推荐

React Native for OpenHarmony 实战：TouchableHighlight 高亮触摸组件

本文深度解析 React Native 核心组件 TouchableHighlight 在 OpenHarmony 平台的实战应用。🔥 通过 8 个可验证代码示例、3 个 Mermaid 架构图及 2 个关键对比表格，系统阐述组件原理、OpenHarmony 适配要点及性能优化技巧。💡 重点解决触摸反馈延迟、样式渲染不一致等 5 大平台特有问题，提供经华为 Mate 50（OpenHarmon

avatar 2048 AI社区
cover

2026必备10个降AI率工具，继续教育学生必看

avatar 2048 AI社区

React Native for OpenHarmony 实战：TouchableOpacity 触摸反馈组件

本文深度解析React Native核心组件TouchableOpacity在OpenHarmony平台的实战应用。作为跨平台开发中不可或缺的触摸反馈组件，TouchableOpacity在OpenHarmony适配过程中面临事件处理差异、样式渲染兼容性等独特挑战。通过7个可运行代码示例、2个关键对比表格和3个mermaid架构图，系统阐述组件原理、基础/进阶用法及平台特定优化方案。

avatar 2048 AI社区