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

相见是缘8 · 发表于 2021-1-12 08:22

Jason_WangSS 发表于 2021-1-12 07:39
代码里面没有新增段落符号

老师好！
我是说：在我提供的表格上运行你的代码后，每个单元格内都会新增一个段落符，能不能劳你再修改一下代码，把这个新增段落符全部去掉？

Jason_WangSS · 发表于 2021-1-12 08:41

相见是缘8 发表于 2021-1-12 08:22
老师好！
我是说：在我提供的表格上运行你的代码后，每个单元格内都会新增一个段落符，能不能劳你再修改 ...

把你所说的情况，前后截图我看下，代码里面没有增加段落的操作，如果运行后多出来了段落符号，可能是你别的地方出问题了

相见是缘8 · 发表于 2021-1-12 09:58

Jason_WangSS 发表于 2021-1-12 08:41
把你所说的情况，前后截图我看下，代码里面没有增加段落的操作，如果运行后多出来了段落符号，可能是你别 ...

请看附件！

413191246se · 发表于 2021-1-12 10:25

* 相见：Jason 老师的第 11 行代码改为下面语句即可：
oCell.Range.Text = " " & replace(oCell.Range.Text,vbcr,"")
* 我的《表格处理》宏，不是《表格处理_通用》宏，是指我的正式的《自动排版宏》（2020国庆珍藏版）中的《表格处理》宏。
* 另外，可能你是想减少段落间距，不叫“行距”。这个我疏忽了。

Jason_WangSS · 发表于 2021-1-12 11:22

相见是缘8 发表于 2021-1-12 09:58
请看附件！

14楼大神的方法可以
我自己是用这个

oCell.Range.Text = " " & Left(oCell.Range.Text, Len(oCell.Range.Text) - 2)

复制代码

相见是缘8 · 发表于 2021-1-13 06:58

413191246se 发表于 2021-1-12 10:25
* 相见：Jason 老师的第 11 行代码改为下面语句即可：
oCell.Range.Text = " " & replace(oCell.Range.T ...

感谢老师！

把 Jason 老师的第 11 行代码，改为你提供的语句，也可以达目的，但当单元格内有多段文字的会合并成一段。

啊！是《自动排版宏》（2020国庆珍藏版）中的《表格处理》宏。我弄错了！

老师纠正得对，是 “段落间距” ，不是 “行距” ！

相见是缘8 · 发表于 2021-1-13 07:00

Jason_WangSS 发表于 2021-1-12 11:22
14楼大神的方法可以
我自己是用这个

感谢老师！完美达愿了！谢谢！

相见是缘8 · 发表于 2021-1-13 07:51

本帖最后由相见是缘8 于 2021-1-13 07:54 编辑

再向二位老师求教：

如表格内，有的单元格内是一个段落的，有的单元格内是多个段落的，有不有办法在每个段落的首字前都加一个空格？

413191246se · 发表于 2021-1-13 12:47

Sub aaaa表格处理_段落前插入全角空格()
'光标在表格中处理当前表格；否则处理所有表格
Dim t As Table, s As Long, c As Cell, i&, j&
If Selection.Information(wdWithInTable) = True Then s = 1
For Each t In ActiveDocument.Tables
If s = 1 Then Set t = Selection.Tables(1)
With t
.Range.Font.ColorIndex = wdBlue '此行代码可删除
For Each c In .Range.Cells
With c.Range
j = .Paragraphs.Count
For i = 1 To j
.Paragraphs(i).Range.InsertBefore Text:=Chr(-24159)
Next
End With
Next
End With
If s = 1 Then Exit For
Next
ActiveWindow.ActivePane.View.ShowAll = True
End Sub

复制代码

相见是缘8 · 发表于 2021-1-14 07:04

413191246se 发表于 2021-1-13 12:47

老师好！
你发现没有？运行代码后，会自动点开文档上面莱单栏的 “显示／隐藏标记格式”，导致在单元格内段落的首字前的空格，变成了一个四方框，要再点 “显示／隐藏标记格式” 关闭后，才可变成空格。
可不可以直接替换成空格？不点开文档上面莱单栏的 “显示／隐藏标记格式” ！

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

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

评分