Word表格中每个单元格的首字前加一个中文空格

相见是缘8 · 发表于 2021-1-11 06:53

请老师帮忙：

1、Word表格中每个单元格的首字前加一个中文空格。

2、去掉每个单元格内的空白行距。

谢谢！

Jason_WangSS · 发表于 2021-1-11 08:21

Sub test11()
Dim oTable As Table
Dim oCell As Cell
For Each oTable In ActiveDocument.Tables
oTable.Range.ParagraphFormat.DisableLineHeightGrid = True
oTable.Range.ParagraphFormat.SpaceBeforeAuto = False
oTable.Range.ParagraphFormat.SpaceAfter = 0
oTable.Range.ParagraphFormat.SpaceAfterAuto = False
oTable.Range.ParagraphFormat.LineUnitAfter = 0
For Each oCell In oTable.Range.Cells
oCell.Range.Text = " " & oCell.Range.Text
Next
Next
End Sub

复制代码

413191246se · 发表于 2021-1-11 09:45

本帖最后由 413191246se 于 2021-1-11 11:02 编辑

* 相见，请将光标放在要处理的表格中，然后应用我的《表格处理》宏，可以删除表格内空行（空段）；然后应用下面的宏，在每个单元格内添加全角空格：

Sub AddSpaceToCell()
Dim c As Cell
For Each c In Selection.Tables(1).Range.Cells
c.Range.InsertBefore Text:=Chr(-24159)
Next
End Sub

复制代码

ming0018 · 发表于 2021-1-11 10:07

413191246se 发表于 2021-1-11 09:45
* 相见，请将光标放在要处理的表格中，然后应用我的《表格处理》宏，可以删除表格内空行（空段）；然后应用 ...

你的删除表格内空行功能，包含嵌套的表格吗？

413191246se · 发表于 2021-1-11 11:05

明老师：新年快乐！这可把我难住了！我可不懂什么嵌套表格；可能仅能处理普通一般表格吧！

zhanglei1371 · 发表于 2021-1-11 17:45

413191246se 发表于 2021-1-11 11:05
明老师：新年快乐！这可把我难住了！我可不懂什么嵌套表格；可能仅能处理普通一般表格吧！

可以学习下递归，专门搞嵌套

413191246se · 发表于 2021-1-11 19:14

张老师：新年快乐！递归、嵌套，对我来说太遥远。感觉看不懂，理解不了，智力不够。我想，我还是来最基础的小文档自动排版比较好（特别是依靠录制宏是个不错优势）。从昨天开始我重新开始复习微软VBA帮助文档。VBA编程是个爱好，去年10月左右也想学 C 语言来着，但在 10月5号把 Win10 搞崩溃了，现在也不敢折腾了，还是乖乖地玩一玩 VBA 吧！（现在每天晚上饭后我要玩《欧洲卡车模拟2》、《极品飞车在线》和《使命召唤在线》，然后有时间再折腾一下 VBA 宏。）

相见是缘8 · 发表于 2021-1-12 07:06

Jason_WangSS 发表于 2021-1-11 08:21

老师好！
老师的代码可满足要求，能不能有办法把运行该宏后，新增的段落符全部去掉？

相见是缘8 · 发表于 2021-1-12 07:11

413191246se 发表于 2021-1-11 09:45
* 相见，请将光标放在要处理的表格中，然后应用我的《表格处理》宏，可以删除表格内空行（空段）；然后应用 ...

老师好！
是下面这个链接上的《表格处理》宏吗？运行该宏后，表格内空白 “行距” 没有去掉，只是字体变红了。
http://club.excelhome.net/thread-1415103-1-1.html

下面的 “每个单元格内添加全角空格” 宏，运行不了。

Jason_WangSS · 发表于 2021-1-12 07:39

相见是缘8 发表于 2021-1-12 07:06
老师好！
老师的代码可满足要求，能不能有办法把运行该宏后，新增的段落符全部去掉？

代码里面没有新增段落符号

		自动登录	找回密码
密码			免费注册

[求助] Word表格中每个单元格的首字前加一个中文空格

评分