[求助]VBA 域

junzlan

錄得如下添加域的宏代碼：

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "INCLUDETEXT D:\A10251.doc Abstract", PreserveFormatting:=True

可以運行，但是當用以下VBA代碼向表格單元格中添加時就不可以了，如何做到？

For N = 1 To 8 Activedocument.Tables(N).Cell(1, 1).Select Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "INCLUDETEXT D:\A10251.doc Abstract", PreserveFormatting:=True Selection.InsertAfter N Next N

守柔

请参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-11 15:40:28 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim i As Byte, FieldInsertRange As Range With ActiveDocument For i = 1 To 8 Set FieldInsertRange = .Range(.Tables(i).Cell(1, 1).Range.Start, .Tables(i).Cell(1, 1).Range.Start) .Fields.Add FieldInsertRange, wdFieldIncludeText, """D:\\200581195524297\\102511.doc""" & " CaseName", True Next End With End Sub '----------------------

junzlan

Thanks very much

後來我想到直接運行與選中單元格再運行之區別應該是光標的問題，經測試，在插入之前用以下代碼就可以了： Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ strPath & " CaseName", PreserveFormatting:=True