word公式的使用

gongda2006

大家好，请教的问题在图片上，谢谢大家！

我的情况为word表格为固定的模板，前面4列都固定，
第5、6列由我来填入，而第5、6列内容有相关性，因此希望第6列内容能自动出来。
我这模板有几十页，而且每页的格式不一样，感觉插入excel工作表有些不方便。

gongda2006

期待大家的帮助呀

zhanglei1371

gongda2006 发表于 2014-11-3 09:22
期待大家的帮助呀

一看就是新手提问，连附件都不上。一般我不会回答，不过出于对域的兴趣，就回答下，给你个参考，能否看懂及如何变化，自己去想：
Public WithEvents app As Application
Private Sub Document_New()
    Set app = Application
End Sub

Private Sub Document_Open()
    zjyty01
    Set app = Application
End Sub
Private Sub app_WindowSelectionChange(ByVal Sel As Selection)
    zjyty02
End Sub
Sub zjyty01()    '增加域通用
Application.ScreenUpdating = False
    Dim ta1 As Table, r1() As Range, r2() As Range
    Set ta1 = ActiveDocument.Tables(1)
    For i = 2 To ta1.Columns(6).Cells.Count
        ReDim Preserve r1(i), r2(i)
        Set r2(i) = ta1.Columns(6).Cells(i).Range
        r2(i).Select
        Selection = ""
        Selection.MoveLeft
        Application.Run "insertfieldchars"
        Selection.TypeText "if "
        Application.Run "insertfieldchars"
        Selection.InsertAfter "_BKta15" & i
        Selection.MoveRight , 3
        Selection.InsertAfter " = " & Chr(34) & "一" & Chr(34) & " " & Chr(34) & "一" & Chr(34) & " " & """ 河北"""
    Next
     ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
     ActiveDocument.Fields.Update
     Application.ScreenUpdating = 1
End Sub
Sub zjyty02()    '增加域通用
    Dim ta1 As Table, r1() As Range, r2() As Range
    Set ta1 = ActiveDocument.Tables(1)
    For i = 2 To ta1.Columns(6).Cells.Count
        ReDim Preserve r1(i), r2(i)
        Set r1(i) = ta1.Columns(5).Cells(i).Range
        r1(i).SetRange r1(i).Start, r1(i).End - 1
        ActiveDocument.Bookmarks.Add "_" & "BK" & "ta15" & i, r1(i)
    Next
    ActiveDocument.Fields.Update示例附件：
VBA自动填表测试.rar (13.49 KB, 下载次数: 29)

2014-11-3 21:34 上传

点击文件名下载附件

gongda2006

谢谢 zhanglei1371 的帮助，
我的问题在第1楼，谢谢你！

周星骋

楼主牛头不对马嘴。
说你请求别人帮助，不该不上附件（Word文档，压缩成RAR上传）。
你却说问题在1楼。

谁都看得出你的问题在1楼。

3楼大侠给你的是高端用法。

楼主为何不在Excel里做，大不了在Word里插入Excel工作表也行。
难道楼主不知道Word表格的长处是格式，Excel工作表的长处是公式？
见附件，双击表格看效果，你别告诉我你电脑里没安装Excel：
附件.rar (12.96 KB, 下载次数: 23)

2014-11-4 11:50 上传

点击文件名下载附件

gongda2006

谢谢帮助和提醒呀，我原以为上传成功了，刚才仔细看了竟然没有上传成功。  刚刚补充了附件。

gongda2006

因为我的情况为word表格为固定的模板，前面4列的内容都固定，
第5、6列由我来填入，而第5、6列内容有相关性，因此希望第6列内容能自动出来。
我这模板有几十页，而且每页的格式不一样，感觉插入excel工作表有些不方便。

yryxqg

用文字型窗体域好像也可以。