请教word日期排版问题

loyual

为了排版美观，设置的VBA程序，想把最后一行日期往左边移动6个字符（空格）。实际结果却与预定效果偏差太大，求高手指导。

     ActiveDocument.Paragraphs.Last.Range.Select '选中倒数第一段（日期行）
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight '设置文本为右对齐
    Selection.EndKey unit:=wdStory '光标移至文尾
    Selection.TypeText Text:="        " '插入6个空格



先插入空格，后插入空格，都无法得到预定效果。

cuanju

选中最后一行日期段落，然后运行代码，
========================================
Sub d()
Rem 选中段落自动调整落款位置
    i = Selection.Paragraphs(1).Range.ComputeStatistics(wdStatisticWords) '统计字数
    With Selection.ParagraphFormat
        .CharacterUnitFirstLineIndent = 0
        .FirstLineIndent = 0
        .CharacterUnitLeftIndent = 0
        .LeftIndent = 0
        .LeftIndent = CentimetersToPoints(0)
        .CharacterUnitRightIndent = 0
        .RightIndent = 0
        .Alignment = wdAlignParagraphCenter
    End With
    With Selection.ParagraphFormat
        If i <= 15 Then
            .CharacterUnitFirstLineIndent = 12.5 '首行缩进12.5字符
        Else
            .CharacterUnitFirstLineIndent = 27.5 - i
        End If
    End With
End Sub

loyual

还请高手赐教：自动选择倒数第一段后，找不到指定对象或者不能运行。本人菜鸟……
Sub d()
    ActiveDocument.Paragraphs.Last.Range.Select '选中倒数第一段
    i = Selection.ParagraphFormat.ComputeStatistics(wdStatisticWords) '统计字数
    With Selection.ParagraphFormat
        .CharacterUnitFirstLineIndent = 0
        .FirstLineIndent = 0
        .CharacterUnitLeftIndent = 0
        .LeftIndent = 0
        .LeftIndent = CentimetersToPoints(0)
        .CharacterUnitRightIndent = 0
        .RightIndent = 0
        .Alignment = wdAlignParagraphCenter
    End With
    With Selection.ParagraphFormat
        If i <= 15 Then
            .CharacterUnitFirstLineIndent = 12.5 '首行缩进12.5字符
        Else
            .CharacterUnitFirstLineIndent = 27.5 - i
        End If
    End With
End Sub

loyual

重复发了，取消……

wdpfox

这种对齐方式个人认为不太美观。

We meet by chance like patches of drifting duckweed,  
May everything be fine with you everyday !
  （你我萍水相逢，愿君一切安好！）

shenjianrong163

通过右缩进来控制最后一段：

1. Sub test()
   
2.     Dim p&
   
3.     With ActiveDocument
   
4.         p = .Paragraphs.Count
   
5.         .Paragraphs(p).RightIndent = CentimetersToPoints(1.8)
   
6.     End With
   
7. End Sub

复制代码