在MS Word宏中保留文本框

Question

我在Word中有一个宏选择一堆文本框并将它们缩小到其原始大小的1％，以便有效地隐藏它们。然后另一个宏展开他们自己的100倍大小，以重新显示它们。

的2码为：

Sub ShrinkBox() 
    ActiveDocument.Shapes.Range(Array("Rectangle à coins arrondis 5", "Rectangle à coins arrondis 6")).Select 
    Selection.ShapeRange.ScaleHeight 0.01, msoFalse 
End Sub 

Sub ExpandBox() 
    ActiveDocument.Shapes.Range(Array("Rectangle à coins arrondis 5", "Rectangle à coins arrondis 6")).Select 
    Selection.ShapeRange.ScaleHeight 100, msoFalse 
End Sub 

这按理应该把他们带回正是因为他们开始了。然而，收缩它们，然后再扩大他们使他们在不同的位置比他们开始。收缩他们也无法隐藏在他们里面的文字，它通过某种类型的错误无论如何显示。

我已经包括了原来的状态，在收缩状态下，并重新展开状态的图像。

原文：

缩水：

决赛： 任何想法如何解决这一问题？

谢谢！

Answer 1

试试这个

Sub ShrinkBox() 
    ActiveDocument.Shapes.Range(Array("Rectangle à coins arrondis 5", "Rectangle à coins arrondis 6")).Visible = False 
End Sub 

Sub ExpandBox() 
    ActiveDocument.Shapes.Range(Array("Rectangle à coins arrondis 5", "Rectangle à coins arrondis 6")).Visible = True 
End Sub