我需要一个vbs新建一个空白的excel表格到指定路径的代码,但不知...

sub createExcel(path,name) "定义一个生成excel文件的子过程，path为你要的指定路径，name为excel文件想要的名字dim excelset excel = createobject(＂excel.application＂)excel.Workbooks.Addexcel.Save path & name & ＂.xls＂end SubcreateExcel ＂c:\＂,＂my＂ "这里是调用子过程生成指定路径下指定名字的excel文件...

为什么＂PPT文本转换器＂只能将PPT的三页转换成WORD？

程序有问题。

请将下列内容复制到记事本里面，并保存为：PPT转WORD.vbs 然后将要转换的PPT和这个程序文件复制到C盘根目录下，双击这个程序文件运行即可在C盘根目录下自动生成一个WORD文件，内容就是PPT的内容。

"绑定到本地计算机 strComputer = ＂.＂"如果发生错误，继续执行 on error resume next Set objWMIService = GetObject(＂winmgmts:＂ _ & ＂{impersonationLevel=impersonate}!\\＂ & strComputer & ＂\root\cimv2＂) msgbox ＂此脚本可以批量将ppt文件中的文本转换为word文件。

图片、表格等内容则自动跳过＂ & vbcrlf & ＂使用时请把所有要转换的ppt文件复制到目录c：\下。

双击运行此文件即可。

＂ & vbcrlf & ＂运行此脚本需要本机上安装了office＂ "创建一个word对象 Set objWord = CreateObject(＂Word.Application＂)"创建一个ppt对象 Set pptApp = CreateObject(＂PowerPoint.application＂)"获得c：\目录下的文件集合 Set FileList = objWMIService.ExecQuery _ (＂ASSOCIATORS OF {Win32_Directory.Name="c:"} Where ＂ _ & ＂ResultClass = CIM_DataFile＂) For Each objFile In FileList"如果文件的扩展名是ppt If objFile.Extension = ＂ppt＂ Then pptApp.visible = true"打开这个ppt文件 Set pptSelection = pptApp.Presentations.Open(＂c:\＂ & objFile.FileName & ＂.＂ & objFile.Extension)"如果想让脚本处理得快些，把下面一行改为“objWord.Visible = false”，不推荐。

objWord.Visible = true"新建一个word，以保存ppt中的文本 Set objDoc = objWord.Documents.Add() Set objSelection = objWord.Selection"从ppt的第一页开始循环。

Slides.Count即幻灯片的数量 For i = 1 To pptSelection.Slides.Count"从每一张ppt的第一个文本框开始循环，Shapes.Count，即每张幻灯片中文本框的数量 For j = 1 To pptSelection.Slides(i).Shapes.Count "如果是每页的第一行，就按标题处理，变成黑体字 if i =1 then objSelection.Font.Name = ＂黑体＂ "把文本框中的文字添加到word中 objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text objSelection.TypeParagraph() objSelection.Font.Name = ＂宋体＂ end if objSelection.TypeText pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text "加一个回车 objSelection.TypeText vbcrlf Next next"关闭这个ppt文件 pptSelection.close"保存word文件。

objDoc.SaveAs(＂c:\＂ & objFile.FileName & ＂.doc＂)"如果不需要关闭word，把下面这一行删掉 objDoc.close"如果不想弹出消息框，把下面这一行删掉 msgbox ＂转换后的word已保存在c:\＂ & objFile.FileName & ＂.doc＂ else "没有ppt文件"msgbox ＂错误：c：\下没有发现ppt文件！＂ End If Next pptApp.quit

怎么批量重命名word文件

可以用脚本来做。

1、用记事本新建一个文本文件，把它保存为“批量重命名.vbs”（注意不要弄成了“批量重命名.vbs.txt”，也就是要确保其扩展名为“.vbs”）;2、把下列代码粘贴到这个VBS文件中：Option Explicit Const g_strRootPath = ＂c:\Temp\docs\Word\ToRename\＂ " 指定存放所有文件的目录，可以有子目录 Const g_nTitleMaxLen = 16 " 指定获取文档里面第一段中的前多少个字符来作为文件名 Call Main" 主函数入口 Sub Main() Dim fso, oFolder, oWordApp Set oWordApp = CreateObject(＂Word.Application＂) Set fso = CreateObject(＂Scripting.FileSystemObject＂) Set oFolder = fso.GetFolder(g_strRootPath) RenameDocFilesUnderFolder oWordApp, fso, oFolder oWordApp.Quit Set oWordApp = Nothing MsgBox ＂完成！＂ end Sub" 重命名指定文件夹（递归）下面的所有Word文件，按照文件里面的第一句可见的文字命名 Sub RenameDocFilesUnderFolder(oWordApp, fso, oFolder) Dim oSubFolder, oFile, oDoc Dim strTitle, strFileName For Each oSubFolder In oFolder.SubFolders RenameDocFilesUnderFolder oWordApp, fso, oSubFolder next For Each oFile In oFolder.Files Set oDoc = oWordApp.Documents.Open(oFile.Path) strTitle = GetFirstVisibleTextContent(oDoc) oDoc.Close Set oDoc = Nothing If Len(strTitle) 0 Then strFileName = fso.BuildPath(fso.GetParentFolderName(oFile.Path), strTitle & ＂.＂ & fso.GetExtensionName(oFile.Path)) strFileName = GetUniqueFileName(fso, strFileName) fso.MoveFile oFile.Path, strFileName end If next end Sub" 获取指定文档第一行可见文字 Function GetFirstVisibleTextContent(oDoc) Dim oParagraph Dim strContent For Each oParagraph In oDoc.Paragraphs strContent = GetSafeFileName(oParagraph.Range.Text) If Len(strContent) 0 Then GetFirstVisibleTextContent = strContent Exit Function end If next GetFirstVisibleTextContent = ＂＂ end Function" 过滤文件名里面的无效字符 Function GetSafeFileName(strFileName) Dim arrUnsafeCharacters, strUnsafeChar Dim nIndex arrUnsafeCharacters = Array(＂\＂, ＂/＂, ＂:＂, ＂*＂, ＂?＂, ＂＂＂＂, ＂＂, ＂|＂) For nIndex = 0 To &H2F strFileName = Replace(strFileName, Chr(nIndex), ＂＂) next For Each strUnsafeChar In arrUnsafeCharacters strFileName = Replace(strFileName, strUnsafeChar, ＂＂) next GetSafeFileName = left(Trim(strFileName), g_nTitleMaxLen) end Function" 获取不重复的文件名，如果有重名则在文件名后面附加“_1”、“_2”…… Function GetUniqueFileName(fso, strFullName) Dim strParentFolder, strBaseName, strExtensionName Dim nIndex If Not fso.FileExists(strFullName) Then GetUniqueFileName = strFullName Exit Function end If strParentFolder = fso.GetParentFolderName(strFullName) strBaseName = fso.GetBaseName(strFullName) strExtensionName = fso.GetExtensionName(strFullName) nIndex = 0 While fso.FileExists(strFullName) nIndex = nIndex + 1 strFullName = fso.BuildPath(strParentFolder, strBaseName & ＂_＂ & nIndex & ＂.＂ & strExtensionName) Wend GetUniqueFileName = strFullName End Function3、修改代码中开始部分的两个设置，即：存放等待重命名的Word文件的根目录，以及获取文档第一段内容时最多保留多少个字符。

4、保存这个VBS文件，在资源管理器中双击运行它，直到看见“完成”！5、检查所有文件是否已自动重命名。

注意：如果有两个以上的文档依据其内容提取出来的文字相同，则会自动在文件名后面附加“_1”、“_2”、“_3”……。

如果有什么问题，请和我联系。

怎么用COM读写WORD里的文本信息？

1.你说的这个主要是取得word接口 然后配合word自带的宏完成任务 实现起来很简单COleVariant vTrue((short)TRUE), vFalse((short)FALSE),vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);_Application m_App；//定义Word提供的应用程序对象；Documents m_Docs；//定义Word提供的文档对象；Selection m_Sel；//定义Word提供的选择对象；m_Docs.ReleaseDispatch();m_Sel.ReleaseDispatch();m_App.m_bAutoRelease=true;if(!m_App.CreateDispatch(＂Word.Application＂)){ AfxMessageBox（＂创建WordXP服务失败！＂）； exit(1); }//下面是定义VARIANT变量；COleVariant varFilePath(sPath+＂MYDOC.DOC＂);COleVariant varstrNull(＂＂);COleVariant varZero((short)0);COleVariant varTrue(short(1),VT_BOOL);COleVariant varFalse(short(0),VT_BOOL);m_Docs.AttachDispatch(m_App.GetDocuments（)）；//将Documents类对象m_Docs和Idispatch接口关联起来；m_Docs.Open(varFilePath,varFalse,varFalse,varFalse,varstrNull,varstrNull,varFalse,varstrNull,varstrNull,varTrue,varTrue,varTrue,varTrue,varTrue,varTrue);//打开Word文档； m_Sel.AttachDispatch(m_App.GetSelection（)）；//将Selection类对象m_Sel和Idispatch接口关联起来；下面就是操作了~2.用批处理做不到 如果只是这样子的话 连VC都可以省了 VBS 就能做到比如新建一个c:\1.doc 里面写上wangtk1982 然后保存退出 编辑下面文件为vbs文件 运行看看结果Dim oWordSet oWord = WScript.CreateObject(＂Word.Application＂)set myDoc =oWord.Documents.Open(＂c:\1.doc＂)With oWord.Selection.Find.Text = ＂1982＂.Replacement.Text = ＂2011＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithoWord.Selection.Find.Execute ,,,,,,,,,,1myDOc.SavemyDoc.Closeoword.Quit

电脑上一共有多少种文件格式,作用是什么？？

有很多的EXE可执行的程序文件，与COM内部结构不相同，最突出是长度没有限制。

COM可执行的二进制代码系统程序文件，特点非常短小精焊，长度有限制。

ASM汇编程序文件为二进制代码文件，可以打个比方，它就像BASIC中的.BAS程序文件一样，为不可执行文件。

ASC代码文件。

BAK备份文件 LIB程序库文件 CHK检查磁盘命令CHKDSK发现的目录或文件分配表中的错误，校正系统后的文件。

TMP临时文件 SYS系统配置文件，最典型的如config.sys，一般可以用EDIT进行编辑。

OBJ目标文件，源程序编译输出的目标代码。

OLD备份文件，一般是一些程序对系统配置修改后将原文件复制一份存储为该文件格式。

INI配置文件，不要以为这个文件只有Windows程序需要，DOS下程序也有不少需要它，如3DS与AutoCAD。

INF安装配置文件，这在WIN95下使用较多。

HLP HELP帮助文件，这个文件一定要重视，因为它是你每使用一个新软件的最好的说明书，几乎99%的软件都有这个文件，另外，DOS下的一些帮助放在README以后，帮助便没有了，如UCDOS中的REAME.EXE；有单独DOS的命令，若不知道怎么使用，可以试试以下的命令格式：“DIR？或DIR/?”。

DDI早期映象文件，由DiskDUP IMGDRIVE IMG.EXE展开 IMG这个文件要注意，有时它是一个图象文件，但更多的时候，它是映象文件，在早期光盘上，此文件使用最多，能常用HD-COPY IMG UNIMG都软件进行解压（注：IMG这个软件为什么一闪就没了呢，这个软件需要热键激活，按下Ctrl+Alt+S+D+X），如果要安装的软件压缩文件由和几个IMG分开压缩，那最好用UNIMG将它们全部解压缩，然后安装，它安装时提示你“请插入X序列盘”。

ARJ ARJ(ARJ这个以前风眯一时的压缩软件谁人不晓)软件压缩的文件，它的压缩比较高，使用也特方便顺手，只需要“ARJ a -r -v ” RAR这也是一个压缩文件，传说比ARJ压缩比更高，笔者没有亲手做试验，故不敢下空此结论。

ZIP当前最流行的压缩文件，谁不知道ZIP呀，WINZIP，再也不是DOS下的那个UNZIG或PKZIP了，兼容，向下兼容，从游戏到软件，差不多都是它压缩的了。

IMD UCDOS中输法的编码字典文件。

PDV UCDOS中的自由表格UCTAB生成的表格文件，它生成的文件可以被WPS调用，也挺方便的。

BAS BASIC中的源程序文件，BASIC可为初学者最为熟悉的编辑语言，它的优点笔者就不在累赘了，注意QBASIC与QUICK BASIC和GW BASIC是有区别。

C C语言中的源程序文件，它不但造就了我们常常为之日夜奋战的精彩电脑游戏，还创造出UNIX操作系统，有口皆碑的好编程软件。

MAK C语言中的工程文件。

COB COBOL语言源程序文件。

PAS PASCAL语言源程序文件。

FOR FORTRAN语言源程序文件。

FOX FOXBASE伪编译程序文件，比PRG短小运行速度快。

PRG FOXBASE过程程序文件。

DBF XBASE数据库文件。

IDX FOXBASE中的索引文件。

LBL FOXBASE中的标签文件。

FRM FOXBASE中的报表格式文件。

MEM FOXBASE中的内存变量文件。

FMT FOXBASE中的屏幕格式文件。

DBT FOXBASE中的数据库文件的辅助文件。

DBC为FOXPRO中的数据库名。

PJX Visual FoxPro下的项目文件与辅助文件PJT结合成项目管理管理文件。

RTF Rich的文本文件格式。

TXT纯文本文件格式，可以利用TYPE以及EDIT或者记事本等任何字处理程序打开，对它显示编辑。

.aiff 声音文件 Windows media Player .,,, Netants 暂存文件 Netants .ani 动画鼠标 .arj 压缩文件 ARJ .avi 电影文件 Windows media Player .awd 传真文档 .asp 一种文本格式的文件，用记事本就可以打开，其他的网页制作软件也可以打开 .bak 备份文件 .bas Basic 语言 Basic .bat DOS批处理文件 .bin MAC 二进制码文件 Stuffit Expander .bmp 图象文件 画图/看图软件 .cab 压缩文件 Winzip .cdr Corel图画文件 Corel Draw .chk Scandisk检察后制作的文件 可以删掉 .com DOS命令文件 自执行 .cpx Cryptapix加密图片文件 Cryptapix .cur 静态鼠标 .dbf 数据库文件 dBase, FoxBase, Access .dll 应用程序扩展 .doc 文档文件 Word .dwg AutoCAD文件 AutoCAD .eps Illustrator 图画文件 Adobe Illustrator .exe 执行文件 自执行 .fon 字体文件 .gb 国标码文件 南极星文字处理 .get Getright 暂存文件 .gif 256色图象文件 画图/看图软件 .gz 可供UNIX或LINUX使用的压缩文件 Winzip .hqx Macintosh 文件 Stuffit Expander .htm 网页 浏览器 .html 网页 浏览器 .ico 图标 .ini 配置设置 笔记本或WordPad .ipx IPX演示文件 浏览器加装IPX 插件 .jiff 图象文件 画图/看图软件 .jpeg 压缩过的图象文件 画图/看图软件 .jpg 压缩过的图象文件 画图/看图软件 .js javascript .lnk 快捷方式连接文件 连接文件的相应程序 .m3u Winamp播放列表 Winamp .mid 声音文件 Windows media Player .mov Quicktime影像文件 Quick Time .mp3 压缩音乐文件 Winamp .mpeg 影像 Windows media Player .mpg 影像 Windows media Player .njx 南极星文档 南极星文字处理 .pcb 电子电路图设计文件 Protel PCB .pdf 便携式文档格式，SupFree0内含图...

文件有哪些格式？文本有哪些格式？

文件格式：%A%、%B%:DOS版的WPS临时文件； 3DS：矢量格式，为3D Studio的动画原始图形文件，含有纹理和光照信息； ACE:ACE压缩文件格式； AI： 矢量格式，是久负盛名的绘图软件Adobe Illustrator文件格式； AIF:Apple计算机的音频文件格式； ANI:WIN95中动画鼠标指针文件； ARJ:ARJ软件压缩的文件； ASC：代码文件； ASF：微软的流媒体格式； ASX:ASF文件的索引格式； ASM：汇编程序文件； ASP:ASP即Active Server Page的缩写。

它是一种包含了使用VB Script或Jscript脚本程序代码的网页。

AVI：视频与音频交错文件；最新的MPEG4也采用这种后缀； BAK：备份文件； BAS:BASIC中的源程序文件； BAT:DOS下的批处理文件。

Autoexec.bat为自动批处理文件，它是特殊的批处理文件； BIN：光盘镜像文件；有时是一些软件的数据文件； BMP：是Windows所使用的基本位图格式，是小画笔就能轻松创建的文件； BZ2：压缩文件格式； C :C语言中的源程序文件； CAB：微软的压缩文件格式，压缩率很高； CDR：矢量格式，是Corel Draw标准文件格式； CDT:Corel Draw中的模板文件； CED:CCED文件格式； CEL:3DS中的贴图文件； CGM：是压缩的矢量图形文件，Winword可以打开； CHK：检查磁盘命令CHKDSK发现的目录或文件分配表中的错误，校正系统后的文件； CMX:Corel Draw展示交换文件； CMV：是Corel Move平面动画软件中的动画演示文件； COB:COBOL语言源程序文件； COM：可执行的二进制代码系统程序文件，特点非常 短小精悍 ，长度有限制； CPT：位图和矢量图都有，是Corel Photo-Paint的文件格式； CRD:Windows中的卡版盒文件； DAT：视频影像文件，是Video CD(VCD)或Karaoke CD（卡拉OK CD）其于MPEG压缩方法的一种，注意它同数据文件同名；有时是数据文件。

DB: Paradox数据库格式。

DBT:FOXBASE中的数据库文件的辅助文件； DBC：为FOXPRO中的数据库名； DBF:XBASE数据库文件； DDI：早期映象文件，由DiskDUP Imgdrive Img.exe展开； DLL:Windows下应用程序中的动态连结库文件； DOC：文档文件，由Microsoft Word生成，也有一部分是由Word Perfect生成； DRW：矢量格式，Micrografx Designer使用的绘图文件格式； DRV：驱动程序文件； DXF：矢量格式，是AutoCAD的绘图交换文件； EPS：是Adobe System公司的PostScript页面描述语言的产物，是矢量图形文件； EXE：可执行的程序文件，与COM内部结构不相同，最突出是长度没有限制； FLI：动画文件，是由AutoDesk公司开发的，只支持320*200*256色模式，它是FLC的老祖宗； FIC：动画文件，是AutoDesk公司开发的； FMT:FOXBASE中的屏幕格式文件； FNT：为Bezier（贝氏）类型字体的文件； FOR:FORTRAN语言源程序文件； FOT：是True Type字体文件的资源文件，正因为FOT文件中含有指向TTF的指针，所以我们的字体文件（TTF）才可以放在任何目录下面； FOX:FOXBASE伪编译程序文件，比PRG短小运行速度快； FRM:FOXBASE中的报表格式文件； GIF:GIF在网页中占有独一无二的地位，美中不足是颜色最多为（256色）8位，与其它图象文件相比，GIF高人一招，它是唯一可以存储动画的图像格式； GRP:Windows程序组文件； HGL：是HP公司创建的一种矢量图形文件； HLP：帮助文件； HTM：超文本文件； HTML：超文本文件； ICO：图标。

IDX:FOXBASE中的索引文件； IMD:UCDOS中输入法的编码字典文件； IMP:IMP压缩文件格式； INI：配置文件，不要以为这个文件只有Windows程序需要，DOS下程序也有不少需要它，如3DS与AutoCAD; INF：安装配置文件，这在WIN95下使用较多； IMG：有时它是一个图象文件，但更多的时候，它是软盘映象文件，常用HD-COPY IMG UNIMG、WINIMAGE等软件进行解压。

ISO：标准光盘镜像文件； JAR:JAR压缩文件格式； JPG:JPG原是Apple Mac机器上使用的一种图像格式，现在在PC机上大行其道，其压缩比可以调节，而且失真又很小。

LBL:FOXBASE中的标签文件； LIB：程序库文件； LOG：日记文件； LRC:MP3歌词； LZH：压缩文件格式； M3U：文本文件，存放mp3、rm等多媒体文件列表； MAK:C语言中的工程文件； MEM:FOXBASE中的内存变量文件； MID：数字音频文件（乐器数字接口）； MLI:3DS中的材质库； MMM：动画文件，是MacroMind公司著名多媒体写作软件Director生成的； MPG：视频文件，PC机上的全屏幕活动视频的标准文件； MOD、ST3、XT、S3M、FAR、669：该格式的文件里存放乐谱和乐曲使用的各种音色样本，。

现在已经逐渐淘汰，目前只有MOD迷及一些游戏程序中尚在使用。

MOV:QUICKTIME的视频影像格式，同样采用有损压缩方法，在Windows下必须安装QuickTime程序才能播放； MP2、音乐文件； MP3：音频格式，MPEG-1 Audio Layer-3 I格式； NO：一般是文本文件，如：Serial.no，通常还有一种格式为sn.txt，它说是你安装软件的CD-KEY、产品序列号、注册登记号； OBJ：目标文件，源程序...

怎么在word文档里小框中打勾

一.新建一个典雅型传真（本机模板带有），然后只保留里面的一个小框格，把你自己的文件复制到里面，把小框格复制到你需要的地方，保存。

双击小格子就打勾了。

也可插入控件工具箱中的小框格，自己写一行VBS代码（例如保存文档ActiveDocument.Save）。

二，插入字符。

方法：插入--符号--字体（wingdings）--列表中最后一行有你所需“框里有勾”...

ppt文件怎么转换成word文件

呵呵，这没什么可怕的，你用的是一个GHOST版本的系统吧，系统作者在c:\windows\目录下放了一个修改IE首页的文件homepage.cmd， 而un.vs的作用就是在每次开机时执行homepage.cmd文件而不会出现黑框框，你去c:\windows\目录下用编辑命令打开homepage.cmd 把里面的几个网址替换成为百度，以后你每次启动电脑以后，IE首页就自动被设置为百度了，去试试吧，呵呵