Termo de Responsabilidade
« D »
Delete:
Selection.Delete Unit:=wdCharacter, Count:=1
Directory, Exists: This particular code determines whether your computer has a C:\Windows\Temp directory (you are running Windows) or a C:\WINNT\Temp directory (you are running NT); of course, you can use this function to determine whether any directory exists (for example, if SomeDir exists, great; elseif SomeDir doesn't exist, then create it, etc.)
Dim strTempDirPath as String Const strNTTempDirPath as String = "C:\WINNT\Temp" Const strWindowsTempDirPath as String = "C:\Windows\Temp" If Dir(strNTTempDirPath, vbDirectory) <> "" Then StrTempDirPath = strNTTempDirPath MsgBox ("The directory " + strTempDirPath + " exists.") ElseIf Dir(strWindowsTempDirPath, vbDirectory) <> "" Then StrTempDirPath = strWindowsTempDirPath MsgBox ("The directory " + strTempDirPath + " exists.") End If
Document Variable, Set (Create) a Document Variable (NOTE: This refers to a Word Document Variable, as opposed to a Variable used in computer programming):
Dim aVar as Variant Dim iNum as Integer Dim DocumentType as Variant For Each aVar In ActiveDocument.Variables If aVar.Name = "DocumentType" Then iNum = aVar.Index Next aVar If iNum = 0 Then ActiveDocument.Variables.Add Name:="DocumentType", _ Value:="Letter" Else ActiveDocument.Variables("DocumentType").Value = "Letter" End If
Document Variable, Create Draft# Doc Variable if Does Not Yet Exist & Set Document, Draft # to 1 (NOTE: This refers to a Word Document Variable, as opposed to a Variable used in computer programming):
Dim DraftNumber as String Dim aVar as Variant Dim iNum as Integer For Each aVar In ActiveDocument.Variables If aVar.Name = "DraftNumber" Then iNum = aVar.Index Next aVar If iNum = 0 Then ActiveDocument.Variables.Add Name:="DraftNumber", Value:=1 Else ActiveDocument.Variables(iNum).Value = 1 End If
Document Variable, What is the Current DocumentType Document Variable Set To? (NOTE: This refers to a Word Document Variable, as opposed to a Variable used in computer programming)
MsgBox ("The document variable is set to type: " & _ ActiveDocument.Variables("DocumentType").Value)
Document Variable, Check Document Variable Value (NOTE: This refers to a Word Document Variable, as opposed to a Variable used in computer programming):
Dim strDocType as String strDocType = _ ActiveDocument.Variables("[DocumentVariableName]")
Document, Go to Start of Document:
Selection.HomeKey Unit:=wdStory
Document, Go to End of Document:
Selection.EndKey Unit:=wdStory
Document, New, Create a New Document from Another Document (Template, Form Document, etc.):
Documents.Add Template:="C:\Forms\FormDoc.doc", _ NewTemplate:=False
Document, Protect Document:
ActiveDocument.Protect Password:="[password]", _ NoReset:=False, Type:=wdAllowOnlyFormFields
Document, Save Document:
ActiveDocument.Save
Document, SaveAs
ActiveDocument.SaveAs ("C:\Temp\MyFile.doc")
Document, SaveAs (with all the junk):
ActiveDocument.SaveAs FileName:="C:\Temp\MyFile.doc", FileFormat:=wdFormatDocument, LockComments:=False, _ Password:="", AddToRecentFiles:=True, WritePassword:="", _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False
Document, Unprotect Document:
If ActiveDocument.ProtectionType := wdNoProtection Then ActiveDocument.Unprotect Password:="readonly" End If
« E »
Extend, Turn Off Extend Mode:
Selection.ExtendMode = False
« F »
Field Code, Lock Field Code:
Selection.Fields.Locked = True
Field Code, Insert SEQ Field Code:
Selection.Fields.Add Range:=Selection.Range, _ Type:=wdFieldEmpty, Text:="SEQ name \n", _ PreserveFormatting:=True
Field Code, Reset SEQ Field Code to Zero (Restart #ing):
Selection.Fields.Add Range:=Selection.Range, _ Type:=wdFieldEmpty, Text:="SEQ name \r0 \h ", _ PreserveFormatting:=True
Field Code, Sequence Numbering Field Codes With Sub-Levels:
Level 1: Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ Text:="SEQ \L1 \*arabic \c \* MERGEFORMAT", _ PreserveFormatting:=True Level 2: Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ Text:="SEQ \L2 \*alphabetic \c \* MERGEFORMAT", _ PreserveFormatting:=True (etc.)
Field Code, SEQ#, Reset #s to 0:
Selection.Fields.Add _ Range:=Selection.Range, Type:=wdFieldEmpty, _ Text:="SEQ L1 \r0 \h", PreserveFormatting:=True Selection.Fields.Add _ Range:=Selection.Range, Type:=wdFieldEmpty, _ Text:="SEQ L2 \r0 \h", PreserveFormatting:=True
Field Code, Unlock Field Code:
Selection.Fields.Locked = False
Field Code, Update Field Code:
Selection.Fields.Update
Field Code, View Field Codes:
ActiveWindow.View.ShowFieldCodes = True
Field Code, View Field Codes (with all the junk):
ActiveWindow.View.ShowFieldCodes = _ Not ActiveWindow.View.ShowFieldCodes With ActiveWindow With .View .ShowFieldCodes = True End With End With
Find:
Selection.Find.ClearFormatting With Selection.Find .Text = "xxx" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute
Find, Was It Found? (version 1)
If Selection.Find.Found = True Then 'blah blah blah End If
Find, Was It Found? (version 2, thanks to Shawn Wilson)
If Selection.Find.Execute Then 'blah blah blah End If
Find, Field Code:
Selection.Find.ClearFormatting With Selection.Find .Text = "^d" ... [all the other junk, i.e., direction, etc.] End With
Find, Paragraph Mark (Real Paragraph, Not the Symbol):
Selection.Find.ClearFormatting With Selection.Find .Text = "^p" .Forward = True .Wrap = wdFindStop End With Selection.Find.Execute
Find, Replace:
Find, Replace Hard Returns With Manual Line Breaks Within Selected Text:
Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "xxx" .Replacement.Text = "yyy" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll
Find, Replace Hard Returns With Manual Line Breaks Within Selected Text:
Find, Replace Hard Returns With Manual Line Breaks Within Selected Text:
Selection.Extend Selection.Find.ClearFormatting With Selection.Find .Text = "^l" 'L not 1 .Forward = False .Wrap = wdFindStop End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Find.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "^l" 'L not 1 .Forward = True .Wrap = wdFindStop End With Selection.Find.Execute Replace:=wdReplaceAll Selection.MoveRight Unit:=wdCharacter, Count:=1
Font, Set Font Size:
Selection.Font.Size = 12
Font:
Footer, View Footer:
With Selection.Font .Hidden = True .ColorIndex = wdRed [or] wdAuto End With
Footer, View Footer:
Footer, View Footer:
ActiveWindow.ActivePane.View.SeekView = _ wdSeekCurrentPageFooter
Form, Hide a Form:
frmFormName.Hide
Form, Load & Show a Form:
Load frmFormName frmFormName.Show
« G »
GoTo, Go to Bookmark: (This method not suggested for use with bookmarks in Headers/Footers; see "Bookmarks" entries under "B")
Selection.GoTo What:=wdGoToBookmark, Name:="Name"
GoTo, Go to Page 1
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"
« H »
Header, View Current Page Header:
ActiveWindow.ActivePane.View.SeekView = _ wdSeekCurrentPageHeader
Header, View Header (with all the junk):
If ActiveWindow.View.SplitSpecial := wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or _ ActiveWindow.ActivePane.View.Type = wdOutlineView Or _ ActiveWindow.ActivePane.View.Type = wdMasterView Then _ ActiveWindow.ActivePane.View.Type = wdPageView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
« I »
IF Test:
If [condition] Then [Do Something] ElseIf [another condition] Then [Do Something Else] Else [another condition] Then [Do Something Else] End If
Indent, Set Left Indent:
Selection.ParagraphFormat.LeftIndent = InchesToPoints(3.75)
Indent, Set Right Indent:
Selection.ParagraphFormat.RightIndent = InchesToPoints(1)
InputBox, Get & Use Data From an Input Box:
Dim strData as String strData = InputBox("What is the data?") MsgBox (strData)
Insert After:
Selection.InsertAfter "xxx"
Insert an Underlined Tab:
Selection.Font.Underline = wdUnderlineSingle Selection.TypeText Text:=vbTab Selection.Font.Underline = wdUnderlineNone
Insert AutoText:
Selection.TypeText Text:="a3" Selection.Range.InsertAutoText
Insert Date Code (Month Only):
Selection.Fields.Add Range:=Selection.Range, _ Type:=wdFieldEmpty, Text:="DATE \@ ""MMMM""", _ PreserveFormatting:=True
Insert Date Code (Year Only):
Selection.Fields.Add Range:=Selection.Range, _ Type:=wdFieldEmpty, Text:="DATE \@ ""yyyy""", _ PreserveFormatting:=True
Insert File:
Selection.InsertFile ("C:\Docs\Something.doc")
Insert Page Break:
Selection.InsertBreak Type:=wdPageBreak
Insert Paragraph Symbol:
Selection.TypeText Text:=Chr$(182)
Insert Section Symbol:
Selection.TypeText Text:=Chr$(167)
Insert SEQ# Field Code:
Selection.Fields.Add Range:=Selection.Range, _ Type:=wdFieldEmpty, Text:="SEQ name \n", _ PreserveFormatting:=True
Insert Text in Upper Case:
Selection.TypeText Text:=UCase(strStuff) OR Selection.TypeText Text:=UCase(cbxSigBlockAnotherName.Value)
Insert Symbol:
Selection.InsertSymbol CharacterNumber:=8212, _ Unicode:=True, Bias:=0 (This happens to be the symbol for an "M-dash")
Insert Tab:
Selection.TypeText Text:=vbTab
Insert Text (replaces selection if anything is selected):
Selection.TypeText Text:=txtStuff.text [or] "Hello" [or] strText
Insert Text After Position of Cursor (does not replace selection; appends text to end of selection:
Selection.InsertAfter txtStuff.text [or] "Hello" [or] strText
Insert Various Characters:
Selection.TypeText Text:=vbTab 'Tab Selection.TypeText Text:=vbCrLf 'Para Return
Insert, Type Paragraph:
Selection.TypeParagraph
« J »
« K »
Reference::
Tags: Application, Automation, Macro, Microsoft, MS, Office, VBA, Word, code, bookmark,
