资源描述：
《Word、Excel之宏应用问答.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、QQ:有没有办法得到一个excle表的行的总数和列的总数？？AA:xlSheet.UsedRange.Rows.CountxlSheet.UsedRange.Cols.CountQQ:如何打开一个word的模板！最近做一个word的模板程序，打开word是SetNewDoc=MyWord.Documents.Add这是一个新的doc,名字叫文档1（后面会累加，自动的），但是现在我希望直接新建打开一个我写好的模板程序，名字还是叫文档1。请问应该怎么写！AA:OnErrorResumeNext'忽略错误SetWrd=GetObject(,"Word.Applicat
2、ion")'查找一个正在运行的Word拷贝IfErr.Number<>0Then'如果Word没有运行则SetWrd=CreateObject("Word.Application")'运行它EndIfErr.Clear'清除发生错误的Err对象OnErrorGoTo0'保留普通错误进程DimdotAsStringDimdocAsStringWrd.Visible=truedot="C:temp.dot"doc="c:temp.doc"Documents.OpenFileName:=dot,_ConfirmConversions:=False,ReadOnly
3、:=True,AddToRecentFiles:=False,_PasswordDocument:="",PasswordTemplate:="",Revert:=False,_WritePasswordDocument:="",WritePasswordTemplate:="",Format:=_0Wrd.ActiveDocument.CloseWrd.Documents.AddTemplate:=dot,NewTemplate:=False'结果系列操作ActiveDocument.SaveAsFileName:=doc,FileFormat:=wdForm
4、atDocument,_LockComments:=False,Password:="",AddToRecentFiles:=True,WritePassword_:="",ReadOnlyRecommended:=False,EmbedTrueTypeFonts:=False,_SaveNativePictureFormat:=False,SaveFormsData:=False,SaveAsAOCELetter:=_False'打印出来ActiveDocument.PrintOutFileName:=doc,Range:=wdPrintAllDocument
5、,Item:=_wdPrintDocumentContent,Copies:=1,Pages:="",PageType:=wdPrintAllPages,_ManualDuplexPrint:=False,Collate:=True,Background:=True,PrintToFile:=_False,PrintZoomColumn:=0,PrintZoomRow:=0,PrintZoomPaperWidth:=0,_PrintZoomPaperHeight:=0Wrd.ActiveDocument.CloseWORD中打字Selection.TypeTex
6、tText:="您好，先生"如何让Word的保存命令调用我自己编写的保存方法？在doc文档被修改以后，在退出的时候当提示用户文档已经修改，问是否保存和直接点击保存按钮的时候，能否让Word去调用我自己编写的SaveDoc方法，如何实现？创建名为“FileSave”的宏，把你的代码写入在这个宏中。当点击“保存”按钮或退出程序要求“保存”时，都会直接执行你的“FileSave”宏，而不再执行Word的内置命令。怎么样判断Word文档中有没有图片?Word里的图片包括两种（据我所知），楼上的漏掉了InlineShapesIfActiveDocument.Shapes.
7、Count+ActiveDocument.InlineShapes.Count>0ThenMsgBox"esit"ElseMsgBox"Documentdoesn'tcontainashape"EndIfQQ：怎样在程序中把图片写入到ｗｏｒｄ中。AA：功能是：在指定位置插入图片并设置图片的格式（包括设置为衬托于文字下 方）Sub设置图片格式()Selection.InlineShapes.AddPictureFileName:="D:Mypicture800x600.jpg",_LinkToFile:=False,SaveWithDocument:=T
8、rueSelection
