word中如何添加域[已解决]

llww7779 · 发表于 2013-1-16 09:45:12

本帖最后由 llww7779 于 2013-1-17 09:49 编辑

问题如上，

$oDoc.Tables($i).Cell($j, 1).Range.Text = ""
                $oDoc.Tables($i).Cell($j, 1).Range.Select
                $oDoc.application.Selection.TypeText("本资料清单第  ")

                $oDoc.application.Fields.Add($oWordApp.ActiveDocument.Selection.Range,"wdFieldEmpty","PAGE  ",True)
                ;上边这句无法执行
                $oDoc.application.Selection.TypeText("  页  共  ")

                $oDoc.parent.application.Selection.Fields.Add($oDoc.Selection.Range,"wdFieldEmpty","NUMPAGES   ",True)
                ;上边这句也无法执行
                
                $oDoc.application.Selection.TypeText ( "  页  ")

llww7779 · 发表于 2013-1-16 11:14:55

顶一顶！！！

kevinch · 发表于 2013-1-16 12:12:27

$word=ObjCreate("word.application")
$word.visible=True
$doc=$word.documents.add
$doc.range.text="test "&@CRLF&"OK"
$word.application.selection.fields.add($doc.range(5,5),31,'DATE \@ "ddd，MMM d"')

小例子，插入域的时候要指定对应的参数，包括域位置及类型

kevinch · 发表于 2013-1-16 12:55:52

上传一份域应用的相关资料供参考

llww7779 · 发表于 2013-1-16 13:12:18

谢谢！非常感谢！

llww7779 · 发表于 2013-1-17 09:37:51

终于弄好了，单元格定位真是不容易啊！
$oDoc.Tables($i).Cell($j, 1).Range.Text = ""
$oDoc.Tables($i).Cell($j, 1).Range.Select

$oDoc.application.Selection.TypeText("本资料清单第  ")
$myRange = $oDoc.Tables($i).Cell($j, 1).Range
$myRange.SetRange($myRange.End - 1, $myRange.End - 1)

$oWordApp.application.Selection.Fields.Add($myRange,33,"PAGE  ",True)

$oDoc.application.Selection.TypeText("  页  共  ")

$myRange = $oDoc.Tables($i).Cell($j, 1).Range
$myRange.SetRange($myRange.End - 1, $myRange.End - 1)
$oWordApp.application.Selection.Fields.Add($myRange,26,"NUMPAGES ",True)

$oDoc.application.Selection.TypeText ( "  页  ")

llww7779 · 发表于 2013-1-17 09:42:29

$myRange.SetRange($myRange.End - 1, $myRange.End - 1)中 $myRange.End - 1是为了去掉表格的制表符，也就是横线或竖线占位，虽然只有1个字节，但是无法输入啊！

		自动登录	找回密码
密码			加入

[AU3基础] word中如何添加域[已解决]

相关帖子

本帖子中包含更多资源