如何使各行后面都写满，而不是回车符？
时间：2011-04-28
来源：互联网
PDF文件转换成word文件后，文字只能在word中一边显示，一半浪费了，如果一个个调整很麻烦，相信有更快的操作方式，求各位帮帮忙
附件.rar(8.79 KB)
附件
附件.rar(8.79 KB)
2011-4-28 20:53, 下载次数: 11
作者: huixing_09 发布时间: 2011-04-28
查找替换是可以完成的
作者: ggsmart 发布时间: 2011-04-28
谢谢你，问题说漏了，除此之外还要不让各段连在一起，即各段还是独立的（段前本身有缩进）
作者: huixing_09 发布时间: 2011-04-28
用基本操作好像有点困难，可以试试代码
复制内容到剪贴板
Application.ScreenUpdating = False
Dim i%
For i = Paragraphs.Count To 2 Step -1
With Paragraphs(i)
If PointsToInches(.LeftIndent) < 0.2 Then
Range(.Range.Start - 1, .Range.Start).Delete
ElseIf PointsToInches(.LeftIndent) < 0.5 Then
.LeftIndent = 0
.FirstLineIndent = InchesToPoints(0.29)
End If
End With
Next
Application.ScreenUpdating = True
End Sub
代码:
Sub my_test()Application.ScreenUpdating = False
Dim i%
For i = Paragraphs.Count To 2 Step -1
With Paragraphs(i)
If PointsToInches(.LeftIndent) < 0.2 Then
Range(.Range.Start - 1, .Range.Start).Delete
ElseIf PointsToInches(.LeftIndent) < 0.5 Then
.LeftIndent = 0
.FirstLineIndent = InchesToPoints(0.29)
End If
End With
Next
Application.ScreenUpdating = True
End Sub
作者: honggexjq 发布时间: 2011-04-28
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
