我比较苯，搞了一下午，都搞不出来，帮帮我啊！

smart1078 · 发表于 2004-10-15 17:28

Private Sub UserForm_Initialize() Set ZJList = ActiveDocument.Tables(1) Me.Cmb_ZhongJie.Clear For i = 2 To ZJList.Rows.Count Me.Cmb_ZhongJie.AddItem ZJList.Rows(i).Cells(1).Range.Text Next i Me.Cmb_ZhongJie.Value = Me.Cmb_ZhongJie.List(0) End Sub

我想知道怎么去掉XX房产后面的那个小东西，不知道怎么去调！急啊！

[此贴子已经被作者于2004-10-15 17:30:34编辑过]

守柔 · 发表于 2004-10-15 17:34

单元格（CELL)的range属性中包括一个段落标记(CHR(13)),必须予以去除,你自己想一下应该如做?

守柔 · 发表于 2004-10-15 19:20

Private Sub UserForm_Initialize() Dim zjlist As Table, i As Byte, Rg As String, Rc As Integer With ActiveDocument Set zjlist = .Tables(1) Rc = zjlist.Rows.Count For i = 2 To Rc Rg = .Range(zjlist.Cell(i, 1).Range.Start, zjlist.Cell(i, 1).Range.End - 1) Me.Cmb_ZhongJie.AddItem Rg Next i Me.Cmb_ZhongJie.Value = Me.Cmb_ZhongJie.List(0) End With End Sub

		自动登录	找回密码
密码			免费注册