帮我插入竖排文本框或图形：框小、字大、居中

weiyingde

要求：
1、插入竖排文本框或图形。
2、确保框外框和文字之间的距离近，字能满格。
3、确保框内文字正正规规的居中。
效果图：



并看一看我插入的图形，帮我修改一下：

cuanju

以下代码基本可做到外框和文字之间的距离近，框内文字居中。其他需求的代码，请各位高手继续完善。
=============================
Sub s1()
    '批量修改word文本框格式
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each oShp In ActiveDocument.Shapes
        With oShp.TextFrame.TextRange
            '.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
            .ParagraphFormat.DisableLineHeightGrid = -1 '取消对齐到文档网格
            With .ParagraphFormat
                .CharacterUnitFirstLineIndent = 0
                .FirstLineIndent = 0
                .CharacterUnitLeftIndent = 0
                .LeftIndent = 0
                .CharacterUnitRightIndent = 0
                .RightIndent = 0
                .Alignment = wdAlignParagraphCenter '居中
            End With
        End With
        With oShp.TextFrame
            .MarginTop = CentimetersToPoints(0) '文本框内部边距0
            .MarginBottom = CentimetersToPoints(0)
            .MarginLeft = CentimetersToPoints(0)
            .MarginRight = CentimetersToPoints(0)
            .VerticalAnchor = msoAnchorMiddle '文本框内文本中部对齐
        End With
    Next
    Application.ScreenUpdating = True
End Sub

cuanju

当出现文字和边框不能紧密贴合现象后，文本框的内部边距都要用代码改为0。

weiyingde

cuanju 发表于 2020-3-8 13:41
当出现文字和边框不能紧密贴合现象后，文本框的内部边距都要用代码改为0。

首先感谢，我在测试，有问题再请教。

weiyingde

cuanju 发表于 2020-3-8 13:41
当出现文字和边框不能紧密贴合现象后，文本框的内部边距都要用代码改为0。

经测试，效果非常好好，非常感谢。

weiyingde

cuanju 发表于 2020-3-8 13:41
当出现文字和边框不能紧密贴合现象后，文本框的内部边距都要用代码改为0。

若是把这些图形用代码组合起来，怎么实现？
自我解决：
ActiveDocument.Shapes.SelectAll
Selection.ShapeRange.Group

wdpfox

word 2016运行代码一半死掉

weiyingde

wdpfox 发表于 2020-3-9 06:56
word 2016运行代码一半死掉

我用的是2010，请问，为什么？

wdpfox

weiyingde 发表于 2020-3-10 08:41
我用的是2010，请问，为什么？

不知道原因。

weiyingde

wdpfox 发表于 2020-3-11 15:47
不知道原因。

这说明程序非常占内存