有偿求大神帮我解决，如何实现表格内文字自动换行的排版？

梧叶沙沙 · 发表于 2023-4-24 11:56

加了，我可以做

batmanbbs · 发表于 2023-4-24 12:17

本帖最后由 batmanbbs 于 2023-4-24 12:33 编辑

我看3楼的代码可以实现啊，调整一下每行字符，再减掉1个字符就应该可以了，缺点是无法控制标点，如果要修改内容需要清空后重新执行代码

tcdatongye · 发表于 2023-4-24 15:31

batmanbbs 发表于 2023-4-24 12:17
我看3楼的代码可以实现啊，调整一下每行字符，再减掉1个字符就应该可以了，缺点是无法控制标点，如果要修改 ...

我这个是按照自然行执行的，仅实行换行功能。其实只要提供基础材料，字符串内容就可以不断变化了。

batmanbbs · 发表于 2023-4-24 18:33

我用你的文件测试后的结果

batmanbbs · 发表于 2023-4-24 19:16

本帖最后由 batmanbbs 于 2023-4-24 19:39 编辑

tcdatongye 发表于 2023-4-24 15:31
我这个是按照自然行执行的，仅实行换行功能。其实只要提供基础材料，字符串内容就可以不断变化了。

另外请教：
Selection.MoveStart wdLine
是什么意思，不是应该移动到所选内容的起始位置吗（即整个段落的行首），为什么会移动到第二行的行首呢？

还有一个问题：如果记录内容大于现有表格行数，能不能自动添加表格行，直至记录内容全部填入表格中。

tcdatongye · 发表于 2023-4-24 20:10

本帖最后由 tcdatongye 于 2023-4-24 20:12 编辑

batmanbbs 发表于 2023-4-24 19:16
另外请教：
Selection.MoveStart wdLine
是什么意思，不是应该移动到所选内容的起始位置吗（即整个段落 ...

我这边没有任何问题。用的是word2016版本。Selection.MoveStart wdLine移动一行。换个思路，留下第一行，截取剩余行。记录内容大于表格行，完全可以加，并且加多少都是知道的。

batmanbbs · 发表于 2023-4-24 20:14

tcdatongye 发表于 2023-4-24 20:10
我这边没有任何问题。用的是word2016版本。Selection.MoveStart wdLine移动一行。换个思路，留下第一行， ...

谢谢，一直不太明白 Selection 作为光标和选区的区别，这里是作为光标还是选区呢？
另外，超出表格自动增加表格行应该如何处理呢？

PS：这段代码让我学到了很多新东西，THX

tcdatongye · 发表于 2023-4-24 20:19

batmanbbs 发表于 2023-4-24 20:14
谢谢，一直不太明白 Selection 作为光标和选区的区别，这里是作为光标还是选区呢？
另外，超出表格自动 ...

你每行多出字是哪里来的？

batmanbbs · 发表于 2023-4-24 20:21

tcdatongye 发表于 2023-4-24 20:19
你每行多出字是哪里来的？

不知道啊，不过这个是在WPS下运行的结果，单位都是WPS

batmanbbs · 发表于 2023-4-24 20:35

batmanbbs 发表于 2023-4-24 19:16
另外请教：
Selection.MoveStart wdLine
是什么意思，不是应该移动到所选内容的起始位置吗（即整个段落 ...

有点明白了，Selection.MoveStart wdLine 是从选区开始位置向后移动一行

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