请问如何使EXCEL中的数据传递到书签中？

thumbring · 发表于 2007-6-9 17:02

我在word中的某些位置设置了一些书签，

在excel中我想用VBA的办法使表格中指定的数据传递到word中的相关书签中。请问该如何写代码？

      Dim ws As Worksheet
      Dim wd As New Word.Application
    wd.Selection.GoTo wdGoToBookmark, , , "查获日期"
      wd.Selection.TypeText ws.Cells(2, 11)

为什么以上代码只能引用一次书签？
我在word好几处地方设置了“查获日期”这个书签，但只是最后一处的“查获日期”书签才引用了ws.cells(2,11)的值，其他几处都是空白。

8TVeJrOe.rar (23.79 KB, 下载次数: 30)

[此贴子已经被作者于2007-6-10 14:36:14编辑过]

守柔 · 发表于 2007-6-10 06:58

QUOTE:

以下是引用thumbring在2007-6-9 17:02:22的发言：

我在word中的某些位置设置了一些书签，

在excel中我想用VBA的办法使表格中指定的数据传递到word中的相关书签中。请问该如何写代码？

      Dim ws As Worksheet
      Dim wd As New Word.Application
    wd.Selection.GoTo wdGoToBookmark, , , "邮政编码"
      wd.Selection.TypeText ws.Cells(2, 2)

为什么以上代码只能引用一次书签？
我在word好几处地方设置了“邮政编码”这个书签，但只是最后一处的“邮政编码”书签才引用了ws.cells(2,2)的值，其他几处都是空白。

这个代码感觉有问题啊。

wd 是Word.Application,wd.Document呢？

建议直接上传您的Excel和你设置有书签文档上来。

另外，同一文档中只能有一个相同书签名，如果其他地方需要引用这个书签值，请使用REF域。

thumbring · 发表于 2007-6-10 08:52

我已经将附件上传了，请版主指点。

守柔 · 发表于 2007-6-10 12:06

QUOTE:

以下是引用thumbring在2007-6-10 8:52:14的发言：
我已经将附件上传了，请版主指点。

以下代码供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-6-10 12:00:20
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0227^The Code CopyIn [Excel]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub 按钮30_单击()
    Dim ws As Worksheet
    Dim i As Long
    Dim myRange As Range, C As Range
    Dim wd As New Word.Application, wdDoc As Word.Document
    Set ws = ThisWorkbook.Worksheets("案件表")
    Set myRange = ws.[A65536].End(xlUp)
    Set myRange = ws.Range(ws.[A2], myRange)
    For Each C In myRange
        Set wdDoc = wd.Documents.Add(ThisWorkbook.Path + "\行政管理局.doc", False)
        With wdDoc.Bookmarks
            .Item("负责人").Range.Text = C.Offset(, 1).Value
            .Item("性别").Range.Text = C.Offset(, 3).Value
            .Item("住址").Range.Text = C.Offset(, 4).Value
            .Item("电话").Range.Text = C.Offset(, 6).Value
            .Item("邮政编码").Range.Text = C.Offset(, 7).Value
            .Item("案发地").Range.Text = C.Offset(, 8).Value
            .Item("项目").Range.Text = C.Offset(, 9).Value
            .Item("查获日期").Range.Text = C.Offset(, 10).Value
        End With
        wdDoc.SaveAs ThisWorkbook.Path & "\abc\" & C.Row & ".doc"
        wdDoc.Close
    Next
    wd.Quit
End Sub
'----------------------

thumbring · 发表于 2007-6-10 14:35

谢谢版主的指点。
可是excel中的值只能传递一次给书签的。

如例子中的word有两处地方用到了“查获日期”这个书签，但是值只传递给了第一个书签。第二个书签我用了{REF 查获日期}似乎也没有用。不知道为何？

守柔 · 发表于 2007-6-10 15:12

QUOTE:

以下是引用thumbring在2007-6-10 14:35:14的发言：

谢谢版主的指点。
可是excel中的值只能传递一次给书签的。

如例子中的word有两处地方用到了“查获日期”这个书签，但是值只传递给了第一个书签。第二个书签我用了{REF 查获日期}似乎也没有用。不知道为何？

更新域了没有？全选后按下F9试一下。如果行，再在代码中加上。

thumbring · 发表于 2007-6-10 17:39

不行，烦请版主再指点。

我将生成的文件和原始文件都上传。

bqa0Wtgj.rar (29.7 KB, 下载次数: 29)

守柔 · 发表于 2007-6-11 06:31

QUOTE:

以下是引用thumbring在2007-6-10 17:39:26的发言：

不行，烦请版主再指点。

我将生成的文件和原始文件都上传。

lIdfDaeh.rar (37.16 KB, 下载次数: 63)

thumbring · 发表于 2007-6-11 06:50

感谢版主百忙之中的指点，谢谢。

thumbring · 发表于 2007-6-12 13:21

版主，还有几个问题无法解决。

1、书签设置条件的问题。例子中“性别”的书签，有两个值（M或F）可选，选M时在word中显示“男”，选F时在word中显示“女”。但是，我按照http://club.excelhome.net/viewthread.php?tid=245270&px=0的两种办法都不行：插入“性别”书签在word中显示的依旧是“M”，而非期望的“男”。

2、用书签实现我的目标似乎并不合适。版主所说的“quote空域”不知道如何操作。我找了网上的资料，几乎没有，加之本人愚钝，望版主指点。

谢谢。

EiFsbn4A.rar (19.44 KB, 下载次数: 31)

		自动登录	找回密码
密码			免费注册

请问如何使EXCEL中的数据传递到书签中？

浏览过的版块