Word中如何在指定位置插入对应的Excel表格数据
在VB6.0中,操作word,使用它强大的查找、替换、删除、复制、翦切功能。
还可以把特定字符替换成图片。
有了它你就可以使用数据库中的内容或图片文件替换word文件中的特定字符。
只要把下列内容复制到写字板中,另存为SetWord.cls文件,然后在把它添加到工程中,就可以使用了。
VERSION 1.0 CLASSBEGINMultiUse = -1 'TruePersistable = 0 'NotPersistableDataBindingBehavior = 0 'vbNoneDataSourceBehavior = 0 'vbNoneMTSTransactionMode = 0 'NotAnMTSObjectENDAttribute VB_Name = "SetWord"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = TrueAttribute VB_PredeclaredId = FalseAttribute VB_Exposed = FalsePrivate mywdapp As Word.ApplicationPrivate mysel As Object'属性值的模块变量Private C_TemplateDoc As StringPrivate C_newDoc As StringPrivate C_PicFile As StringPrivate C_ErrMsg As IntegerPublic 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 IntegerAttribute ReplacePic.VB_Description = "查找FindStr,并替换为PicFile所指向的图片文件,替换次数由time参数确定,为0时,替换所有"'********************************************************************************' 从Word.Range对象mysel中查找所有FindStr,并替换为PicFile图像' 替换次数由time参数确定,为0时,替换所有'********************************************************************************If Len(C_PicFile) = 0 ThenC_ErrMsg = 2Exit FunctionEnd IfDim i As IntegerDim findtxt As Booleanmysel.Find.ClearFormattingmysel.Find.Replacement.ClearFormattingWith mysel.Find.Text = FindStr.Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd Withmysel.HomeKey Unit:=wdStoryfindtxt = mysel.Find.Execute(Replace:=True)If Not findtxt ThenReplacePic = 0Exit FunctionEnd Ifi = 1Do While findtxtmysel.InlineShapes.AddPicture FileName:=C_PicFileIf i = Time Then Exit Doi = i + 1mysel.HomeKey Unit:=wdStoryfindtxt = mysel.Find.Execute(Replace:=True)LoopReplacePic = iEnd FunctionPublic Function FindThis(FindStr As String) As BooleanAttribute FindThis.VB_Description = "查找FindStr,如果模板中有FindStr则返回True"If Len(FindStr) = 0 ThenC_ErrMsg = 2Exit FunctionEnd Ifmysel.Find.ClearFormattingmysel.Find.Replacement.ClearFormattingWith mysel.Find.Text = FindStr.Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd Withmysel.HomeKey Unit:=wdStoryFindThis = mysel.Find.ExecuteEnd FunctionPublic Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0) As IntegerAttribute ReplaceChar.VB_Description = "查找FindStr,并替换为RepStr,替换次数由time参数确定,为0时,替换所有"'********************************************************************************' 从Word.Range对象mysel中查找FindStr,并替换为RepStr' 替换次数由time参数确定,为0时,替换所有'********************************************************************************Dim findtxt As BooleanIf Len(FindStr) = 0 ThenC_ErrMsg = 2RaiseEvent HaveErrorExit FunctionEnd Ifmysel.Find.ClearFormattingmysel.Find.Replacement.ClearFormattingWith mysel.Find.Text = FindStr.Replacement.Text = RepStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithIf Time > 0 ThenFor i = 1 To Timemysel.HomeKey Unit:=wdStoryfindtxt = mysel.Find.Execute(Replace:=wdReplaceOne)If Not findtxt Then Exit ForNextIf i = 1 And Not findtxt ThenReplaceChar = 0ElseReplaceChar = iEnd IfElsemysel.Find.Execute Replace:=wdReplaceAllEnd IfEnd FunctionPublic Function GetPic(PicData() As Byte, FileName As String) As BooleanAttribute GetPic.VB_Description = "把图像数据PicData,存为PicFile指定的文件"'********************************************************************************' 把图像数据PicData,存为PicFile指定的文件'********************************************************************************On Error Resume ...
如何把jpg照片插入word文档的指定位置
使用代码搜索 使用代码查找和替换单击“编辑”菜单中的“查找”或“替换”命令。
如果看不到“特殊字符”按钮,请单击“高级”。
在“查找内容”框中输入代码。
请执行下列操作之一: 若要从列表中选择代码,请单击“特殊字符”按钮,再单击所需字符,然后在“查找内容”框键入要查找的其他文字。
在“查找内容”框中直接键入代码。
例如,键入 ^p 来查找段落标记。
如果要替换该项,请在“替换为”框输入替换内容。
单击“查找下一处”、“替换”或者“全部替换”按钮。
按 Esc 可取消正在执行的搜索。
要查找和替换的项目的代码如上所述,一些代码只有在选中或清除“使用通配符”选项时才能使用。
可以在“查找内容”或“替换为”框中使用的代码若要指定:段落标记 ( ) 键入 ^p(选中“使用通配符”复选框时在“查找内容”框中无效)或键入 ^13制表符 ( ) 键入 ^t 或键入 ^9ASCII 字符 键入 ^nnn,其中 nnn 是字符代码ANSI character 键入 ^0nnn,其中 nnn 是字符代码长划线 ( — ) 键入 ^+短划线 ( – ) 键入 ^=脱字号 键入 ^^手动换行符 ( ) 键入 ^l 或键入 ^11分栏符 键入 ^n 或键入 ^14分页符或分节符 键入 ^12(替换时,插入分页符)手动分页符 键入 ^m(当选中“使用通配符”复选框时,还将查找或替换分节符)不间断空格 ( ) 键入 ^s 不间断连字符 ( ) 键入 ^~ 可选连字符 ( ) 键入 ^- 只能在“查找内容”框中使用的代码(选中“使用通配符”复选框时)图片或图形(仅嵌入) 键入 ^g只能在“查找内容”框中使用的代码(清除“使用通配符”复选框时)任意字符 键入 ^?任意数字 键入 ^#任意字 键入 ^$Unicode 字符 键入 ^Unnnn,其中“nnnn”是字符代码图片或图形(仅嵌入) 键入 ^1脚注标记 键入 ^f 或键入 ^2尾注标记 键入 ^e域 键入 ^d正在打开域大括号(当域代码可见时) 键入 ^19正在关闭域大括号(当域代码可见时) 键入 ^21批注 键入 ^a 或键入 ^5分节符 键入 ^b全角空格 (Unicode) 键入 ^u8195半角空格 (Unicode) 键入 ^u8194白色空格 键入 ^w(可以是常规空格、不间断空格以及制表符的任意组合)只能在“替换为”框中使用的代码 “Windows 剪贴板”的内容 键入 ^c“查找内容”框的内容 键入 ^& 注释 如果包含可选连字符代码,Word 只会找到在指定位置带有可选连字符的文字。
如果省略可选连字符代码,Word 将找到所有匹配的文字,包括带有可选连字符的文字。
如果要查找域,必须显示域代码 (域代码:为占位符文本,显示数据源的指定信息的显示位置;或者为生成字段结果的字段中的元素。
域代码包括字段字符、字段类型和指令。
)。
若要在显示域代码和域结果 (域结果:当 Microsoft Word 执行域指令时,在文档中插入的文字或图形。
在打印文档或隐藏域代码时,将以域结果替换域代码。
)之间切换,请单击该域,然后按 Shift+F9。
若要显示或隐藏文档中所有域的域代码,请按 Alt+F9。
在查找图形时,Word 只查找嵌入图形,而不能查找浮动图形。
在默认情况下,Word 将导入的图形作为嵌入图形插入,但是可以将浮动图形转换为嵌入图形。
如要查找使用 Unicode 值的字符,请选择“区分大小写”复选框。
如果清除“区分大小写”复选框,Word 将搜索该值指定的所有大写字符和小写字符的实例。
哪位能把下面关于Word习题的答案提供给我?1.中文Word编辑
你好,你题的答案是:1C 2B 3D 4A 5C 6B 7B 8B 9A 10B 11C 12C 13B 14B 15C 16C 17C 18D 19C 20C 21B 22B 23C 24B 25C 26B 27D 28C 29C 30D 31B 32A 33C 34C 35B 36B 37B 38B 39A 40D 41A 42D 43D 44A 45B 46A 47D 48D 49C 50A 51B 52B 53C 54D 55D 56C 57C 58B 59A 60B 61C 62D 63A 64C 65A 66D 67D 68B 69A 70A 71A 72C 73A 74A 75A 76C 77D 78B 79B 80C 81A 82C 83D 84B 85D 86C 87D 88B 89B 90A
各位帮帮忙word知识不明白, 请教啊!
1、CTRL+↑2、1/72英寸顺便找的题目,希望对你有帮助!单选1. 在Word的编辑状态下打开了一个文档,对文档没作任何修改,随后单击Word主窗口标题栏右侧的“关闭”按钮或单击“文件”菜单中的“退出”命令,则( )。
A)仅文档窗口被关闭 B)文档和Word主窗口全被关闭C)仅Word主窗口被关闭 D)文档和Word主窗口都没关闭答案:B2. 在Word的编辑状态,打开了“W1. DOC”文档,若要将经过编辑后的文档以“W2.DOC”为名存盘,应当执行“文件”菜单中的命令是( )。
A)保存 B)另存为HTML C)另存为 D)版本答案:C3. 在Word编辑状态下,对当前文档中的文字进行替换操作,应当使用的菜单是( )。
A)“工具”菜单 B)“文件”菜单 C)“视图”菜单 D)“编辑”菜单答案:D4. 下列选项中不能用于启动Word的操作是( )。
A)双击Windows桌面上的Word快捷方式图标B)单击“开始”→“程序”→“Microsoft Word”C)单击任务栏中的Word快捷方式图标 D)单击Windows桌面上的Word快捷方式图标答案:D5. 在Word编辑状态下,如果要在当前窗口中隐藏(或显示)格式工具栏,应选择的操作是( )。
A)单击“工具”→“格式” B)单击“视图” →“格式”C)单击“视图”→“工具栏”→“格式”D)单击“编辑”→“工具栏”→“格式”答案:C6. 在Word编辑状态下绘制图形时,文档应处于( )。
A)普通视图 B)主控文档 C)页面视图 D)大纲视图答案:C7. 在Word中( )。
A)既可以建立一空表格,再往表格里填入内容,也可以将现有的文本转换成表格B)只可以建立一空表格,再往表格里填入内容,不可以将现有的文本转换成表格C)不可以建立一空表格,再往表格里填入内容,但可以将现有的文本转换成表格D)既不可以建立一个空表格,再往表格里填入内容,也不可以将现有的文本转换成表格答案:A8. 在Word的编辑状态下,编辑文档中的A2,应使用“格式”菜单中的命令是( )。
A)字体 B)段落 C)文字方向 D)组合字符答案:A9. 立即运行Word,下列操作( )是错误的。
A)在WIN98桌面,单击“Microsoft Word”图标(快捷方式),再回车B)在WIN98桌面,双击“Microsoft Word”图标C)在“开始”按钮下的“程序”菜单中,单击“Microsoft Word”图标D)将“Microsoft Word中文版 ”程序项图标拖曳到“启动组” 答案:D10. 欲将Word窗口的宽度和高度同时放大或缩小,下列( )操作是正确的。
A)拖曳上或者下边框到新位置B)拖曳左或者右边框到新位置C)沿非水平及非垂直方向,拖曳窗口的四个角之一到新位置D)拖曳标题栏到一新位置 答案:C11. 关闭Word窗口,下列( )操作是错误的。
A)双击窗口左上角的控制按钮 B)选择“文件”菜单中的“退出”命令C)按Ctrl+F4键 D)按Alt+F4键 答案:C12. 关闭Word文档1(活动窗口)而不退出Word ,下列操作中,( )是错误的。
A)双击文档1窗口左上角的控制按钮(当文档1窗口最大化时,该按钮在“菜单栏”左侧)B)选择“文件”菜单中的“关闭”命令C)按Ctrl+F4键 D)Alt+F4键 答案:D13. 下面关于Word标题栏的叙述中,错的是( )。
A)双击标题栏,可最大化或还原Word窗口B)拖曳标题栏,可将最大化窗口拖到新位置C)拖曳标题栏,可将非最大化窗口拖到新位置D)Word标题栏显示所运行的软件名称Microsoft Word及其所打开的文档名称 答案:B14. Word文档的默认扩展名是______。
A) DOC B) DOT C) DAT D) WPS 答案:A15. Word“段落”是按_______键产生的。
A)回车 B)Shift+回车 C)Ctrl+回车 D)Alt+回车 答案:A16. 欲换行而又不想开始一个新的段落,应按_______键。
A)回车 B)Shift+回车 C)Ctrl+回车 D)Alt+回车 答案:B17. Word会自动分页和自动换行,因此输入过程中不必留意。
若有特殊要求需另起一页,应按__________键。
A)回车 B)Shift+回车 C)Ctrl+回车 D)Alt+回车 答案:C18. 下列关于工具栏的叙述中,______是正确的。
A)常用工具栏可以关闭,格式工具栏不可关闭 B)常用工具栏不能关闭,格式工具栏可以关闭C)常用工具栏不能关闭,格式工具栏也不能关闭D)常用工具栏可以关闭,格式工具栏也可以关闭 答案:D19. 有人说,双击工具栏两个按钮之间的空白处或工具栏中非按钮处(如按钮外侧空白处),将使该工具栏“浮动”,此时您可以将此栏(实际为窗口)拖曳到Word窗口的任一位置。
这句话是_____A)正确的 B)不正确的 C)不完全正确,因为不能拖曳它 D)不完全正确,因为格式工具栏不可能“浮动” 答案: A20. 在输入Word文档过程中,为了防止意外而不使文档丢失,Word设置了自动保存功能,欲使自动保存时间间隔为10分钟,应________进行设置。
A)选择“视图”菜单中的“工具”命令B)选择“文件”菜单中的“另存为”命令,再单击“选项”按钮C)选择“文件”菜单中的“保存”命令,再单击“确定”按钮D)按Ctrl+S键并回车 答案:B21. 在Word中,一个半角字符占据_________个汉字的显示位置。
A)1 B)2 C)0.5 D)4 答案:C22. 在中文输入状态,当Caps Lock指示灯...
要将Word文档中一部分选定的文字移动到指定的位置上去,对它进行...
你需要解决两个问题。
1、待更改的文件应该是以“块”状形式写入的,比如fwrite((void *)student stu,sizeof(student),1L,fp);,只有这样才能准确定位待更改“块”的位置。
而以fprintf()写入的文件,可能由于数据的不同,每个结构数据占用的空间就不同,即使你能准确定位,但写入新数据后,若长度短了,剩余的空间可能造成混乱,若长度长了,可能造成”覆盖“。
2、打开文件同时用于”读/写“时,打开的格式是"r+"或”w+“。
另外,还需要搞清楚文件读写指针的使用特点,前两个问题解决后再讨论。
...
转载请注明出处51数据库 » c word 指定位置