求助VBA代码

l3736 · 发表于 2023-7-3 17:43

求助：我下载的账单流水日期和时间连在一起，想在WORD文档用VBA把日期和时间用空格分开, 求助VBA代码

日期时间金额
2023-6-2619:25 8
2023-6-2619:35 0.88
2023-6-2719:40 0.01
2023-6-2720:08 0.68
2023-6-2722:45 288
2023-6-2723:14 12
2023-6-2823:42 488
2023-6-2800:25 189
2023-6-2900:42 149
2023-6-2902:10 299
2023-6-3002:31 299
2023-6-3002:47 299
2023-6-3003:02 149

l3736 · 发表于 2023-7-3 17:45

因为数量太多，想在每行的第5个字符后加一个空格

杨建营 · 发表于 2023-7-3 17:46

l3736 发表于 2023-7-3 17:45
因为数量太多，想在每行的第5个字符后加一个空格

楼主需要上附件啊

l3736 · 发表于 2023-7-3 18:34

求助在日期和时间之间插入空格的发VBA 代码

ssfx1982 · 发表于 2023-7-3 19:00

拷贝到excel里用分列命令或使用Left，Right之类的函数处理下即可。

l3736 · 发表于 2023-7-3 20:30

ssfx1982 发表于 2023-7-3 19:00
拷贝到excel里用分列命令或使用Left，Right之类的函数处理下即可。

我还是想在WOrd里用VBA整理，

gwjkkkkk · 发表于 2023-7-3 21:04

请参考。word宏。。。

l3736 · 发表于 2023-7-4 13:15

gwjkkkkk 发表于 2023-7-3 21:04
请参考。word宏。。。

不知道哪里出了问题，运行之后，日期2023年，只有第一行是正确的，后面的全变成了023开头。

杨建营 · 发表于 2023-7-5 09:49

本帖最后由杨建营于 2023-7-5 09:56 编辑

l3736 发表于 2023-7-4 13:15
不知道哪里出了问题，运行之后，日期2023年，只有第一行是正确的，后面的全变成了023开头。

把gwjkkkkk老师的代码加了一个判断，请楼主参考。

liucf · 发表于 2023-7-5 10:35

Sub AD()
With ActiveDocument
For Each P In .Paragraphs
T = P.Range.Text
If IsNumeric(Left(T, 8)) And Len(T) > 10 Then P.Range.Text = Left(T, 8) & " " & Mid(T, 9)
Next
End With
End Sub

复制代码

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

[求助] 求助VBA代码

评分