怎么用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
求php大神指教 $word = new COM("word.application") or die("...
=前面的定义全部改成dynamic就可以了,问题是解决了,不过后面没有智能提示,写代码不方便。
参考代码:dynamic xls = new msxls.Application();var m = System.Reflection.Missing.Value;dynamic book = xls.Workbooks.Open(filePath);//, m, m, m, m, m, m, m, m, m, m, m, m, m, m);string source, result;int curRow = 0, curColumn = 0;NameValueListvarList = new NameValueList(ScriptReader.NullNameParameter);try{foreach (dynamic sheet in book.Sheets){var r = sheet.Cells.SpecialCells(msxls.XlCellType.xlCellTypeLastCell, m);for (int row = 1; row {curRow = row;for (int column = 1; column {curColumn = column;source = (sheet.Cells[row, column]).Formula as string;
用thinkPHP上传一份word文件,怎样显示出来
/** 必须将 php.ini 中的 com.allow_dcom 设为 TRUE*/function php_Word($wordname,$htmlname,$content){//获取链接地址$url = $_SERVER['HTTP_HOST'];$url = ";$url = $url.$_SERVER['PHP_SELF'];$url = dirname($url)."/";//建立一个指向新COM组件的索引$word = new COM("word.application") or die("Unable to instanciate Word");//显示目前正在使用的Word的版本号echo "Loading Word, v. {$word->Version}";//把它的可见性设置为0(假),如果要使它在最前端打开,使用1(真)$word->Visible = 1;//---------------------------------读取Word内容操作 START-----------------------------------------//打开一个word文档$word->Documents->Open($url.$wordname);//将filename.doc转换为html格式,并保存为html文件$word->Documents[1]->SaveAs(dirname(__FILE__)."/".$htmlname,8);//获取htm文件内容并输出到页面 (文本的样式不会丢失)$content = file_get_contents($url.$htmlname);echo $content;//获取word文档内容并输出到页面(文本的原样式已丢失)$content= $word->ActiveDocument->content->Text;echo $content;//关闭与COM组件之间的连接$word->Documents->close(true);$word->Quit();$word = null;unset($word);//---------------------------------新建立Word文档操作 START--------------------------------------//建立一个空的word文档$word->Documents->Add();//写入内容到新建word$word->Selection->TypeText("$content");//保存新建的word文档$word->Documents[1]->SaveAs(dirname(__FILE__)."/".$wordname);//关闭与COM组件之间的连接$word->Quit();}php_Word("tesw.doc","filename.html","写入word的内容");?>
jacob中word.application是干什么用的
// 建立一个指向新COM组件的索引 $word = new COM("word.application") or die("Can't start Word!"); $word->Visible = 1; #打开一个新文档 $word->Documents->Add(); #写 $word->Selection->TypeText("This is my a test....."); #存 $word->Documents[1]->SaveAs("D:/tanfanlin.doc"); //打开文档$word->Documents->OPen("D:/tanfanlin.doc");echo $word->ActiveDocument->content->Text;//关闭 word$word->Quit();?>table 需要转换输出
python操作word文档表格
office 2007中不能直接打开VB编辑器,请按Alt + F11打开。
import win32com.client # 导入脚本模块 WordApp = win32com.client.Dispatch("Word.Application") # 载入WORD模块 WordApp.Visible = True # 显示Word应用程序 1、 新建Word文档 doc = WordApp.Documents.Add() # 新建空文件 doc = WordApp.Documents.Open(r"d:\2011专业考试计划.doc") # 打开指定文档 doc.SaveAs(r"d:\2011专业考试计划.doc") # 文档保存 doc.Close(-1) # 保存后关闭,doc.Close()或doc.Close(0)直接关闭不保存 2、 页面设置 doc.PageSetup.PaperSize = 7 # 纸张大小, A3=6, A4=7 doc.PageSetup.PageWidth = 21*28.35 # 直接设置纸张大小, 使用该设置后PaperSize设置取消 doc.PageSetup.PageHeight = 29.7*28.35 # 直接设置纸张大小 doc.PageSetup.Orientation = 1 # 页面方向, 竖直=0, 水平=1 doc.PageSetup.TopMargin = 3*28.35 # 页边距上=3cm,1cm=28.35pt doc.PageSetup.BottomMargin = 3*28.35 # 页边距下=3cm doc.PageSetup.LeftMargin = 2.5*28.35 # 页边距左=2.5cm doc.PageSetup.RightMargin = 2.5*28.35 # 页边距右=2.5cm doc.PageSetup.TextColumns.SetCount(2) # 设置页面分栏=2 3、 格式设置 sel = WordApp.Selection # 获取Selection对象 sel.InsertBreak(8) # 插入分栏符=8, 分页符=7 sel.Font.Name = "黑体" # 字体 sel.Font.Size = 24 # 字大 sel.Font.Bold = True # 粗体 sel.Font.Italic = True # 斜体 sel.Font.Underline = True # 下划线 sel.ParagraphFormat.LineSpacing = 2*12 # 设置行距,1行=12磅 sel.ParagraphFormat.Alignment = 1 # 段落对齐,0=左对齐,1=居中,2=右对齐 sel.TypeText("XXXX") # 插入文字 sel.TypeParagraph() # 插入空行 注:ParagraphFormat属性必须使用TypeParagraph()之后才能二次生效
打开word文档是老出现“遇到问题需要关闭。
。
。
:
相信很多朋友跟我一样都遇见过这个问题,wold文档一双击打不开却弹出对话框提示word遇到问题需要关闭 然后会提示用安全模式打开就只有一个空的word文档然后再从这个空的word文档里将需要的word文档打开又行了 东西没有少 但是这样很麻烦啊!那好,卸载了word再重新装了一次,还是出现同样的问题,其实这个情况是因为word文档模板损坏,删掉坏的模板就可以了。
使用WORD关闭处理.BAT一键解决。
用记事本新建“WORD关闭处理.BAT”,将下列代码拷贝保存运行即可;不会建文件的,给个邮箱发给给你。
@echo offcolor 07@ ECHO --------------------------------------------------------------------------------@ ECHO 打开WORD文档出错提示:@ ECHO Microsoft Office Word 遇到问题需要关闭。
我们对此引起的不便表示抱歉。
@ ECHO 您正在处理的信息有可能丢失。
Microsoft Office Word 可以尝试为您恢复。
@ ECHO --------------------------------------------------------------------------------@ ECHO 系统询问是否需要发送错误报告,不论选择哪一个,循环重启Word,重复出@ ECHO 现相同警告对话框。
之后出现“安全模式启动WORD”,确定出现WORD空白页。
@ ECHO --------------------------------------------------------------------------------echo ◆echo 本BAT处理将尝试为你修复以上问题。
如有其echo 它疑问,请到hi.baidu.com/masoso留言询问。
echo ◆@ ECHO --------------------------------------------------------------------------------echo 注意:请先关闭所有Word文档程序,按任意键开始修复......@ ECHO --------------------------------------------------------------------------------pause>nuldel /f /s /q "%userprofile%\local settings\temp\*.*"del /f /s /q "%appdata%\microsoft\Templates\*.dot"del /f /s /q "%appdata%\microsoft\Word\Startup\*.dot"start winwordcolor 07@ ECHO --------------------------------------------------------------------------------@ ECHO BAT程序执行完毕,请按任意键退出...@ ECHO --------------------------------------------------------------------------------pause>nul
如何在php中插入word表格
一般,有2种方法可以导出doc文档,一种是使用com,并且作为php的一个扩展库安装到服务器上,然后创建一个com,调用它的方法。
安装过office的服务器可以调用一个叫word.application的com,可以生成word文档,不过这种方式我不推荐,因为执行效率比较低(我测试了一下,在执行代码的时候,服务器会真的去打开一个word客户端)。
理想的com应该是没有界面的,在后台进行数据转换,这样效果会比较好,但是这些扩展一般需要收费。
转载请注明出处51数据库 » com word.application