图形改名，但不能提取原名？

gao2ming1

为什么窗体里的文本框不能用代码赋值？

我的代码是TextBox1.Text = “物理”

但运行时还是空的。

g5MpsIu3.rar (8.61 KB, 下载次数: 8)

2007-5-14 17:00 上传

点击文件名下载附件
图形改名，但不能提取原名？

[此贴子已经被作者于2007-5-14 17:02:15编辑过]

chylhr

怀疑是根本没有运行这句代码.请在这个代码上设置断点,再运行,看看中断是否停留在此代码上.

konggs

Sub 旧式窗体()
    '窗体域中循环
    Dim youText As FormField
    For Each youText In ActiveDocument.FormFields
        If youText.TextInput = True Then
           youText.Result = "窗体文本框"
        End If
    Next
End Sub

Sub 旧式控件()
    '控件
    ThisDocument.TextBox1.Text = "控件文本框"
   
End Sub

'2007新增的两个文本控件
Sub 格式文本()
    '格式文本可以在这个控件中放很多内容，包括插入图片等
    Dim myControl As ContentControl
    Dim myRange As Range
    For Each myControl In ActiveDocument.ContentControls
        If myControl.Type = wdContentControlRichText Then
            myControl.Range.Text = "2007格式文本控件"
            myControl.Range.Font.Color = wdColorBlack
            Set myRange = ActiveDocument.Range(myControl.Range.Start, myControl.Range.Start + 4)
            myRange.Font.Color = wdColorRed
        End If
    Next
End Sub

Sub 纯文本()
    '纯文本相当于就是只能按文本，仅字体大小，字号等都是一致的
    Dim myControl As ContentControl
    Dim myRange As Range
    For Each myControl In ActiveDocument.ContentControls
        If myControl.Type = wdContentControlText Then
            myControl.Range.Text = "2007纯文本内容控件"
            myControl.Range.Font.Color = wdColorBlack
            Set myRange = ActiveDocument.Range(myControl.Range.Start, myControl.Range.Start + 4)
            myRange.Font.Color = wdColorBlue
        End If
    Next
End Sub

gao2ming1

kong兄，我还是没能成功，我这宏能改名但不能提取原来图形的名字，能否帮忙修改？谢谢

守柔

QUOTE:

以下是引用gao2ming1在2007-5-14 17:03:56的发言：
kong兄，我还是没能成功，我这宏能改名但不能提取原来图形的名字，能否帮忙修改？谢谢

大哥，您这是跟我们玩什么把戏啊？晕死我了。

请参：

Private Sub CommandButton1_Click()
    On Error Resume Next
    If Me.TextBox1.Text = "" Then Exit Sub
    xm = TextBox2.Text
    Selection.ShapeRange(1).Name = xm
    Unload txgm
End Sub

Private Sub CommandButton2_Click()
    Unload txgm
End Sub
Private Sub UserForm_Initialize()
    On Error Resume Next
    Me.TextBox1.Text = Selection.ShapeRange(1).Name
End Sub

Sub 图形改名()
    txgm.Show
End Sub
按各位位置复制以上代码即可。

gao2ming1

对不起了，初学vba，真的不懂

[此贴子已经被作者于2007-5-14 18:05:27编辑过]