求VBA代码实现word段落对齐功能

wdpfox · 发表于 2019-5-28 16:12

本帖最后由 wdpfox 于 2019-5-28 16:13 编辑

求VBA代码实现word段落对齐功能，见下图所示第1段的对齐方式，先谢过：

413191246se · 发表于 2019-5-29 00:15

楼主，不必用 VBA，只须选定某些段落，按工具栏上的“编号”按钮即可达到目的（自动编号悬挂缩进）。

wdpfox · 发表于 2019-5-29 14:39

本帖最后由 wdpfox 于 2019-5-29 22:23 编辑

413191246se 发表于 2019-5-29 00:15
楼主，不必用 VBA，只须选定某些段落，按工具栏上的“编号”按钮即可达到目的（自动编号悬挂缩进）。

Thanks a lot. Because sth. wrong with my pc., I couldn't type Chinese. Pardon.

daibao88 · 发表于 2019-5-29 15:19

Sub vb()
Dim myrange As Range
If Selection.Type = wdSelectionIP Then Exit Sub
Set myrange = Selection.Range
myrange.Expand wdParagraph
With myrange.ParagraphFormat
      .SpaceBefore = 0
      .SpaceAfter = 0
      .CharacterUnitLeftIndent = 2
      .CharacterUnitRightIndent = 0
      .CharacterUnitFirstLineIndent = -2
End With
End Sub

wdpfox · 发表于 2019-5-29 22:22

明天在单位试试，谢谢！

wdpfox · 发表于 2019-5-31 10:13

daibao88 发表于 2019-5-29 15:19
Sub vb()
Dim myrange As Range
If Selection.Type = wdSelectionIP Then Exit Sub

试验成功，多谢老师慷慨分享好资料！
　　　　　　Oooo
　　　　　　(___)
　　oooO 　 )_/
　　(___) 　 (_/
　　 \_(
　　　\_)

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

[求助] 求VBA代码实现word段落对齐功能