运行自动命名后，为什么在字符间距会改变？？？

ldl---

字符间距原是66%，修改文件号后，运行宏字符间距会变为100%，版本office2016

413191246se

楼主，你追加一句代码即可：（第1段落字符缩放为 66%）
    ActiveDocument.Paragraphs(1).Range.Font.Scaling = 66

ldl---

413191246se 发表于 2019-9-5 14:11
楼主，你追加一句代码即可：（第1段落字符缩放为 66%）
    ActiveDocument.Paragraphs(1).Range.Font.Sca ...

谢谢，我是想弄清楚是什么原因？？？

ldl---

ldl--- 发表于 2019-9-5 16:27
谢谢，我是想弄清楚是什么原因？？？

加这句，运行后再关闭，又会出现烦人的保存对话框，如不保存，再打开还是变回100%，另外，每天处理很多文件，文件头缩放都不一样。所以找出原因才是上策，难道是版本问题？

ldl---

确实是版本问题，2013没有此问题，但问题出在哪呢？

413191246se

楼主，建议按 F8 逐行调试查找原因（另外，你是用我的《发文字号》代码吗？如果不是，你用的是什么代码？）

ldl---

我发有附件的，之前用的2010没问题，2013、2016都有问题，时间长了好像是用了你的代码嫁接的。

ldl---

Sub 自动命名()
    Dim t1$, t2$
    Dim x As Integer
    With ActiveDocument
        If .Bookmarks.Exists("文号") And .Bookmarks.Exists("标题") Then
            t1 = .Bookmarks("文号").Range.Text
            t2 = .Bookmarks("标题").Range.Text
            fs = GetName(t1 & "：" & t2)
            x = MsgBox("是否将文件另存为：" & fs & "?", 4)
            If x = 7 Then Exit Sub
            .SaveAs .Path & "\" & fs & ".docx"
        End If
    End With
End Sub

Function GetName(ByVal aStr As String) As String
    Dim ErrArray() As Variant, oArray As Variant
    ErrArray = Array("", "/", "*", ":", "?", "<", ">", "|", """", Chr$(7), Chr$(8), Chr$(9), Chr$(10), Chr$(11), Chr$(13))
    For Each oArray In ErrArray
        aStr = Replace(aStr, oArray, "")
    Next
        GetName = LTrim(aStr)
End Function

ldl---

.SaveAs .Path & "\" & fs & ".docx"运行到最后句这变了，帮看看什么问题？

413191246se

楼主，你提供的代码，我看不懂！——请问：你要达到的目的是什么呢？比如：给文件加发文字号？
——请说说你想要进行什么操作，想要达到什么目的，举例说明，或上附件。