word中会计借贷格式

重远

要整一本会计方面的书，里面很多借贷，象图片这样的应该怎样用vba调整成图片下方的格式

vbee

1. Sub vbee()
   
2. For i = 1 To ActiveDocument.Sentences.Count
   
3. For j = 1 To ActiveDocument.Sentences(i).Characters.Count
   
4.    If ActiveDocument.Sentences(i).Characters(j) Like "#" Then
   
5.      ActiveDocument.Sentences(i).Characters(j).InsertBefore vbTab
   
6.      Exit For
   
7. End If
   
8. Next
   
9. Next
   
10. End Sub
    

复制代码

重远

vbee 发表于 2018-10-5 13:55

非常感谢vbee，
还是有点问题，这个刚才试了下，好像只能实现数字的右对齐。

vbee

1. Sub vbee2()
   
2. On Error Resume Next
   
3. For i = 1 To ActiveDocument.Sentences.Count
   
4.     If JD = 1 Then ActiveDocument.Sentences(i).Characters(1).InsertBefore vbTab
   
5.     If JD = 2 Then ActiveDocument.Sentences(i).Characters(1).InsertBefore vbTab
   
6.     If JD = 2 Then ActiveDocument.Sentences(i).Characters(2).InsertBefore vbTab
   
7. For j = 1 To ActiveDocument.Sentences(i).Characters.Count
   
8.     If ActiveDocument.Sentences(i).Text Like "*借：*" Then JD = 1
   
9.     If ActiveDocument.Sentences(i).Text Like "*贷：*" Then JD = 2
   
10.     If ActiveDocument.Sentences(i + 1).Text Like "*借：*" Then JD = 0
    
11.     If ActiveDocument.Sentences(i).Characters(j) Like "#" Then
    
12.     ActiveDocument.Sentences(i).Characters(j).InsertBefore vbTab
    
13.     Exit For
    
14.     End If
    
15. Next
    
16. Next
    
17. End Sub
    
18. 
    

复制代码

重远

vbee 发表于 2018-10-6 12:52

谢谢vbee
就是执行代码后，不是借贷行的数字前也会插入table符号，不是借贷内容的其他段落前也会插入table符号
能否只在借贷的内容格式，其他段落的格式不变

ming0018

楼主能不能把问题一次性说完，人家已经给你解了两个问题了，那么如果第三个问题解决了，会不会有第四个问题？第五六七八个。。。。。。。

zpy2

排版量大还是html方便，或者LaTeX

重远

ming0018 发表于 2018-10-8 11:22
楼主能不能把问题一次性说完，人家已经给你解了两个问题了，那么如果第三个问题解决了，会不会有第四个问题 ...

嗯，是我的原因，第一次发图发的不够全面。谢谢提醒

重远

zpy2 发表于 2018-10-8 11:42
排版量大还是html方便，或者LaTeX

html或者LaTex不会用啊
就是想着能否用word做成一个宏，自动处理这样格式的文件。
自己刚开始看vba，不好学呢

gbgbxgb

代码逻辑混乱，懒得再想了，试试吧。

详情见附件。

楼主说附件中无VBA代码模块，故删除。