求Microsoft Office Home and student 2010的激活密钥,一定要能用...

建议安装专业版的吧，家庭版的限制较多。

网上有专业版下载，能正常升级，安装也方便。

自己随便选一个下载就行： JUJU猫WINXP精简克隆二合一旧机优化版[集成到0607月底所有补丁] 纯净版XP克隆美化系统2.0（免激活）[集成到0608月底补丁] 电脑城装机版4.0[集成0608月底所有补丁] WIN2003 SP1克隆美化版3.0[集成到0609月底所有补丁] WINXPSP2家庭美化版3.0.a[集成到0609月底所有补丁] Ghost Winxp2 Y2.0 装机版（有集成软件） Ghost Winxp2 En英文版 Ghost Winxp2 国庆版Y1.85 GHOST WIN2000 Po SP4 Y1.5[集成到0604月底所有补丁] 番茄花园 Windows XP SP2 美化版

Microsoft Office2007 home and student 序列号

每页一个：---------------------------------------------Sub aa()myPath = ＂D:\temp\＂Selection.HomeKey Unit:=wdStorySet myRange = Selection.Rangecurpage = 0Application.ScreenUpdating = FalseDoprepage = curpagepagenum = pagenum + 1Set myRange = myRange.GoToNext(What:=wdGoToPage)curpage = myRange.Startendpage = myRange.Previous.End "StartIf curpage = prepage Then _endpage = ActiveDocument.Content.EndActiveDocument.Range(prepage, endpage).CopyWith Documents.Add.Content.Paste.SaveAs myPath & ＂Page＂ & pagenum & ＂.doc＂.CloseEnd WithIf curpage = prepage Then Exit DoLoopApplication.ScreenUpdating = TrueEnd Sub---------------------------------------------------如按10页分，改动如下，依次类推：pagenum = pagenum + 10

用VB如何在WORD指定位置上插入文字？

在VB6.0中，操作word，使用它强大的查找、替换、删除、复制、翦切功能。

还可以把特定字符替换成图片。

有了它你就可以使用数据库中的内容或图片文件替换word文件中的特定字符。

只要把下列内容复制到写字板中，另存为SetWord.cls文件，然后在把它添加到工程中，就可以使用了。

VERSION 1.0 CLASS BEGIN MultiUse = -1 "True Persistable = 0 "NotPersistable DataBindingBehavior = 0 "vbNone DataSourceBehavior = 0 "vbNone MTSTransactionMode = 0 "NotAnMTSObject END Attribute VB_Name = ＂SetWord＂ Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Private mywdapp As Word.Application Private mysel As Object"属性值的模块变量 Private C_TemplateDoc As String Private C_newDoc As String Private C_PicFile As String Private C_ErrMsg As Integer Public Event HaveError() Attribute HaveError.VB_Description = ＂出错时激发此事件.出错代码为ErrMsg属性＂"***************************************************************"ErrMsg代码：1-word没有安装 2 - 缺少参数 3 - 没权限写文件" 4 - 文件不存在""*************************************************************** Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As Integer Attribute ReplacePic.VB_Description = ＂查找FindStr，并替换为PicFile所指向的图片文件，替换次数由time参数确定，为0时，替换所有＂"********************************************************************************" 从Word.Range对象mysel中查找所有FindStr，并替换为PicFile图像" 替换次数由time参数确定，为0时，替换所有"******************************************************************************** If Len(C_PicFile) = 0 Then C_ErrMsg = 2 Exit Function End If Dim i As Integer Dim findtxt As Boolean mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) If Not findtxt Then ReplacePic = 0 Exit Function End If i = 1 Do While findtxt mysel.InlineShapes.AddPicture FileName:=C_PicFile If i = Time Then Exit Do i = i + 1 mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) Loop ReplacePic = i End Function Public Function FindThis(FindStr As String) As Boolean Attribute FindThis.VB_Description = ＂查找FindStr，如果模板中有FindStr则返回True＂ If Len(FindStr) = 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory FindThis = mysel.Find.Execute End Function Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0) As Integer Attribute ReplaceChar.VB_Description = ＂查找FindStr，并替换为RepStr，替换次数由time参数确定，为0时，替换所有＂"********************************************************************************" 从Word.Range对象mysel中查找FindStr，并替换为RepStr" 替换次数由time参数确定，为0时，替换所有"******************************************************************************** Dim findtxt As Boolean If Len(FindStr) = 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = RepStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With If Time > 0 Then For i = 1 To Time mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=wdReplaceOne) If Not findtxt Then Exit For Next If i = 1 And Not findtxt Then ReplaceChar = 0 Else ReplaceChar = i End If Else mysel.Find.Execute Replace:=wdReplaceAll End If End Function Public Function GetPic(PicData() As Byte, FileName As String) As Boolean Attribute GetPic.VB_Description = ＂把图像数据PicData，存为PicFile指定的文件＂"********************************************************************************" 把图像数据PicData，存为PicFile指定的文件"*********************************************...

【word光标】做word文档时怎样让光标跳到指定位置

移动光标至文档开始 Selection.HomeKey unit:=wdStory 下面的供参考： Sub MoveToCurrentLineStart（) "移动光标至当前行首 Selection.HomeKey unit:=wdLine End Sub Sub MoveToCurrentLineEnd（) "移动光标至当前行尾 Selection.EndKey unit:=wdLine End Sub Sub SelectToCurrentLineStart（) "选择从光标至当前行首的内容 Selection.HomeKey unit:=wdLine, Extend:=wdExtend End Sub Sub SelectToCurrentLineEnd（) "选择从光标至当前行尾的内容 Selection.EndKey unit:=wdLine, Extend:=wdExtend End Sub Sub SelectCurrentLine（) "选择当前行 Selection.HomeKey unit:=wdLine Selection.EndKey unit:=wdLine, Extend:=wdExtend End Sub Sub MoveToDocStart（) "移动光标至文档开始 Selection.HomeKey unit:=wdStory End Sub Sub MoveToDocEnd（) "移动光标至文档结尾 Selection.EndKey unit:=wdStory End Sub Sub SelectToDocStart（) "选择从光标至文档开始的内容 Selection.HomeKey unit:=wdStory, Extend:=wdExtend End Sub Sub SelectToDocEnd（) "选择从光标至文档结尾的内容 Selection.EndKey unit:=wdStory, Extend:=wdExtend End Sub Sub SelectDocAll（) "选择文档全部内容（从WholeStory可猜出Story应是当前文档的意思） Selection.WholeStory End Sub Sub MoveToCurrentParagraphStart（) "移动光标至当前段落的开始 Selection.MoveUp unit:=wdParagraph End Sub Sub MoveToCurrentParagraphEnd（) "移动光标至当前段落的结尾 Selection.MoveDown unit:=wdParagraph End Sub Sub SelectToCurrentParagraphStart（) "选择从光标至当前段落开始的内容 Selection.MoveUp unit:=wdParagraph, Extend:=wdExtend End Sub Sub SelectToCurrentParagraphEnd（) "选择从光标至当前段落结尾的内容 Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend End Sub Sub SelectCurrentParagraph（) "选择光标所在段落的内容 Selection.MoveUp unit:=wdParagraph Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend End Sub Sub DisplaySelectionStartAndEnd（) "显示选择区的开始与结束的位置，注意：文档第1个字符的位置是0 MsgBox （＂第＂ & Selection.Start & ＂个字符至第＂ & Selection.End & ＂个字符＂） End Sub Sub DeleteCurrentLine（) "删除当前行 Selection.HomeKey unit:=wdLine Selection.EndKey unit:=wdLine, Extend:=wdExtend Selection.Delete End Sub Sub DeleteCurrentParagraph（) "删除当前段落 Selection.MoveUp unit:=wdParagraph Selection.MoveDown unit:=wdParagraph, Extend:=wdExtend Selection.Delete End Sub

如何在线打开word文档并高亮显示指定关键字

Sub a_dele_little_picture()On Error Resume NextSelection.HomeKey wdStory "光标移到最前面。

Dim iShape1 As Shape "图片全部修改为嵌入式For Each iShape1 In ActiveDocument.ShapesiShape1.ConvertToInlineShapeNextDim myInlineShape As InlineShapeFor Each myInlineShape In ActiveDocument.InlineShapes "缺少FOR循环If myInlineShape.Width If myInlineShape.Height Next "缺少FOR循环End Sub