1．如何打开一个word的模板？

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

这是一个新的doc,名字叫文档1（后面会累加，自动的），但是现在我希望直接新建打开一个我写好的模板程序，名字还是叫文档1。请问应该怎么写！

On Error Resume Next

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

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

  Set Wrd = CreateObject("Word.Application") '运行它

End If

Err.Clear ‘'清除发生错误的 Err 对象

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

Dim dot As String

Dim doc As String

Wrd.Visible =true

dot = "C:\temp.dot"

doc = "c:\temp.doc"

Documents.Open FileName:=dot, ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", Format:= 0

Wrd.ActiveDocument.Close

Wrd.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.Close

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

在doc文档被修改以后，在退出的时候当提示用户文档已经修改，问是否保存和直接点击保存按钮的时候，能否让Word去调用我自己编写的SaveDoc方法，如何实现？

创建名为“FileSave”的宏，把你的代码写入在这个宏中。当点击“保存”按钮或退出程序要求“保存”时，都会直接执行你的“FileSave”宏，而不再执行Word的内置命令。

3.怎么样判断Word文档中有没有图片?

If ActiveDocument.Shapes.Count + ActiveDocument.InlineShapes.Count > 0 Then

MsgBox "exsit"

Else

MsgBox "Document doesn't contain a shape"

End If

4.如何能够返回 一个编号对应的一个标题和一段话?

Dim dcApp As Word.ApplicationDim dcWd As Word.Document

Private Sub Form_Load()Set dcApp = New Word.ApplicationSet dcWd = dcApp.Documents.Open("c:\rpt.doc")

For i = 1 To dcWd.Paragraphs.Count  Debug.Print dcWd.Paragraphs(i).Range.TextNext

dcWd.CloseSet dcWd = NothingdcApp.QuitSet dcApp = NothingEnd Sub

5. 如何用vb实现在word的bookmark后插入字符?

在word模版中指定了boolmark:a,Dim wrdapp As Word.ApplicationDim wrddoc As Word.DocumentDim strFileName As StringDim i As Variantdim s as string

s="要插入的字符"Set wrdapp = CreateObject("Word.Application")strFileName = App.Path & "\temp.dot"Set wrddoc = wrdapp.Documents.Open(strFileName)i = wrddoc.Range.GoTo(wdGoToBookmark, , , "a")后面该如何写，才能将s插入到bookmark后面？另外我上面的代码正确吗？

6.在word文档中搜索单词“审稿人”，将光标移到它后面，插入图片？

wordApp.Find.ClearFormattingwordApp.Find.Text = "审稿人"wordApp.Find.Replacement.Text = ""wordApp.Find.Forward = TruewordApp.Find.Wrap = wdFindContinuewordApp.Find.Format = FalsewordApp.Find.MatchCase = FalsewordApp.Find.MatchWholeWord = FalsewordApp.Find.MatchByte = TruewordApp.Find.CorrectHangulEndings = FalsewordApp.Find.MatchAllWordForms = FalsewordApp.Find.MatchSoundsLike = FalsewordApp.Find.MatchWildcards = FalsewordApp.Find.MatchFuzzy = False

wordApp.Find.Execute

7.如何将加载的菜单不是以悬浮的菜单形式出现？

CommandBar的Position属性设置

8.将word文件保存为纯文本?

Private Sub Command1_Click()Dim oW As Object, oD As Object, x As ObjectSet oW = CreateObject("word.application")Set oD = oW.documents.open("c:\aaa.doc")'oW.Visible = TrueFor Each x In oD.wordsText1 = Text1 & xNext xOpen "c:\bbb.txt" For Output As #1Print #1, Text1Close #1oW.quitEnd Sub

9.:怎么在一个word文档的最后插入东西？

本示例在名为“Changes.doc”的文档末尾插入文本。“For Each...Next”语句用来判断此文档是否已打开。

For Each aDocument In Documents

  If  InStr(LCase$(aDocument.Name), "changes.doc")  Then

     Set myRange = Documents("Changes.doc").Content

     myRange.InsertAfter "the end."

  End If

Next aDocument

10.在WORD的宏里如何编写查询页数和行数？

ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)

ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)

如何自动替换掉手工换行符?

Sub blankdel()

Dim i As Integer

For i = ActiveDocument.Paragraphs.Count To 1 Step -1

ActiveDocument.Paragraphs(i).Range.Select

a = Selection.Words.Count

If  a = 1 Then

Selection.Delete

m = m + 1

End  If

Next  i

MsgBox "共删除空白段落" & m & "个"

End  Sub

按ALT+F11,把代码COPY进去运行一下就行了

11.如何用word对象中控制word的分页？

Set pword = CreateObject("Word.Application")pword.Documents.Add dotName, Falsepword.WindowState = 2 'wdWindowStateMinimize '2

pword.Selection.InsertBreak wdPageBreak

12.如何控制用户只能修改Word文件的部分内容，所以需要设置部分区域为只读?

Selection.InsertBreak Type:=wdSectionBreakContinuousActiveDocument.Sections(1).ProtectedForForms = FalseActiveDocument.Sections(2).ProtectedForForms = TrueActiveDocument.Protect Password:="", NoReset:=False, Type:= _wdAllowOnlyFormFields

13.Word中怎么插入图片的?

Dim myShape As ShapeDim MyInshape As InlineShape'插入一个嵌入式图片对象Set MyInshape = Selection.InlineShapes.AddPicture(FileName:="D:\pic001.jpg", _LinkToFile:=False, SaveWithDocument:=True)'将InlineShape对象转变为Shape对象Set myShape = MyInshape.ConvertToShape'使图片浮于文字上方myShape.WrapFormat.Type = wdWrapNone

14.如何访问Word表格单元格内容？

objWordDoc.Tables(3).Cell(1, 1).Range.Text

15．得到一个excle表的行的总数和列的总数？

xlSheet.UsedRange.Rows.CountxlSheet.UsedRange.Cols.Count