✔ Programação GLOBAL®: VBA Word - Exemplos de Códigos - T a Z

Termo de Responsabilidade

« T »

Table of Contents, Update Page Numbers Only:

ActiveDocument.TablesOfContents(1).UpdatePageNumbers

Table, Go to 1st Table in Document:

Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, _ Count:=1, Name:=""

Table, Show Table Gridlines:

ActiveWindow.View.TableGridlines = True

Table, Take Borders Off Table:

With Selection.Cells .Borders(wdBorderLeft).LineStyle = wdLineStyleNone With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth075pt .ColorIndex = wdAuto End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth075pt .ColorIndex = wdAuto End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth075pt .ColorIndex = wdAuto End With .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth050pt .DefaultBorderColorIndex = wdAuto End With

Table, Total the Numbers

Selection.InsertFormula Formula:="=SUM(ABOVE)", _ NumberFormat:="#,##0.00"

Tabs, Clear All:

Selection.ParagraphFormat.TabStops.ClearAll ActiveDocument.DefaultTabStop = InchesToPoints(0.5)

Tabs, Tab Stop, Add:

Selection.ParagraphFormat.TabStops.Add _ Position:=InchesToPoints(6.63), _ Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces

TextBox, Is There Something in a Text Box:

If txtStuff.Text := "" Then MsgBox("There is nothing in the text box") End If

Text File, Open, Write to & Close:

Open "C:\Temp\MyFile.txt" For Output As #1 Write #1, "This is some text." Close #1

Text File, Open, Read Data Into Variables & Close:

This example assumes that "C:\Temp\MyFile.txt" is a text file with a few lines of text in it, each line containing a string in quotations and a number separated by a comma. For example:

"Howdy Doodie", 12345 "Good Morning", 67890

Dim MyString, MyNumber Open "C:\Temp\MyFile.txt" For Input As #1 Do While Not EOF(1) 'Loop until end of file Input #1, MyString, MyNumber 'Read data into two variables MsgBox (MyString & " " & MyNumber) 'Show variable contents in message box Loop Close #1

« U »

Underline, Turn On Single Underline:

Selection.Font.Underline = wdUnderlineSingle

Underline, Turn Off Single Underline:

Selection.Font.Underline = wdUnderlineNone

Unload Forms - Unload All of Them (i.e., at End of Program):

Dim frm as Userform For Each frm in Userforms Unload frm Next frm

User Info, Set User Initials in Tools, User Info:

Application.UserInitials = "[initials]" OR (If getting user initials from an .ini file:) Application.UserInitials = System.PrivateProfileString(strIniFile, _ "Initials", strUserName) OR Application.UserInitials = strUserInitials

User Info, Set User Name in Tools, User Info:

Application.UserName = "[UserName]" OR Application.UserName = cbxUserName.Value OR Application.UserName = strUserName

« V »

Value, Get Value of a Number From a String:

intNumber = Val(txtNumber.Text)

Variable, Declare:

Note: "Dim" stands for "Dimension" Dim [VariableName] as [TypeOfVariable] Example: Dim strName as String There are many kinds of Variables and ways to declare them. Look under VBA "Help" for a listing and explanation.

View, Bookmarks:

ActiveWindow.View.ShowBookmarks = True

View, Current Page Header:

ActiveWindow.ActivePane.View.SeekView = _ wdSeekCurrentPageHeader

View, Field Codes (with all the junk):

ActiveWindow.View.ShowFieldCodes = _ Not ActiveWindow.View.ShowFieldCodes With ActiveWindow With .View .ShowFieldCodes = True End With End With

View, Field Codes:

ActiveWindow.View.ShowFieldCodes = True

View, Footer:

ActiveWindow.ActivePane.View.SeekView = _ wdSeekCurrentPageFooter

View, Header:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

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

View, Main View (Close Header or Footer:)

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

View, Options:

Application.DisplayStatusBar = True With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True .DisplayVerticalRuler = True .DisplayScreenTips = True With .View .ShowAnimation = True .ShowPicturePlaceHolders = False .ShowFieldCodes = False .ShowBookmarks = False .FieldShading = wdFieldShadingWhenSelected .ShowTabs = False .ShowSpaces = False .ShowParagraphs = False .ShowHyphens = False .ShowHiddenText = False .ShowAll = True .ShowDrawings = True .ShowObjectAnchors = False .ShowTextBoundaries = False .ShowHighlight = True End With End With