VBA Word - Exemplos de Códigos - D a K - Em ordem alfabética.

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:

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:






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:

With Selection.Font    .Hidden = True    .ColorIndex = wdRed [or] wdAuto End With 

Footer, View Footer:

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,