新年的大问题啦：：：有关宏的问题××××××××××8

Question

我在 VB 中操作打开一篇 WORD 文档，怎样将一段宏代码让 WORD 来执行啊。宏代码是不是可以单独存为文件，让 WORD 来调用执行啊

Answer 1

'引用word 10.0
'功能,加载一篇WORD 文档，执行文档中的一段宏代码Private Sub Command1_Click()
    Dim WordTemps As New Word.Application
    WordTemps.Documents.Add App.Path + "\含有宏.doc", False
    WordTemps.Run MacroName:="你的宏名"
    WordTemps.Visible = True
End Sub

Answer 2

就是说宏代码必须包含于 WORD 文档中啦

Answer 3

其实你可以在文档的VisualBasicEditor编辑器中导入文本的方式，插入你其它文件中的宏
然后在按照上面的方法运行没有必要每次打开文档再插入宏这样吧

Answer 4

Excel电子表格软件是应用最广泛的软件之一，它的数据处理、图表功能及各种函数和工具深受广大用户的喜爱。Excel文件是一个工作薄，一个工作薄最多可以包含255个工作表，每个工作表又可以包含大量的数据。　　Excel的强大优势还在于它提供的宏语言Visual Basic for Application(VBA).Visual Basic是windows环境下开发应用软件的一种通用程序设计语言，功能强大，简便易用。VBA是它的一个子集，可以广泛地应用于Microsoft公司开发的各种软件中，例如Word、Excel、Access等。　　那么，"宏"到底是什么呢？　　在Excel 97中，"宏"是一个难以理解的概念，但对于一个具体的"宏"而言，却是容易理解的，如果说"将一块文字变为注释：黑体注释：，字号为注释：三号注释："就可以看作一个"宏"的话，那么"宏"就不难理解了，其实Excel 97中的许多操作都可以是一个"宏"。　　"记录宏"其实就是将工作的一系列操作结果录制下来，并命名存储（相当于VB中一个子程序）。在Excel 97中，"记录宏"仅记录操作结果，而不记录操作过程。例如，改变文字字体时，需要打开"字体"栏中的下拉列表，再选择一种字体，这时文字即变为所选择的字体，这是一个过程，结果是将所选择的文字改变为所选择的字体。而"记录宏"则只记录"将所选择的文字改变为所选择的字体"这一结果。　　Excel 97中工作表是由行和列组成的二维表格，我们可以通过系统提供的语句activesheet.cells(I,j)，将当前工作表中的第I行第j列所在的单元格中的数据取出（也可将它数据填入到指定的单元格中），然后反把它放入所定义的数组中，这时就可以对其进行各种操作，如求平均分、总分、分数段人数等等。　　本人就利用Excel 97中所提供的宏功能来做学生成绩的分析处理程序。本程序是Excel中的一个文件，其中包含以下几个宏：分班、总分、平均分、分数段、删除等。　　说明：⑴本程序是以本校高三理科班学生成绩进行分析。　　　　　⑵有关程序中用到的几具宏的功能说明：　　分班：针对于难以确定班级的情况下，以班为单位进行分班，本宏可以作为高一新生入学时进行分班的功能。　　总分：对原始的成绩自动求总分。　　平均分：对原始的成绩以班为单位进行各学科平均成绩的计算及全校各学科成绩的计算。　　分数段：给定一个最高分数及最低分数，然后统计出各班各个分数段的人数，各分数段人数进行累计。　　删除：用于删除不用的工作表。　　现将各个宏的代码列举如下：　　⑴分班　　Sub 分班()
　Const studentno = 191 注释：学生人数
　Const zdno = 12 注释：字段数
　Dim zd$(zdno) 注释：定义为12个字段的数组
　Dim a(studentno, zdno), stu(60, zdno)
　Dim nam$(studentno), bjname$(60) 注释：定义一个存放全校学生名字及各班学生名字的数组
　Dim bj(studentno) 注释：定义存放班级的一个数组
　注释：理科班工作表
　Sheets("高三理").Select
　For i = 2 To studentno
　　bj(i) = ActiveSheet.Cells(i, 1)
　　nam$(i) = ActiveSheet.Cells(i, 2)
　　For j = 3 To zdno
　　　a(i, j) = ActiveSheet.Cells(i, j)
　　Next j
　Next i
　注释：存放字段到数组中。
　For i = 1 To zdno
　　zd$(i) = ActiveSheet.Cells(1, i)
　Next i
　注释：先建立各个班级的工作表
　Sheets("高三理").Select
　Sheets("高三理").Copy After:=Sheets("分数段")
　Sheets("高三理 (2)").Select
　Sheets("高三理 (2)").Name = "33"
　For i = 2 To studentno
　　For j = 1 To zdno
　　　ActiveSheet.Cells(i, j) = Space$(1)
　　Next j
　Next i
　Range("a1").Select
　For i = 1 To zdno
　　ActiveSheet.Cells(1, i) = zd$(i)
　Next i
　注释：34到36班工作表的建立
　For i = 34 To 36
　　x$ = Mid$(Str(33), 2)
　　Sheets(x$).Select
　　Sheets(x$).Copy After:=Sheets("分数段")
　　Sheets(x$ + " (2)").Select
　　Sheets(x$ + " (2)").Name = Mid$(Str(i), 2)
　Next i
　注释：具体分班。
　For k = 33 To 36
　　bjrs = 0
　　x$ = Mid$(Str(k), 2)
　　no = k Mod 10
　　Sheets(x$).Select
　　For i = 2 To studentno
　　　If bj(i) = no Then
　　　　bjrs = bjrs + 1
　　　　bjname$(bjrs) = nam$(i)
　　　　For j = 3 To zdno
　　　　　stu(bjrs, j) = a(i, j)
　　　　Next j
　　　End If
　　Next i
　　For i = 2 To bjrs
　　　ActiveSheet.Cells(i, 1) = no
　　　ActiveSheet.Cells(i, 2) = bjname$(i)
　　　For j = 3 To zdno
　　　　ActiveSheet.Cells(i, j) = stu(i, j)
　　　Next j
　　Next i
　Next k
End Sub　　⑵总分
　Const studentno = 190
　Const xknum = 6
　Const zdnum = 12
　Sheets("高三理").Select
　For i = 2 To studentno + 1
　　Sum = 0
　　For j = 1 To xknum
　　　Sum = Sum + ActiveSheet.Cells(i, j + 3)
　　Next j
　　ActiveSheet.Cells(i, zdnum-1) = Sum
　Next i
End Sub
　　⑶平均分
Sub 平均分()
　Const studentno = 190
　Const xknum = 6
　Dim fs(studentno, xknum), pjf3(4, 6), bjrs(4), qxpjf(6)
　Dim bj(studentno)
　Sheets("高三理").Select
　注释：以下程序段用于求全校平均分
　For i = 1 To studentno
　　bj(i) = ActiveSheet.Cells(i + 1, 1)
　　For j = 1 To xknum
　　　fs(i, j) = ActiveSheet.Cells(i + 1, j + 3)
　　Next j
　Next i
　For i = 1 To xknum
　　Sum = 0
　　For j = 1 To studentno
　　　Sum = Sum + fs(j, i)
　　Next j
　　qxpjf(i) = Sum / (j - 1)
　Next i
　注释：以下程序段用于求各班平均分
　For j = 1 To 4
　　For i = 1 To studentno
　　　If bj(i) = j + 2 Then
　　　　bjrs(j) = bjrs(j) + 1
　　　　For k = 1 To xknum
　　　　　pjf3(j, k) = pjf3(j, k) + fs(i, k)
　　　　Next k
　　　End If
　　Next i
　Next j
　For j = 1 To 4
　　For i = 1 To 6
　　　pjf3(j, i) = pjf3(j, i) / bjrs(j)
　　Next i
　Next j
　注释：写入各班各科平均分
　Sheets("平均分").Select
　For i = 1 To 4
　　For j = 1 To 6
　　　ActiveSheet.Cells(i + 2, j + 1) = pjf3(i, j)
　　Next j
　Next i
　注释：写入全校各科平均分
　i = 7
　For j = 1 To 6
　　ActiveSheet.Cells(i, j + 1) = qxpjf(j)
　Next j
End Sub⑷分数段
Sub 分数段()
　Const max = 600
　Const min = 390
　Const studentno = 190
　Const bjnum = 4
　Const fsdnum = 22
　Dim bjfsd(bjnum, fsdnum), zf(studentno, 2)
　Sheets("高三理").Select
　For i = 1 To studentno
　　zf(i, 1) = ActiveSheet.Cells(i + 1, 1) 注释：存放班级
　　zf(i, 2) = ActiveSheet.Cells(i + 1, 11) 注释：存放总分
　Next i 　For i = 1 To studentno
　　For j = 1 To 4 注释：3---6班共4个班级
　　　If zf(i, 1) = j + 2 Then
　　　　For k = max To min Step -10
　　　　　low = Int((max + 10 - k) / 10)
　　　　　If zf(i, 2) > k Then bjfsd(j, low) = bjfsd(j, low) + 1
　　　　Next k
　　　End If
　　Next j
　Next i
　Sheets("sheet3").Select
　For i = 3 To 6
　　For k = 1 To fsdnum
　　　ActiveSheet.Cells(i, k + 1) = bjfsd(i - 2, k)
　　Next k
　Next i
　Range("M3:W6").Select
　Selection.Cut
　ActiveWindow.LargeScroll ToRight:=-1
　Range("B8").Select
　ActiveSheet.Paste
End Sub
　　⑸ 删除Sub 删除()
　　Sheets("33").Select
　　ActiveWindow.SelectedSheets.Delete
　　Sheets("34").Select
　　ActiveWindow.SelectedSheets.Delete
　　Sheets("35").Select
　　ActiveWindow.SelectedSheets.Delete
　　Sheets("36").Select
　　ActiveWindow.SelectedSheets.Delete
End Sub

Answer 5

或者换个提法：
    我怎样在 VB 中操作，向 NORMAL 模板中插入我自定义的宏代码啊。。好像有点象宏病毒的概念啦。。哈哈

Answer 6

'设置宏安全性----可靠来源------VB项目的访问(可用改注册表的方法）
'引用WORD
'引用Microsoft Visual Basic for Applications Extensibility 5.3
Private Sub Command1_Click()
Dim wd As Word.Application
Dim md As VBComponent
Set wd = New Word.Application
wd.Documents.Add
Set md = wd.VBE.VBProjects("normal").VBComponents.Add(vbext_ct_StdModule)
md.CodeModule.AddFromString "Sub test()" & Chr(10) & "msgbox ""OK""" & Chr(10) & "End Sub"
wd.Visible = True
End Sub

Answer 7

谢啦,知道 VBE 的概念啦..^_^