请教:自动转换域

hao123

“会务组成员/考务组成员/后勤组成员/接待组成员”

 

 

上述文字先手工选定,然后如何通过VBA宏自动转换为下面域的形式？（根据“/”分隔字段，可能超过四个，括号右边的行根据“/”隔开的字段数自动生成。

以前在哪看到过，不过找不到了？请高手赐教。
 

另外原来那个好象有个BUG：即选择时很可能多选择了后面的回车符而导致域出错。

    域代码:

  
 

效果图

[此贴子已经被作者于2007-1-27 16:33:02编辑过]

konggs

自己写啊。随手写了一个：

Sub 临时()
    Dim astring As String
    astring = Replace(Selection.Text, Chr(13), "")
    astring = Replace(Selection.Text, "/", ",")
    Selection.Text = ""
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
   Selection.TypeText Text:="EQ \B\lc\{(\a(" & astring & "))"
   ActiveWindow.View.ShowFieldCodes = False
End Sub

hao123

好象不行,当每个字段有上\下标格式时就丢失了原有格式

守柔

QUOTE:

以下是引用hao123在2007-1-27 20:51:03的发言：
好象不行,当每个字段有上\下标格式时就丢失了原有格式

您提问时可以说得更清楚一些.

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-1-29 6:55:59
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0147^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub Sample()
    Dim myRange As Range
    With Selection
        If .Type = wdSelectionIP Then Exit Sub
        Set myRange = .Range
        myRange.Find.Execute findtext:="/", replacewith:=",", Replace:=wdReplaceAll
        Set myRange = .Range
        myRange.InsertBefore "EQ \B\lc\{(\a("
        myRange.InsertAfter "))"
        myRange.Select
        Application.Run "InsertFieldChars"
        .Fields.Update
    End With
End Sub
'----------------------