2024年5月3日发(作者：)

8月3日

这些VBA代码会有用

QQ:有没有办法得到一个excle表的行的总数和列的总数？？

AA:

QQ:

如何打开一个word的模板！

最近做一个word的模板程序，打开word是Set NewDoc =

这是一个新的doc,名字叫文档1（后面会累加，自动的），但是现在我希望直接新建打

开一个我写好的模板程序，名字还是叫文档1。请问应该怎么写！

AA:

On Error Resume Next '忽略错误

Set Wrd = GetObject(, "ation") '查找一个正在运行的Word拷贝

If <> 0 Then '如果 Word 没有运行则

Set Wrd = CreateObject("ation") '运行它

End If

'清除发生错误的 Err 对象

On Error GoTo 0 '保留普通错误进程

Dim dot As String

Dim doc As String

e =true

dot = "C:"

doc = "c:"

FileName:=dot, _

ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, _

PasswordDocument:="", PasswordTemplate:="", Revert:=False, _

WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _

0

Template:=dot, NewTemplate:=False

'结果系列操作

FileName:=doc,

FileFormat:=wdFormatDocument, _

LockComments:=False, Password:="", AddToRecentFiles:=True,

WritePassword _

:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False,

SaveAsAOCELetter:= _

False

'打印出来

ut 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:=0

WORD中打字

xt Text:="您好，先生"

如何让Word的保存命令调用我自己编写的保存方法？

在doc文档被修改以后，在退出的时候当提示用户文档已经修改，问是否保存

和直接点击保存按钮的时候，能否让Word去调用我自己编写的SaveDoc方法，