VBA 改变第一段文字而不影响页面的排版

weiyingde

Sub 改第一段()
With ActiveDocument.Paragraphs(1)
       istr = .Range.Text
       .Range.Text = Left(istr, 8) & "[测试版]"
       .Format.Alignment = wdAlignParagraphCenter
       With .Range.Font
           .Bold = True
           .ColorIndex = Choose(Int(Rnd * 10 + 1), wdDarkBlue, wdBlack, wdBlue, wdBrightGreen, wdDarkRed, wdGray25, wdPink, wdTeal, wdViolet, wdGreen)
           .Name = Choose(Int(Rnd * 5 + 1), "华文隶书", "楷书", "方正姚体", "黑体", "华文新魏")
           .Size = 20
       End With
End With
End Sub

weiyingde

附件如，请大侠帮我一看

duquancai

weiyingde 发表于 2017-3-18 13:57
附件如，请大侠帮我一看

我就在你的代码基础上增加几句吧：

Sub 改第一段()
    Set rg = ActiveDocument.Paragraphs(1).Range
    rg.MoveEnd , -1: rg.InsertAfter vbCr
    With ActiveDocument.Paragraphs(1)
        istr = .Range.Text
        .Range.Text = Left(istr, 8) & "[测试版]"
        .Format.Alignment = wdAlignParagraphCenter
        With .Range.Font
            .Bold = True
            .ColorIndex = Choose(Int(Rnd * 10 + 1), wdDarkBlue, wdBlack, wdBlue, wdBrightGreen, wdDarkRed, wdGray25, wdPink, wdTeal, wdViolet, wdGreen)
            .Name = Choose(Int(Rnd * 5 + 1), "华文隶书", "楷书", "方正姚体", "黑体", "华文新魏")
            .Size = 20
        End With
    End With
End Sub

weiyingde

duquancai 发表于 2017-3-18 14:37
我就在你的代码基础上增加几句吧：

Sub 改第一段()

谢谢你，每有难题，都是你出手援助，除了感谢还是感谢！！

duquancai

weiyingde 发表于 2017-3-18 14:41
谢谢你，没有难题，都是你出手援助，除了感谢还是感谢！！

这代码不严谨，你测试一下附件看看 能不能居中？呵呵呵

weiyingde

duquancai 发表于 2017-3-18 14:57
这代码不严谨，你测试一下附件看看 能不能居中？呵呵呵

谢谢提醒，我测试没有问题。

weiyingde

duquancai 发表于 2017-3-18 14:57
这代码不严谨，你测试一下附件看看 能不能居中？呵呵呵

测试你给的这个确实不能居中，点按菜单上的左对齐，刚好居中。
这是什么原因呢？

weiyingde

duquancai 发表于 2017-3-18 14:57
这代码不严谨，你测试一下附件看看 能不能居中？呵呵呵

查了一下，原先有左缩进“9.75 厘米”。
加上一句，刚好满足要求：
.Format.LeftIndent = 0

weiyingde

duquancai 发表于 2017-3-18 14:37
我就在你的代码基础上增加几句吧：

Sub 改第一段()

又要麻烦你了，也是一个板式的问题。
http://club.excelhome.net/thread-1335783-1-1.html
有时间给我斧正一下。
先谢了。