VBA Code


When modifying text it is not necessary to select the text before modifying it

activedocument.content.paragraphformat.space 2 

Dim objParagraph As Paragraph 
Set objParagraph = ActiveDocument.Paragraphs(2)
objParagraph.Alignment = wdParagraphAlignment.wdAlignParagraphLeft

Dim objRange As Range 
Set objRange = ActiveDocument.Paragraphs(2).Range
objRange.Font.Bold = True | False

Dim objFont As Font 
Set objFont = ActiveDocument.Paragraphs(2).Range.Font
objFont.Bold = True | False

objDocument.EmbedTrueTypeFonts = 

These two lines are equivalent

objDocument.Paragraphs(2).SpaceBefore = 0

objDocument.Paragraphs(2).SpaceAfter = 0 

Dim objParagraphFormat 
objParagraphFormat = objParagraph.Format

The Range property returns a Range object that represents the portion of a document that is contained in the paragraph

objRange = objParagraph.Range 
objRange.Text = "some text"
objRange.Font.Name = "Arial"

All the properties and methods of the ParagraphFormat object are also properties and methods of the Paragraph object except the Duplicate property.

activedocument.range(start := mydoc.sentances(2).start, end := mydoc.sentances(4).end) 

Manipulates the currently selected paragraph

With Selection.Paragraphs(1).Range 
   .Font.Bold = False
End With

Get the Index number of the current paragraph

Define a range from the start of the document to the end of the first selected paragraph

Msgbox (ActiveDocument.Range(0,Selection.Paragraphs(1).Range.End).Paragraphs.Count) 

Selection.Sections(1) or Selection.Tables(1)

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 

Selection.ParagraphFormat.LeftIndent = InchesToPoints(2) 
Selection.ParagraphFormat.RightIndent = InchesToPoints(2)

Looping through all

Sub LoopAll 
Dim oCurrentParagraphs As Word.Range
Dim oParagraph As Word.Paragraph
Dim lParagraphNo As Long

   Application.Selection.HomeKey Unit:=WdUnits.wdStory, Extend:=WdMovementType.wdMove
   Do Until ((Selection.End = ActiveDocument.Content.End) Or _
             (Selection.End = ActiveDocument.Content.End - 1))
      Set oParagraph = Selection.Paragraphs(1)

      Set oCurrentParagraphs = ActiveDocument.Range(Start:=0, End:=oParagraph.Range.End)
      lParagraphNo = oCurrentParagraphs.Paragraphs.Count

      If (Paragraph_DisplaysBullet(oParagraph.Range) = True) Then
         Debug.Print "Paragraph: " & lParagraphNo & " - has a bullet"
      End If
      Selection.MoveDown Unit:=WdUnits.wdParagraph, Count:=1, Extend:=WdMovementType.wdMove
End Sub

Line Breaks


© 2023 Better Solutions Limited. All Rights Reserved. © 2023 Better Solutions Limited TopPrevNext