word文档如何办T和F分类,文档,分类

1.电脑知识与技术 如何使用Word等常用文档处理软件

word使用技巧新手必读2008年12月19日 星期五 10:22把文字替换成图片： 首先把图片复制到 剪贴板中，然后打开替换对话框，在“查找内容”框中输入将被替换的文字，接着在 “替换为”框中输入“^c”（注意：输入的一定要是半角字符，c要小写），单击替换 即可。

说明： “^c”的意思就是指令Word XP以剪贴板中的内容替换“查找内容”框中的内 容。按此原理，“^c”还可替换包括回车符在内的任何可以复制到剪贴板的可视内容，甚至Excel表格。

三招去掉页眉那条横线： 1、在页眉中，在“格式”-“边框和底纹”中设置表格和边框为“无”，应用于“段落” 2、同上，只是把边框的颜色设置为白色（其实并没有删的，只是看起来没有了，呵呵） 3、在“样式”栏里把“页眉”换成“正文”就行了——强烈推荐！ 插入日期和时间的快捷键： Alt+Shift+D：当前日期 Alt+Shift+T：当前时间 我也说个关于查找替换的有没有用过查找替换为文中的某个字符串加上引号（中文引号“”），一般情况前引号都会变成后引号（不信试试），解决方法：替换时在前引号前加上一个特殊符号——无宽分隔符，搞定！！！ 批量转换全角字符为半角字符 首先全选。然后“格式”→“更改大小写”，在对话框中先选中“半角”，确定即可 Word启动参数简介Word启动参数简介 单击“开始→运行”命令，然后输入Word所在路径及参数确定即可运行，如“C:\ PROGRAM FILES \MICROSOFT Office \Office 10\ WINWord.EXE /n”，这些常用的参数及功能如下： /n：启动Word后不创建新的文件。

/a：禁止插件和通用模板自动启动。 /m：禁止自动执行的宏。

/w：启动一个新Word进程，***与正在运行的Word进程。 /c：启动Word，然后调用Netmeeting。

/q：不显示启动画面。 另外对于常需用到的参数，我们可以在Word的快捷图标上单击鼠标右键，然后在“目标”项的路径后加上该参数即可。

快速打开最后编辑的文档 如果你希望Word在启动时能自动打开你上次编辑的文档，可以用简单的宏命令来完成： （1）选择“工具”菜单中的“宏”菜单项，单击“录制新宏”命令打开“录制宏”对话框； （2）在“录制宏”对话框中，在“宏名”输入框中输入“autoexec”，点击“确定”； （3）从菜单中选择“文件”，点击最近打开文件列表中显示的第一个文件名；并“停止录制”。保存退出。

下次再启动Word时，它会自动加载你工作的最后一个文档。 在文档中添加页码： 插入-域…：{PAGE} 这个是总页码的域：{DOCPROPERTY Pages} 记住，如果页面调整了，请右击该域，执行“更新域”进行更新 快捷键切换全角和半角： 关于怎样用快捷键切换全角和半角？我认为该这样做 shift+空格，ctrl+.是切换中文和西文标点用的。

格式刷的使用 1、设定好文本1的格式。 2、将光标放在文本1处。

3、单击格式刷按钮。 4、选定其它文字（文本2），则文本2的格式与文本1 一样。

若在第3步中单击改为双击，则格式刷可无限次使用，直到再次单击格式刷（或按Esc键）为止。 度符号的快捷输入： 100C°-100C+ALT+176（数字键） 3次方：ALT+179（数字键） 删除网上下载资料的换行符（象这种“↓”）。

在查找框内输入半角^l（是英文状态下的小写L不是数字1），在替换框内不输任何内容，单击全部替换，就把大量换行符删掉啦。 选择性删除文件菜单下的最近使用的文件快捷方式。

工具→选项→常规把“列出最近使用文件数改为0”可以全部删除，若要选择性删除，可以按ctrl+Alt+ -三个键，光标变为一个粗减号后，单击文件，再单击要删除的快捷方式就行了。 一般的选区建立可用鼠标左键，或用shift键配合pgup、pgdn、home、end、箭头等功能键，当复制一个规则的矩形区域时，可先按住Alt键，然后用鼠标左键来选。

我一般用此来删除段首多余的成块的空格。 将字体快速改为上标或下标的方法： 本人在一次无意间发现了这个方法，选定你要下标的字，然后在英文状态下按住Ctrl，再按一下BASKSPACE旁的+/=的键，就可以了。

上标只要在按Ctrl的同时也按住Shift，大家可以试试。 让Word表格快速一分为二， 将光标定位在分开的表格某个位置上，按下“Ctrl+Shift+Enter”组合键。

这时你就会发现表格中间自动插入一个空行，这样就达到了将一个表格一分为二的目的。 快速删除段前段后的任意多个空格 选定这些段段落，单击居中按钮，然后再单击原来的那种对齐方式按钮（如果原来是居中对齐的，先单击其它对齐方式按钮，再单击居中按钮就行了），是不是这些空格全不见了？ 在排版的时候，WORD把很多格式都保存在那个段落标记（那个回车符号）里，如果有同样属性的板式，可以复制那个段落标记再覆盖目标段落的标记就可以了，可以做到格式刷复制不了的格式，比格式刷更好用。

快速输入平方的方法 先输入2，然后选重后，按ctrl加shift加+就可以了. WORD中表格的选择性录入 1.设置好表格，选定表格-视图-工具-窗体-插入下拉型窗体域 2.输入数据，完成 3.点击锁按钮，保护，输入完后再点击进行其它的输入. 好用吗？ 轻松了解工具栏按钮的作用 按下“shift+F1”键，鼠标指针旁。

2.我有几千word文档

你自己编辑个程序，读出文档的第一行内容，然后关闭这个文档，用程序把它复制到指定的地方。

下面是用VB读WORD文件的方法：'VB读取WORD文件的例子'向窗体添加Command,Text,CommonDialog控件'单击工程\引用，添加Microsoft Word 11.0 Object Library （即是Word.Application）' Private Sub Command1_Click() Dim lsFileName As String Dim lsPath As String Dim lsName As String Dim lbApp As Boolean Dim llCount As Long Dim wordObj As Word.Application'浏览要添加的的文件 CommonDialog1.CancelError = True '取消报错 并且跳出执行！On Error GoTo err_cancel CommonDialog1.DialogTitle = "选择要打开的Word文件"'CommonDialog1.InitDir = App.Path CommonDialog1.Filter = "Word文件（*.doc）|*.doc" CommonDialog1.FileName = "" CommonDialog1.ShowOpen lsFileName = CommonDialog1.FileName '获取完整路径 lsName = CommonDialog1.FileTitle '只获取文件名 lsPath = Replace$(lsFileName, lsName， "") '获取文件所在的路径'循环进行处理！判断是否存在打开的word进程 ！lbApp = False Do While True On Error Resume Next Set wordObj = GetObject(, "Word.Application") '用于判断已经打开的word进程 If wordObj Is Nothing Then Exit Do '如果没有找到进程那么就退出循环 If wordObj.Documents.Count = 0 Then '如果是一个空进程就释放 wordObj.Quit Set wordObj = Nothing Else For llCount = 1 To wordObj.Documents.Count '这个应用就是，手工打开文件的应用！If Err.Number = 0 Then '有Word已经打开 If wordObj.Documents(llCount).FullName = lsFileName Then '判断是否有要打开的进程 Text1.Text = wordObj.Documents(llCount).Content.Text '这个是对文件的操作 GoTo endSub End If End If lbApp = True Next End If If llCount <> 0 Then Exit Do '所有打开的里面没有要打开的文件 Loop Err.Clear If lbApp = False Then Set wordObj = CreateObject("Word.Application") '创建word应用类 wordObj.Visible = False wordObj.Documents.Open (lsFileName) Text1.Text = wordObj.ActiveDocument.Content.Text wordObj.Quit Set wordObj = Nothing Else wordObj.Documents.Open (lsFileName) '直接在原来的应用上打开文件 Text1.Text = wordObj.ActiveDocument.Content.Text wordObj.ActiveDocument.Close (True) ' (False) '关闭打开的文件'但是不关闭应用 End If endSub:'Label.Caption = Mid(Text1.Text, 1, 5) '取文件的最前面的5个字符'FileCopy lsFileName, "F:\234\" & lsName '"F:\234\"为要保存文件的位置，文件必须存在 MsgBox "成功" Exit Sub err_cancel:MsgBox "你点的是取消" End Sub'下面是搜索某文件下所有文件的过程'要向窗体添加List1控件 Sub sosuofile(MyPath As String) Dim Myname As String Dim dir_i() As String Dim i, idir As Long If Right(MyPath, 1) <> "\" Then MyPath = MyPath + "\" Myname = Dir(MyPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly) Do While Myname <> "" If Myname <> "." And Myname <> ".." Then If (GetAttr(MyPath & Myname) And vbDirectory) = vbDirectory Then '如果找到的是目录'这三句若不注释，则还要搜所有目录' idir = idir + 1' ReDim Preserve dir_i(idir) As String' dir_i(idir - 1) = Myname'这三句若不注释，则还要搜所有目录 Else: List1.AddItem "" & MyPath & Myname '把找到的文件显示到列表框中 End If End If Myname = Dir '搜索下一项 Loop For i = 0 To idir - 1 Call sosuofile(MyPath + dir_i(i)) Next i ReDim dir_i(0) As String End Sub 结合上面两部分，你自己再研究一下吧。