Toggle showing text boundaries

  With ActiveDocument.ActiveWindow.View
        .ShowTextBoundaries = Not .ShowTextBoundaries
    End With

Comments

Post a Comment

Popular posts from this blog

Adding text

Assign text to paragraph ActiveDocument.Paragraphs(1).Range.Text = "New text for Paragraph 1" After current text, type a new paragraph and format it  With Selection             ' Do not accidentally over-write selected text             .Collapse Direction:=wdCollapseStart 'Type new line             .TypeParagraph             .Style = ActiveDocument.Styles(wdStyleNormal)             .TypeText Text:="Your written text"         End With
Read more

Interacting with another app

Creating a new word document Set wrd = CreateObject("Word.Application") wrd.Documents.Add wrd.Visible = True Setting the start up path wrd.Options.DefaultFilePath(wdStartupPath) = "c:\user\" Quitting word wrd.Quit Starting word from another app Set wrd = CreateObject("Word.Application") Create and launch another app from Word Set myobject = CreateObject("Excel.Application") MsgBox myobject.StartupPath Set myobject = Nothing Using DDE Channel to send data to another app, like excel: Dim lngChannel As Long lngChannel = DDEInitiate(App:="Excel", Topic:="System") DDEExecute Channel:=lngChannel, Command:="[OPEN(" &; Chr(34) _  &; "C:\NameOfExcelFile.xls" &; Chr(34) &; ")] DDETerminate Channel:=lngChannel lngChannel = DDEInitiate(App:="Excel", Topic:="NameOfExcelFile.xls") 'Go to row 1 column 1 and key in data DDEPoke C...
Read more