麻烦大家都来看看啊~帮忙就有分

Question

我怎么样才能把宏中的num变量的数据写到数据库中？
这是vb的代码
Dim WordApp As Word.Application
        Dim WordDoc As Word.Document
        Set WordApp = CreateObject("Word.application")
        WordApp.Visible = False
        WordApp.Documents.Open "e:\testsystem\wordope.doc"
        WordApp.Run "project.NewMacros.JuZhong"
        WordApp.Documents.Close
        '连接access数据库
        Dim con As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        'On Error GoTo conerr
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\testsystem\hongjisuanfenshu.mdb;Persist Security Info=False"
        con.Open        Set rs = Nothing
        rs.Open "select * from fenshubiao", con, adOpenDynamic, adLockOptimistic, -1
        rs.MoveFirst
        num = rs("fenshu").Value
        rs.Update
        rs.Close
        con.Close
        MsgBox num
下面是宏的代码
Sub juzhong()
'
' juzhong Macro
' 宏在 2006-7-21 由 student 录制
'
    Selection.HomeKey Unit:=wdStory     '从头开始搜索
    If Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Then    '检测居中
    num = num + 1
    End If
    MsgBox num    'Selection.MoveRight Unit:=wdCharacter, Count:=53, Extend:=wdExtend   '检测是否是黑体
    If Selection.Font.Bold = -1 Then
    num = num + 1
    End If
    If Selection.Font.Size = 14 Then      '检测字体大小是否是14号
    num = num + 1
    End If
    MsgBox num
End Sub
请大家帮个忙，我还是个大一的初学者~~还请各位多多指教啊~~谢谢了

Answer 1

num是宏的一个过程的内部变量，你是得不到的。你可以把这个宏改写成你VB程序的一个文法，在打开Word.Document时，调用这个文法，即可得到Num值。

Answer 2

先在宏中将num输出到文件开头或者结尾,然后在语句WordApp.Documents.Close之前加上提取文字的代码就行了.

Answer 3

对了,在关闭WORD文件时不要存盘.

Answer 4

你可以把这个宏改写成你VB程序的一个文法，在打开Word.Document时，调用这个文法，即可得到Num值
当中的文法是要我定义一个过程么？还是要定义一个函数？
我刚学了不久vb还有许多不懂的
请指教

Answer 5

这是两个程序进程传递参数问题。在 Windows 中，进程内存是相互隔离的，因此不能直接传递。多种间接传递方法：
1 将 Num 写到数据库表中。
2 将 Num 写到任意一个文件中。
3 将 Num 写到注册表中。
  以上都用相应的方法读回参数。
4 将 Num 写到一个窗体控件中。主程序用 FindWindow 和 FindWindowEX 两个 API 取回参数。

Answer 6

我就是想将 Num 写到数据库表中。可是就是写不进去。。
我刚上大一不久学习VB3个星期。您能给个类似的代码看看么？谢谢了
将 Num 写到任意一个文件中这个我会。。可是这样的安全性是不是就有点不太高啊？
还是请您多多指教一下啊，谢谢了~~