[分享]文本框中部居中

守柔

文本框中部居中的一段小代码，这在绘图中很有用，注意，只适用于文本框！

以是以往的讨论:

http://club.excelhome.net/viewthread.php?tid=69376

以下代码供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-3-16 6:11:08 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub SetAutoSize() '文本框的中部居中命令 Dim i As Shape On Error GoTo SubExit If Selection.ShapeRange.Count < 1 Then SubExit: MsgBox "无效选定区域,本命令仅适用于文本框!", _ vbOKOnly + vbExclamation, "Microsoft Word" Exit Sub '退出过程 End If Application.ScreenUpdating = False For Each i In Selection.ShapeRange '在选定的图形区域中循环 If i.Type = msoTextBox Then '如果是文本框 i.TextFrame.AutoSize = True '尺寸为自动调整 ' 文字部分段落水平居中 i.TextFrame.TextRange.ParagraphFormat.Alignment = 1 End If Next Application.ScreenUpdating = True End Sub '----------------------如果您觉得很有用，可以将此段代码粘贴于NORMAL.DOT的THISDOCUMENT下,并如我的附件中一样,添加到右键中或者指定自定义键盘方案.

B8vdzLan.rar (12.31 KB, 下载次数: 50)

2005-3-16 06:13 上传

点击文件名下载附件
[分享]文本框中部居中

守柔

Not an unswer question .....

ssq1109

今天帮人整理一文档，其中文本框的内容排列不好看，偶然在坛上搜到此好帖，很好用，但有2个问题：

1．如原文本框中内容为两边分散对齐（即两边撑满），运行此宏后自动缩进了。当然再让其分散对齐并不难，但能否不出现此问题。

2．有的文本框中内容为竖排，希望也能实现横向居中，能否也实现。

如此，会更加圆满。

ifhwfu

不好理解！慢慢消化！

liujy

谢谢！我想用此功能已久矣，今日终于得见。谢谢守柔老大！！再次表示感谢！！！