Word、Excel之宏应用问答.docxVIP

QQ:有没有办法得到一个excle表的行的总数和列的总数？？AA:xlSheet.UsedRange.Rows.CountxlSheet.UsedRange.Cols.CountQQ:如何打开一个word的模板！最近做一个word的模板程序，打开word是Set NewDoc = MyWord.Documents.Add这是一个新的doc,名字叫文档1（后面会累加，自动的），但是现在我希望直接新建打开一个我写好的模板程序，名字还是叫文档1。请问应该怎么写！AA:On Error Resume Next 忽略错误Set Wrd = GetObject(, Word.Application) 查找一个正在运行的Word拷贝If Err.Number 0 Then 如果 Word 没有运行则Set Wrd = CreateObject(Word.Application) 运行它End IfErr.Clear 清除发生错误的 Err 对象On Error GoTo 0 保留普通错误进程Dim dot As StringDim doc As StringWrd.Visible =truedot = C:\temp.dotdoc = c:\temp.docDocuments.Open FileName:=dot, _ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, _PasswordDocument:=, PasswordTemplate:=, Revert:=False, _WritePasswordDocument:=, WritePasswordTemplate:=, Format:= _0Wrd.ActiveDocument.CloseWrd.Documents.Add Template:=dot, NewTemplate:=False结果系列操作ActiveDocument.SaveAs FileName:=doc, FileFormat:=wdFormatDocument, _LockComments:=False, Password:=, AddToRecentFiles:=True, WritePassword _:=, ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _False打印出来ActiveDocument.PrintOut FileName:=doc, Range:=wdPrintAllDocument, 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.TypeText Text:=您好，先生如何让Word的保存命令调用我自己编写的保存方法？在doc文档被修改以后，在退出的时候当提示用户文档已经修改，问是否保存和直接点击保存按钮的时候，能否让Word去调用我自己编写的SaveDoc方法，如何实现？创建名为“FileSave”的宏，把你的代码写入在这个宏中。当点击“保存”按钮或退出程序要求“保存”时，都会直接执行你的“FileSave”宏，而不再执行Word的内置命令。怎么样判断Word文档中有没有图片?Word里的图片包括两种（据我所知），楼上的漏掉了InlineShapesIf ActiveDocument.Shapes.Count + ActiveDocument.InlineShapes.Count 0 ThenMsgBox esitElseMsgBox Document doesnt contain a shapeEnd IfQQ：怎样在程序中把图片写入到ｗｏｒｄ中。AA：功能是：在指定位置插入图片并设置图片的格式（包括设置为衬托于文字下　　　　方）Sub 设置图片