Public Sub ReplaceWord(ByVal vWord As Variant, ByVal sOld As String, ByVal sNew As String)
Const wdReplaceAll = 2
Const wdFindStop = 0
Dim oRange As Object
Set oRange = vWord.Selection.Range
‘\u5148\u5224\u65ad\u662f\u5426\u6709\u9009\u4e2d\u533a\u57df\uff0c\u6ca1\u6709\u9009\u4e2d\u5219\u8868\u793a\u6574\u4e2a\u6587\u6863
If oRange.Start = oRange.End Then
Set oRange = vWord.ActiveDocument.Content
End If
With oRange.Find
‘\u6279\u91cf\u67e5\u627e\u66ff\u6362 sOld \u4e3a sNew
bRet = .Execute(FindText:=sOld, replacewith:=sNew, Replace:=wdReplaceAll)
‘Debug.Print bRet
‘Debug.Print oRange.Words.Count
End With
End Sub<\/p>\n\n\n\n
Public Sub InsPageNumber(ByVal vWord As Variant) ‘\u5176\u5b9e\u662f vDocument
On Error GoTo ERR_PAGENUMBER
‘\u8bbe\u7f6eWord\u6587\u6863\u7b2c\u4e00\u9875\u9875\u7801
Dim oRange As Object
Set oRange = vWord.ActiveDocument.Sections(1).Footers(1).Range ‘wdHeaderFooterPrimary = 1
With oRange
.InsertAfter “\u7b2c”
‘.Font.Size = 14
.Collapse Direction:=0 ‘wdCollapseEnd = 0
‘\u63d2\u5165\u9875\u7801\u57df
.Fields.Add Range:=oRange, Type:=-1, Text:=”PAGE * Arabic “, PreserveFormatting:=True ‘wdFieldEmpty = -1
.Expand Unit:=2 ‘wdWord = 2
.InsertAfter “\u9875”
.InsertAfter “\u5171”
.Collapse Direction:=0 ‘wdCollapseEnd = 0
‘\u63d2\u5165\u9875\u6570\u57df
.Fields.Add Range:=oRange, Type:=-1, Text:=”NUMPAGES * Arabic “, PreserveFormatting:=True ‘wdFieldEmpty = -1
.Expand Unit:=2 ‘wdWord = 2
.InsertAfter “\u9875”
‘.InsertAfter “YagerSoft”
.ParagraphFormat.Alignment = 2 ‘wdAlignParagraphRight = 2 ‘\u53f3\u5bf9\u9f50
End With
‘\u9690\u85cf\u9875\u7709\u7684\u6a2a\u7ebf
vWord.ActiveDocument.Sections(1).Headers(1).Range.Borders(-3).Visible = False ‘wdBorderBottom = -3
‘\u53d6\u5f97\u9875\u7709\u7684\u5185\u5bb9
‘Debug.Print vWord.ActiveDocument.Sections(1).Headers(2).Range.Text ‘wdHeaderFooterFirstPage = 2
Set oRange = Nothing
On Error GoTo 0
Exit Sub
ERR_PAGENUMBER:
On Error GoTo 0
End Sub<\/p>\n\n\n\n
Public Sub InsPageBreak(ByVal vWord As Variant)
On Error GoTo ERR_BREAK
‘wdPropertyTitle = 1\u6807\u9898
‘wdPropertySubject = 2\u4e3b\u9898
‘wdPropertyAuthor = 3\u4f5c\u8005
‘wdPropertyKeywords = 4\u5173\u952e\u8bcd
‘wdPropertyComments = 5\u6279\u6ce8
‘wdPropertyTemplate = 6\u6a21\u677f
‘wdPropertyLastAuthor = 7\u4e0a\u4e00\u4e2a\u4f5c\u8005
‘wdPropertyRevision = 8\u4fee\u8ba2\u6b21\u6570
‘wdPropertyAppName = 9\u5e94\u7528\u7a0b\u5e8f\u540d
‘wdPropertyTimeLastPrinted = 10\u4e0a\u6b21\u6253\u5370\u65f6\u95f4
‘wdPropertyTimeCreated = 11\u521b\u5efa\u65f6\u95f4
‘wdPropertyTimeLastSaved = 12\u4e0a\u6b21\u4fdd\u5b58\u65f6\u95f4
‘wdPropertyVBATotalEdit = 13\u7f16\u8f91\u65f6\u95f4\u603b\u8ba1
‘wdPropertyPages = 14\u9875\u6570
‘wdPropertyWords = 15\u5b57\u6570
‘wdPropertyCharacters = 16\u5b57\u7b26\u6570
‘wdPropertySecurity = 17\u5b89\u5168\u6027
‘wdPropertyCategory = 18\u7c7b\u522b
‘wdPropertyFormat = 19
‘wdPropertyManager = 20\u7ecf\u7406
‘wdPropertyCompany = 21\u516c\u53f8
‘wdPropertyBytes = 22\u5b57\u8282\u6570
‘wdPropertyLines = 23\u884c\u6570
‘wdPropertyParas = 24\u6bb5\u6570(\u7a7a\u767d\u6587\u6863 BuiltInDocumentProperties(wdPropertyParas) = 0\uff0c\u800c vWord.ActiveDocument.Paragraphs.Count = 1)
‘wdPropertySlides = 25
‘wdPropertyNotes = 26\u6ce8\u91ca
‘wdPropertyHiddenSlides = 27
‘wdPropertyMMClips = 28
‘wdPropertyHyperlinkBase = 29
‘wdPropertyCharsWSpaces = 30\u5b57\u7b26\u6570\uff08\u8ba1\u7a7a\u683c\uff09
If vWord.ActiveDocument.BuiltInDocumentProperties(15) = 0 Then Exit Sub ‘wdPropertyWords = 15
vWord.Selection.EndKey Unit:=6 ‘wdStory = 6 ‘\u5c06\u5149\u6807\u79fb\u5230\u6700\u540e
vWord.Selection.InsertBreak Type:=7 ‘wdPageBreak = 7 ‘\u63d2\u5165\u5206\u9875\u7b26
On Error GoTo 0
Exit Sub
ERR_BREAK:
On Error GoTo 0
End Sub<\/p>\n\n\n\n
Public Function FindWord(ByVal vWord As Variant, ByVal sData As String) As Boolean
Dim oSelection As Object
Set oSelection = vWord.ActiveDocument.Content
‘\u5229\u7528FIND\u67e5\u627e sData \uff0c\u4ece\u5149\u6807\u4e4b\u5904\u5f00\u59cb\u67e5\u627e\uff0c\u67e5\u627e\u5230\u540e\u9009\u4e2d\u3002
With oSelection.Find
‘\u67e5\u627e\u7684\u65b9\u5411\u5411\u4e0b
.Forward = True
‘\u53d6\u6d88\u5728\u67e5\u627e\u6216\u66ff\u6362\u64cd\u4f5c\u4e2d\u6240\u6307\u5b9a\u6587\u672c\u7684\u6587\u672c\u683c\u5f0f\u548c\u6bb5\u843d\u683c\u5f0f
.ClearFormatting
‘\u67e5\u627e\u64cd\u4f5c\u67e5\u627e\u4ec5\u5b8c\u6574\u5355\u8bcd\uff0c\u800c\u4e0d\u662f\u8f83\u957f\u5355\u8bcd\u7684\u4e00\u90e8\u5206\u7684\u6587\u672c
.MatchWholeWord = True
‘\u67e5\u627e\u65f6\u4e0d\u533a\u5206\u5927\u5c0f\u5199
.MatchCase = False
‘\u5230\u8fbe\u6587\u6863\u672b\u5c3e\u65f6\uff0c\u7ee7\u7eed\u4ece\u6587\u6863\u5f00\u5934\u8fdb\u884c\u641c\u7d22
.Wrap = 1 ‘wdFindContinue
‘\u8fd0\u884c\u6307\u5b9a\u7684\u67e5\u627e\u64cd\u4f5c\u3002\u5982\u679c\u67e5\u627e\u6210\u529f\uff0c\u5219\u8fd4\u56de True
.Execute FindText:=sData
End With
FindWord = oSelection.Find.Execute
End Function<\/p>\n\n\n\n
Public Function GetTextSite(ByVal vWord As Variant, ByVal sText As String) As Integer ‘\u8fd4\u56de sText \u5728 vWord \u4e2d\u9996\u6b21\u51fa\u73b0\u7684\u6bb5\u53f7
‘\u8017\u65f6\u8fc7\u957f\u4e0d\u5b9c\u7528
Dim I As Integer, J As Integer
GetTextSite = 0
If vWord Is Nothing Then Exit Function
If vWord.Documents.Count = 0 Then Exit Function
If sText = “” Then Exit Function
For I = 1 To vWord.ActiveDocument.Paragraphs.Count
DoEvents
‘If vWord.ActiveDocument.Paragraphs(I).Range.Text = sText Then
If InStr(1, vWord.ActiveDocument.Paragraphs(I).Range.Text, sText, vbTextCompare) > 0 Then
GetTextSite = I
Exit For
End If
Next I
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"