VBA文本框中文字的居中！

konggs

原定义居中为：kgs.ThisDocument.CenterPara

现在，我想把文本框中的首行空二格，全格改为居中。即上面的centerpara（即改的居中命令）

不知如何做：

Sub GetAllText() Dim i As Shape, MyString As String With ActiveDocument For Each i In .Shapes Application.Run MacroName:="kgs.ThisDocument.CenterPara" Next End With End Sub

这个好像不行，请指点！

[此贴子已经被作者于2005-7-19 19:39:09编辑过]

守柔

孔兄，你怎么能这么编程呢？

konggs

不知道咋办，只能把两个一合！[em04][em04]，

请老大帮忙做一个。

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-7-19 18:01:42 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub GetAllText() Dim i As Shape, MyString As String '由于有多个文本框,应该禁用屏幕更新 Application.ScreenUpdating = False With ActiveDocument For Each i In .Shapes '直接作用于RANGE对象 i.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphCenter i.TextFrame.TextRange.ParagraphFormat.IndentFirstLineCharWidth (2) Next End With Application.ScreenUpdating = True End Sub '---------------------- 时间关系，如有不明，我晚上再来。

konggs

老大，

这个是i.TextFrame.TextRange.ParagraphFormat.IndentFirstLineCharWidth (2)

首行缩进2的意思吧，我不想要他，

居中我不想用wdAlignParagraphCenter，

而是用您上次我做的一个居中命令!

我想调用她，怎么办？

老大，指教！

[此贴子已经被作者于2005-7-19 19:56:53编辑过]

守柔

你把上次的那个发上来,我看一下,至少你应该先把文本框的文字SELECT了.

konggs

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-2 17:15:58 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Sub CenterPara() On Error Resume Next '忽略错误 Application.ScreenUpdating = False With Selection.ParagraphFormat '针对选定对象 .LeftIndent = 0 '删除左缩进 .RightIndent = 0 '删除右缩进 .FirstLineIndent = 0 '删除首行缩时 .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .Alignment = wdAlignParagraphCenter '段落居中 End With Application.ScreenUpdating = True

' 上面就是，但有时不好用，所以，我就给他运行两次。加了下面相同的代码 On Error Resume Next '忽略错误 Application.ScreenUpdating = False With Selection.ParagraphFormat '针对选定对象 .LeftIndent = 0 '删除左缩进 .RightIndent = 0 '删除右缩进 .FirstLineIndent = 0 '删除首行缩时 .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .Alignment = wdAlignParagraphCenter '段落居中 End With Application.ScreenUpdating = True End Sub

[此贴子已经被作者于2005-7-19 19:55:47编辑过]

守柔

孔兄,这个我想了一下,是应该行不通的.

APPLICATION.RUN相当于ALT+F8,运行宏命令.此命令中的有效宏,应该为活动文档，当前文档的模板、公用模板（NORMAL.DOT)和加载宏中方能有效,而如果仅仅是其它文档,应该是不行的.

你把路径改为如:"Normal.Module1.MAIN"试一下.

konggs

我换了一种思路，因为文本框中的样式是一样的，我用查找/替换，把样式替换一下（改为居中的样式，自己做的）。这样也行了。

虽然VBA我没成功，但还是谢谢老大。