一问五不知 一问五不知
关注数: 4 粉丝数: 224 发帖数: 2,464 关注贴吧数: 1
WORD文件名整理VBA命令 Sub mySaveAs() ' Dim i As Long, st As Single, mypath As String, fs As FileSearch Dim myDoc As Document, n As Integer Dim strpara1 As String, strpara2 As String, docname As String, a On Error GoTo hd With Application.FileDialog(msoFileDialogFilePicker) .Title = "请选定任一文件,确定后将重命名全部WORD文档" If .Show <> -1 Then Exit Sub st = Timer mypath = .InitialFileName End With Application.ScreenUpdating = False If Dir(mypath & "另存为", vbDirectory) = "" Then MkDir mypath & "另存为" '另存为文档的保存位置 Set fs = Application.FileSearch With fs .NewSearch .LookIn = mypath .FileType = msoFileTypeWordDocuments If .Execute(msoSortByFileName) > 0 Then For i = 1 To .FoundFiles.Count If InStr(fs.FoundFiles(i), "~$") = 0 Then Set myDoc = Documents.Open(.FoundFiles(i), Visible:=False) With myDoc strpara1 = Replace(.Paragraphs(1).Range.Text, Chr(13), "") strpara1 = Left(strpara1, 10) strpara2 = Replace(.Paragraphs(2).Range.Text, Chr(13), "") If Len(strpara1) < 2 Or Len(strpara2) < 2 Then GoTo hd docname = strpara1 & "_" & strpara2 docname = CleanString(docname) For Each a In Array("\", "/", ":", "*", "?", """ ", "<", " >", "|") docname = Replace(docname, a, "") Next .SaveAs mypath & "另存为\" & docname & ".doc" n = n + 1 .Close End With End If Next End If End With MsgBox "共处理了" & fs.FoundFiles.Count & "个文档,保存于目标文件夹的名称为“另存为”的下一级文件夹中。" _ & vbCrLf & "处理时间:" & Format(Timer - st, "0") & "秒。" Application.ScreenUpdating = True Exit Sub hd: MsgBox "运行出现意外,程序终止!" & vbCrLf & "已处理文档数:" & n _ & vbCrLf & "出错文档:" & vbCrLf & fs.FoundFiles(i) If Not myDoc Is Nothing Then myDoc.Close End Sub
如何用WORD排版? 算是前言 由于我打字不在行,比较慢,难免有错别字,如果语句有不通的,请发挥想象力您就凑合着看吧,并谅解!如果有技术性错误,一定指出,以免使他人误入歧途,如果出现了真是罪过!!罪过!! 不要急,慢慢看,WORD不是一两小时就学会的。本节可以跳过,直接进入下一节。 Word是排版软件,但不是专业排版软件,更多的人把它列为办公软件或者文字处理软件——尽管用它们可以排出非常专业的效果。我也编过几本书,是出版社的专业人员来排版的,但他们不关心你的内容,只关心版本,更不考虑内容与版面的关系。专业排版,例PageMaker 或者方正等等。 而实际上使用WORD的人,有很多不只是打打字,更多的时候是秘书给领导排的文件、大学生的毕业论文及设计,各种合同、标书等,而这些是需要排版的,作为作者(特别是技术作者)既要关心内容取舍,也要关心版面安排,以求最好地表达自己的想法。所以作者应该自己排版。Word是能排出专业印刷品(书刊、论文),我把它称为“半专业”排版软件。 Word是一款办公/文字处理软件,非常易用。但“好用”不意味着“用好”,有多少人被本不复杂的版面安排搞得焦头烂额!!如果用Word排十来页的文章报告,是不用看任何Word书籍的,任何问题都可以暴力解决。不过,如果想充分发挥Word的作用,为文章(书籍)的写作过程带来便利,《Word排版艺术》是很好(也许是惟一)的选择。 Word不适合处理过于复杂的版面,例如报纸、招贴画、复杂的分栏等等,毕竟那是专业排版软件做的。Word适合作者用来排版技术书籍和文章类的正式出版物。所谓“正式出版物”,是指要拿给很多人看的那种东西,例如毕业论文、印刷发行的杂志文章、书籍等等。换一种说法是,从用打印机+复印机印十几二十份到用照排机+印刷机印几千上万份,都算“正式出版物”。自己留着看的不算,打印一份交给老师的也不算。 市面上有关Word的书籍很多,但几乎每本书都会告诉你怎么设字体字号,行距段距(这是最基本的操作),但往往不会告诉你普通书籍的正文应该用多大的字,行距应该是多少,段距应该是多少。(或许这些Word书不是作者自己排的,他们自己也不是很清楚?) 这里特向大家推荐侯捷先生所著的《Word排版艺术》。这是我所读到的有关WORD使用的最好的一本书。 侯先生这本《Word排版艺术》会告诉你,正文字号多大,如何使用字体比较美观,行距、段前、段后是多少排出来的正文很均匀美观,没有常见的那种挤成一团的感觉,可以直接付印。看这样的书,目的在于吸取专家经验,迅速提到自己的排版功力。阅读《Word排版艺术》是成为Word高手的捷径。 《Word排版艺术》一书着眼于“排版”,具体讲解Word排版大规模文档的的正规方法。介绍版面设置(纸张、版心、页眉页脚、页码),“样式/Style”的使用,各种自动编号功能,例如脚注的自动编号、题注的自动编号、(多级)项目列表的自动编号、章节的自动编号等等。有了这些功能,就能不重不漏地为各种条目编号,让手工编号成为历史。 基于以上就可以让目录(普通目录、章目录、图标目录)自动编排,这些都需以“样式”为基础的。索引也是是书籍排版的要件。另外还有图文混排,这可是Word的强项。 本贴从《Word排版艺术》吸取养料,加上自己的经验,及多年在吧中了解吧友们所关心的问题,总结一下。本贴完成之后,就会把《从零学起WORD》http://tieba.baidu.com/f?kz=582175637删除。
WORD操作常见问题及解决方法 word中去掉页眉中的横线 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D8488370&urlrefer=a71a0a5e4759f07722529bb38071a7f6 如何恢复被另存覆盖的word文件? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D84273106&urlrefer=11b4b1689571adc07b55aa92f2880e81 怎样自动/快速剔除文章中的空白行(硬回车)? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D15937641&urlrefer=e0bc21034afed08e608ee10bdc861490 重装WORD后如何保留自己原来定义的那些设置? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D15652763&urlrefer=17963d9ad73f98f4591c25668aa52c28 分栏后两边都需要页码 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D13343243&urlrefer=e97075b9369b8a59e4469f833e9c2337 word里面超链接怎么去除下划线 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D5167075&urlrefer=3cf9781ed39a4e8ecce1367948d7e60c 每次打开WORD的文档,每个文档中都会出现固定文字,如何消除 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D14309966&urlrefer=12ee0ad9f006faed31d65454e985fee1 关于word的索引问题 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D19635809&urlrefer=a8da1f2aea1ea99d8b223d80276e4e1e 怎么打空格时会在光标后面显示一些点点? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D25750018&urlrefer=3aa702b6b135caf41e75861c970f52bb 如何去掉页眉中的横线? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D14044651&urlrefer=fe8e706afb8301a89e1077883ab45707 如何把打好的文字设置进作文纸的格式中? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D26112934&urlrefer=f2a827048f4b68684c247a5d72584dea word中格式刷怎么用?有什么作用? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D29798314&urlrefer=ef1073fd957f5b64bb58177b8c237a5f 关于新建文档不是空白页的问题! http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D29988631&urlrefer=6b19d7bb6170b2d5e2102b5d1043eda2 请教在word文档里如何输入连续均匀的点(不是省略号的叠加) http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D35161980&urlrefer=eb2ceda4bd20e21105231218dd793aad 如何在文档中前几页不显示页码,在正文开始才开始显示页码? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D35076822&urlrefer=b791500002ac23adf3d7a2ac098a421b 怎样制作带有“左装订线”的模版? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D37253350&urlrefer=e39d906a09e7098ba5bde0eeaf1eb417 如何将网页下载到word中的所有空白行一次性删除 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D65998554&urlrefer=02d1eb82f4127ce511d9cc273c83d7a6 有关WORD的常见问题!!!!!! http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.officefans.net%2Fcdb%2Fviewthread.php%3Ftid%3D22356%26fpage%3D1&urlrefer=0345c9a6ac1dd36c2f043fc49f4a3eac 使用项目符号和编号来快速制作书本的目录? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D62178493&urlrefer=97ebbfca86ad54c9cc7aabfb62a39a0a 在同一个word文档中使用不同页码和不同页眉的方法 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D19549240&urlrefer=67667fa638c2a765555c823f134a5dca 如何把单双页的页边距设置的不同? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D14334202&urlrefer=4a50ae0affd0b2950f1cc7f649358a4b 自动编号功能如何取消? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D72725357&urlrefer=ea381bd540d08277aa00a12d7598fffd Word自动生成目录的方法? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D18083794&urlrefer=9a711d64dee40ba451aefd7625f162f4 怎样建立索引目录? http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D5747773&urlrefer=cd6439015fb32f5cc7dcae785529f894 关于Word在方框(□)中打对号的方法 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpost.baidu.com%2Ff%3Fkz%3D29879229&urlrefer=89bbc65789ff39e1755f5cc85c8c2548 初学WORD易遇到的问题 http://tieba.baidu.com/f?kz=142108447 从零开始学习WORD http://tieba.baidu.com/f?kz=582175637 怎样把一篇word文档中的英文双引号(前后相同)替换成中文双引号(前后不相同)? http://tieba.baidu.com/f?kz=91831359
用Word编辑文档的几个建议------支持者请顶 很多人认为word是不需要学习,自己摸索就行了。当一个关心你学习电脑的人问你现在在学什么,你若回答说:“我在认真学习word。”对方十有八九说:“用word还需要学习?!”花一天时间学会用Word打字是没问题的。要是用好Word排版,绝对不是一劳永逸的事。Word本身不是最重要的,如果你是打字员,所要求排的版面可以用暴力解决(所谓暴力解决是指全部手工完成);如果你已经用word半年了,就应当让所有与内容无关的排版工作都交给Word去完成吧。如果你是一个写作者,需要的是内容,而不是版面,但是你却想要一个你想达到的版面,因为版面影响表达,你想让读者从版面上更好地理解你的写作意图。如果对排版不熟悉,会影响你写作的效率和修改的方便性。你如果是个word新手,又想用WORD代笔写作,就不要讲版面了,就把电脑当作一张纸,只管往上写就行了。我刚学word是,一个不能解决的问题就会使我郁闷老长时间,老是想着它。有时,用了自以为可以的方法做了,有些问题自己解决了,自以为Word用得还可以,当别人让我做一个长达190多页图文表混排的文档时解决,,还自以为可以三天拿下。但是当对方给我说起目录时,我有点犯难了,但还是答应对方可以一个星期解决,当人家又说页码、页眉、页脚、索引、图表目录时,我老长老长时间没说话,最后满脸内疚地说:“对不起,我做不了。”后来经高人提点,再后来看了别人做的,读了别人的书,发现Word竟可以这样用。特别是今年我读了侯捷先生的《Word排版艺术》后使我大开眼界,上了百度WORD吧后,使我的水平有了很大的提高。
1 下一页