word选中文字如何变成ppt？

zzpsx · 发表于 2024-9-18 10:38

本帖最后由 zzpsx 于 2024-9-18 16:42 编辑

选中的word如何生成ppt.zip (19.65 KB, 下载次数: 4)
例如，我选中了word表格中间的文字，运行代码，能生成一个ppt，每页7行词组，ppt中字号尽量最大

ppt中想要的效果

lss001 · 发表于 2024-9-19 22:33

本帖最后由 lss001 于 2024-9-24 22:41 编辑

...............

zzpsx · 发表于 2024-9-20 08:50

lss001 · 发表于 2024-9-20 13:13

zzpsx 发表于 2024-9-20 08:50

Dim sld As Object, x%, y%, i%, j%, s$, k%

zzpsx · 发表于 2024-9-20 13:25

lss001 发表于 2024-9-20 13:13
Dim sld As Object, x%, y%, i%, j%, s$, k%

太厉害了，谢谢。
生成的ppt的文本前面可否加序号？

lss001 · 发表于 2024-9-20 13:31

zzpsx 发表于 2024-9-20 13:25
太厉害了，谢谢。
生成的ppt的文本前面可否加序号？

s = s & arr(j - 1) & VBA.vbNewLine
改一下
s = s & j & "." & arr(j - 1) & VBA.vbNewLine

zzpsx · 发表于 2024-9-20 13:38

lss001 发表于 2024-9-20 13:31
s = s & arr(j - 1) & VBA.vbNewLine
改一下
s = s & j & "." & arr(j - 1) & VBA.vbNewLine

谢谢高手，太厉害了。

再麻烦一下，出现例如19个之类的自动换行，能否取消自动换行，让表格自动横扩，让文本每行完整展现，不换行。

lss001 · 发表于 2024-9-20 14:21

本帖最后由 lss001 于 2024-9-21 17:59 编辑

见楼下分析

zzpsx · 发表于 2024-9-20 14:27

lss001 发表于 2024-9-20 14:21
回车符替换为空，您测试一下看看

s = s & j & "." & Replace(arr(j - 1), Chr(13), "") & VBA.vbNewLi ...

请问这行代码加在什么位置？

lss001 · 发表于 2024-9-20 16:00

本帖最后由 lss001 于 2024-9-21 17:52 编辑

见楼下分析

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