【更新完毕】用VBA代码写嵌套域的方法简化

x332553761

正要学习域  感谢~！

dongdonggege

loquat 发表于 2014-4-24 09:21
简化一下：

“嵌套域1”比较适合我，第一个好像内层的出不来，我也模仿为“多重嵌套域”，与“照片域'内似，改写了，虽然不成功，可能学的不像。谢谢楼主！

1. Sub 多重嵌套域()
   
2. Dim aField As Field, bField As Field
   
3. Dim aRange As Range
   
4. Set aField = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False)
   
5. Set bField = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False)
   
6. Set cField = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False)
   
7. With ActiveDocument
   
8.     Set aRange = aField.Code
   
9.     .Range(aRange.Start, aRange.Start).Text = "INCLUDEPICTURE"
   
10.     .Range(aRange.End, aRange.End).Text = "\d \* MERGEFORMAT "
    
11.     Set bRange = bField.Code
    
12.     .Range(bRange.Start, bRange.Start).Text = " IF TRUE"
    
13.     Set cRange = cField.Code
    
14.     .Range(cRange.Start, cRange.Start).Text = "MERGEFIELD ""C:\\Users\\lenovo\\Desktop\\psb1.jpg"""
    
15. End With
    
16. 'aField.Update
    
17. 'bField.Update
    
18. 'cField.Update
    
19. End Sub

复制代码

dongdonggege

平行并排域：（名词不对，是那个意思）

1. Sub 平行域()
   
2. Dim aField As Field, bField As Field
   
3. Dim aRange As Range
   
4. Set aField = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False)
   
5. Selection.MoveRight Unit:=wdCharacter, Count:=2
   
6. Set bField = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False)
   
7. With ActiveDocument
   
8.     Set aRange = aField.Code
   
9.     .Range(aRange.Start, aRange.Start).Text = "INCLUDEPICTURE"
   
10.     .Range(aRange.End, aRange.End).Text = "\d \* MERGEFORMAT "
    
11.     Set bRange = bField.Code
    
12.     .Range(bRange.Start, bRange.Start).Text = " IF TRUE"
    
13. End With
    
14. 'aField.Update
    
15. 'bField.Update
    
16. End Sub

复制代码

时空管家

loquat 发表于 2014-4-24 13:58
搞定收工

非常感谢您提供的方法，但是如果要将嵌套域写入word文档的表格单元格中该如何修改？

loquat

时空管家 发表于 2018-9-14 08:42
非常感谢您提供的方法，但是如果要将嵌套域写入word文档的表格单元格中该如何修改？

参考7楼8楼，对着range写

时空管家

loquat 发表于 2018-9-16 11:51
参考7楼8楼，对着range写

按照您的代码更改后可以使用，但是如果改到cell(1,2)就出错了，麻烦帮忙看看什么问题，先谢过了。
Sub test()
    Dim aRange As Range, aField As Field
    Application.ScreenUpdating = False
    Set aRange = ActiveDocument.Content.Tables(1).Cell(1, 1).Range
    aRange.MoveEnd , -1
    Set aField = aRange.Fields.Add(aRange, wdFieldEmpty, "INCLUDEPICTURE  ""D:\\记录卡照片[url=]\\\\\\[/url] (1).jpg""  \* MERGEFORMAT", False)
    aRange.SetRange 32, 34  '取aRange对象的第3到第3位作为新的aRange对象
    Set bField = aRange.Fields.Add(aRange, wdFieldEmpty, "REF MaterCode \h", False)
    aRange.SetRange 30, 32  '取aRange对象的第3到第3位作为新的aRange对象
    Set bField = aRange.Fields.Add(aRange, wdFieldEmpty, "REF MaterCode \h", False)
    aRange.SetRange 28, 30  '取aRange对象的第3到第3位作为新的aRange对象
    Set bField = aRange.Fields.Add(aRange, wdFieldEmpty, "REF EquipName \h", False)
    Application.ScreenUpdating = True
End Sub

时空管家

时空管家 发表于 2018-9-17 09:42
Sub test()
    Dim aRange As Range, aField As Field
    Application.ScreenUpdating = False

按照您的代码更改后可以使用，但是如果改到cell(1,2)就出错了，麻烦帮忙看看什么问题，先谢过了。

weiyingde

loquat 发表于 2014-4-24 13:58
搞定收工

非常好的资料，值得好好读一读

ammyc

好好学习，天天向上