蒋-校长
vb里如何实现word文档的预览功能？
展开全部 VB中的几种打印方法 1. 采用Visual Basic 提供的简单打印函数PrintForm 方法。
应用程序窗体的PrintForm 方法时，Visual Basic 把窗体的位图送到当前打印机。
该方法的优点在于它几乎不需要任何编程，但也有很大缺陷。
最为突出的是当低分辨率图形在高分辨率打印机上打印时，其结果令人无法满意，会产生锯齿。
下面代码将在打印机上打印窗体。
Private Sub Command1_Click（) ' 用PrintForm 打印 Me.PrintForm ' 打印窗体的可见区域 End Sub 2. 用Printer 对象进行高分辨率输出。
但要想产生复杂的打印输出，编程较为烦琐。
Printer 对象代表系统缺省的打印机，Printer 对象支持许多由窗体和图形框所支持的属性和方法，三种对象都有画线和画方框。
应用程序可用以下代码在Printer 对象上画出一平方英寸的方框。
它离左上角二英寸。
注意：打印机以twips 来测量距离。
每英寸有1440 个twips。
Printer.Line(2 *1440,2 *1440) -Step(1440,1440), ,B 打印机、从窗体和图形框都有Circle、PaintPicture、Print、Pset、TextHeight、TextWidth 方法。
使用这些方法，应用程序可以为打印机生成高分辨率输出。
打印文本直接用Print 方法，见下列代码： Printer.Print ＂Hello,China ComputerWorld！＂ ' 打印字符串 Printer 对象还有一些窗体和图形框都没有方法： NewPage 告诉打印机，程序对当前输出页的发送已经结束，Printer 对象应开始新的一页。
EndDoc 告诉VB，程序创建文档结束，VB 应将它发送到物理打印机上打印。
KillDoc 取消当前打印作业。
应用程序应该终止由EndDoc 和KillDoc 所设定的每个打印作业。
Zoom 属性用于定义打印输出的缩放因子。
Copies 属性用于定义打印的副本数目。
3. 采用直接将数据传送打印机的方法进行打印输出。
有两种方法将数据送往打印机。
第一种是用Print #方法，就像将数据写入一个文件一样。
另一种方法写端口，但不是送文本，而是送特定的PCL 语言，PCL 表示打印控制语言，它是一种特殊语言，用转义代码来控制打印机的具体动作。
因为此方法太烦琐，本文不做太多介绍。
4. 如果你在编程时用到了RichTextBox 控制，那么你可以使用该控件的SelPrint 方法来打印，使用非常简单。
下面一段代码即用RichTextBox 控件的SelPrint 方法来完成打印。
Private Sub Command3_Click() 'SelPrint 方法CommonDialog1.Flags=cdlPDReturnDC +cdlPDNoPageNums If RTF1.SelLength = 0 Then 'RTF1 为窗体的RichTextBox 控制 CommonDialog1.Flags = CommonDialog1.Flags +cdlPDAllPages Else CommonDialog1.Flags = CommonDialog1.Flags +cdlPDSelection End If CommonDialog1.CancelError = True On Error Resume Next CommonDialog1.ShowPrinter If Err.Number = cdlCancel Then Exit Sub If Err.Number 0 Then Beep MsgBox ＂Error printing file.＂ &vbCrLf +Err.Description, vbOKOnly +vbExclamation, “Printing Error!＂ Exit Sub End If Printer.Print ＂＂ RTF1.SelPrint CommonDialog1.hDC ' 打印RTF1 控件的可见区域End Sub 上面代码先进行打进设置，再进行打印。
如果不需要设置，采用下面代码更为简单： RTF1.SelPrint Printer.hDC ' 打印RTF1 控件的可见区域 5. 可以在VB 中调用Word 97 提供的OLE 自动化服务，利用Word 97 强大的打印功能来完成VB 打印，笔者认为这是最令人满意的方法。
下面代码说明VB 如何与Word 集成。
Private Sub Command4_Click（) ' 调用Word 打印Dim objWord As ObjectConst CLASSOBJECT = ＂Word.Application＂On Error GoTo objErrorSet objWord = CreateObject(CLASSOBJECT)objWord.Visible = TrueobjWord.Documents.AddWith objWord.ActiveDocument.Paragraphs.Last.Range.Bold = False.ActiveDocument.Paragraphs.Last.Range.Font.Size =20.ActiveDocument.Paragraphs.Last.Range.Font.Name =＂黑体＂.ActiveDocument.Paragraphs.Last.Range.Font.ColorIndex==4.ActiveDocument.Paragraphs.Last.Range.Text =＂我是计算机世界读者！＂ End WithClipboard.ClearClipboard.SetText ＂通过剪切板向WORD 传送数据！＂ objWord.Selection.Paste objWord.PrintPreview = True ' 预览方式 'objWord.PrintOut' 执行打印 'objWord.Quit' 退出WordExit SubobjError:If Err 429 ThenMsgBox Str $(Err) &Error $Set objWord = Nothing ' 不能创建Word 对象则退出Exit SubElse Resume NextEnd IfEnd Sub 6. 用VC 编制DLL 模块完成打印。
在VB 中调用该模块，用混合编程方法进行打印输出。
因涉及VC 编程比较烦琐，这里不再讨论。
在word文件中想要用VB将宋体的℃,要全部改成 TImes NEw Roman...
word或excel超链接及文件归类的问题悬赏分：20 - 解决时间：2006-10-17 17:06遇到一个实际一点的困难，书上查不到。
我有很多文件，例如WORD一堆文档，和一个目录表（EXCEL格式），都放在同一个文件夹里。
为了方便查找，我希望用目录表筛选找到文件后，后面一个超链接能指向想要的文件。
可是该链接只能是绝对路径，无法设为相对路径，因此当整个文件夹移到别的电脑上的时候链接就失效了。
1）有没有高手能指点如何设相对路径？ 2）如果无法设相对路径，有没有其他方法能实现这个目的？希望是实用的。
谢谢指点！问题补充：谢谢qingh_yl的回答，我相信你已经理解了我的问题。
但是我的问题能最终解决： 我使用=SUBSTITUTE(CELL(＂FILENAME＂)，＂[目录.xls]Sheet1＂，＂文件1.doc＂) 在单元格里使用能正确返回我该文件的路径，并更换文件名为“文件1.doc”。
问题在于设定超级链接时，就算不键入盘符和路径，只输文件名，他也一样默认出来路径http///c：/...。
如果是输刚才的公式，他不会计算。
只能在单元格中计算。
反馈地址错误。
郁闷...提问者： 攻守ayala - 秀才 二级 最佳答案经过我试验，你在设定超级链接时，在＂请键入文件名或WEB页名称（E）＂时只输入文件名和扩展名，不要输入盘符和路径。
这样，只要你的EXECL目录文件与WORD文件在同一文件夹中就行了，一起复制到本机的其他地方或者一起复制到其他机器上，电子表格中的超级链接仍然有效。
另外，假定你的建立的目录在＂目录.xls＂的Sheet1工作表中，你可以用以下公式得到当前的盘符和路径（文件夹名）： =SUBSTITUTE(CELL(＂filename＂)，＂[目录.xls]Sheet1＂,＂＂)回答者：qinqh_yl - 总监 九级 10-15 14:27提问者对于答案的评价：
RTF文件是什么？
rtf是一种非常流行的文件结构，很多文字编辑器都支持它，vb等开发工具甚至还提供了richtxtbox的控件。
编写通用工具的程序员应该考虑在自己的软件中加入读写rtf文件的功能，这样就需要对rtf的结构有充分的了解。
而现在最重要的信息发布手段莫过于www了，在编辑软件中提供rtf到html的转换也是程序员应该考虑的事情。
rtf的结构并不复杂，但内容繁多，每个rtf文件都是一个文本文件，显示时由rtf阅读器格式化。
文件开始处是{\rtf，它作为rtf文件的标志是必不可少的，rtf阅读器根据它来判断一个文件是否为rtf格式。
然后是文件头和正文，文件头包括字体表、文件表、颜色表等几个数据结构，正文中的字体、表格的风格就是根据文件头的信息来格式化的。
每个表用一对大括号括起来，当中包含了很多用字符“\”开始的命令。
VB如何建立数字滚动条,1到10中的一个整数？
1. 去除页眉的横线方法两则 在页眉插入信息的时候经常会在下面出现一条横线，如果这条横线影响你的视觉，这时你可以采用下述的两种方法去掉：用第一种的朋友比较多，即选中页眉的内容后，选取“格式”选项，选取“边框和底纹”，边框设置选项设为“无”，“应用于”处选择“段落”，确定即可。
第二种方法更为简单，当设定好页眉的文字后，鼠标移向“样式”框，在“字体选择”框左边，把样式改为“页脚”、“正文样式”或“清除格式”，便可轻松搞定。
2. 在word中快速选择字体 为了能够快速地选择字体，我们可以将常用的字体以按钮的形式放到工具栏上。
首先在word的工具栏上单击鼠标右键，在右键菜单中选择最后一项“自定义”。
然后在出现的自定义编辑界面中选中“命令”选项卡，再选择“类别”中的“字体”项。
最后从右边列出的windows已安装的字体中，选择常用的字体并用鼠标直接将它拖曳到工具栏上，这样在以后的使用中就可以快速选择字体了。
3. 用word实现快速隔行删除 先将全文复制word中，按ctrl+a键全选，再选择“表格”下拉菜单中的“转换/文字转换成表格”，在弹出的对话框中，将“列数栏”定为“2列”，将“文字分隔位置”选为“段落标记”，确定后便出现一个2列n行的表格，再全选表格，右击鼠标“合并单元格”。
4. 清除word文档中多余的空行 如果word文档中有很多空行，用手工逐个删除又太累人，直接打印吧，又太浪费墨水和打印纸。
有没有较便捷的方式呢？我们可以得用word自带的替换功能来进行处理。
在word中打开编辑菜单，单击“替换”，在弹出的“查找和替换”窗口中，单击“高级”按钮，将光标移动到“查找内容”文本框，然后单击“特殊字符”按钮，选取“段落标记”，我们会看到“^p”出现在文本框内，然后再同样输入一个“^p”，在“替换为”文本框中输入“^p”，即用“^p”替换“^p^p”，然后选择“全部替换”，怎么样，多余的空行不见了吧。
5. 同时保存所有打开的word文档 有时在同时编辑多个word文档时，每个文件要逐一保存，既费时又费力，有没有简单的方法呢？在按下shift键的同时，单击“文件”菜单，大家看，已经多出了“同时保存”和“同时关闭”命令，这可就方便多了。
6. 巧妙设置文档保护 在用word2000/xp打印一份文件时，忽然头儿有要事吩咐，要暂时离开一下，关闭文件吧，既费事又没必要，但又不想辛辛苦苦写的文件被别人破坏了。
怎么办呢？执行“工具”菜单中的“保护文档”命令，在弹出的窗口中选择“保护窗体”，然后设上密码。
怎么样，光标跑到了文件头，任你怎么移动鼠标、敲击键盘就是无法编辑了，不错吧。
等回来时，执行“工具”菜单中的“解除文档保护”命令，一切又正常了。
7. 编辑长文件更轻松 相信大家都有这样的经历：在使用excel、word编辑长文档时，有时需要将文章开始的多处内容复制到文章末尾。
但通过拖动滚动条来回移动非常麻烦，还会出错。
其实只要将鼠标移动到滚动条上面的适当位置，发现鼠标指针变成双箭头，此时按住鼠标左键向下拖动，文档编辑区会被一分为二。
你只需在上面编辑区找到文章开头的内容，在下面编辑区找到需要粘贴的位置，这样你就可以复制内容了，而不必来回切换。
这种方法特别适合复制相距很远且处数较多的内容。
8. 取消“自作聪明”的超级链接 当我们在word文件中键入网址或信箱的时候，word会自动为我们转换为超级链接，如果不小心在网址上按一下，就会启动ie进入超级链接。
但如果我们不需要这样的功能，就会觉得有些碍手碍脚了。
如何取消这种功能呢？在word中单击“工具→自动更正选项”，单击“键入时自动套用格式”选项，将“internet及网络路径替换为超级链接”项目前的小钩取消。
再单击“自动套用格式”选项，将“internet及网络路径替换为超级链接”项目前的小钩取消。
再单击“确定”。
这样，以后再输入网址后，就不会转变为超级链接了。
9. 巧设word启动后的默认文件夹 word启动后，默认打开的文件夹总是“我的文档”。
通过设置，我们可以自定义word启动后的默认文件夹，步骤如下：（1）单击“工具”菜单中“选项”命令，程序将会弹出“选项”的对话框；（2）在对话框中，选择“文件位置”标签，同时选择“文档”；（3）单击“更改”按钮，打开“更改位置”对话框，在“查找范围”下拉框中，选择你希望设置为默认文件夹的文件夹并单击“确定”按钮；（4）最后单击“确定”按钮，此后word的默认文件夹就是用户自己设定的文件夹。
10. 在word中快速输入汉字偏旁部首 作为语文老师，在用word编制练习时，常常需要输入汉字的偏旁部首。
执行“插入→符号”命令，打开“符号”对话框，在“符号”标签下，将字体选定为“标准字体”，“子集”选定为“cjk统一汉字”，你就会发现下面的汉字是按偏旁部首排列的。
每一类汉字都是以该类汉字的偏旁部首开始的，选中你需要的（如扌、攵、氵等）偏旁部首，按“插入”按钮就行了。
11. 将word表格巧妙转换为excel表格 先打开带表格的word文件，接着选中整个表格，先将光标放在表格的任一单元，在整个表格的左...
转载请注明出处51数据库 » vb预览word文件格式
