Be the first user to complete this post
|
Add to List |
VBA-Excel: Format already written text in a word document – Format Paragraphs
To Format already written text in a word document – Format Paragraphs - Microsoft Word Document using Microsoft Excel, you need to follow the steps below:
- Create the object of Microsoft Word
- Create Doc object using MS word object, Open the existing word document by providing the complete path
- Make the MS Word visible
- Get the paragraphs count
- Get the paragraph object using Paragraphs.Range
- Do the formatting
- Save the word document
- Close the word document
Create the object of Microsoft Word
Set objWord = CreateObject(“Word.Application”)
Create Doc object using MS word object, Open the existing word document by providing the complete path
Set objDoc = objWord.Documents.Open("D:\OpenMe.docx")
Make the MS Word Visible
objWord.Visible = True
Get the paragraphs count
objDoc.Paragraphs.Count
Get the paragraph object using Paragraphs.Range
objDoc.Paragraphs(i).Range
Do the formatting
objParagraph.Font.Name = "Times New Roman"
Save the Word Document
objDoc.Save
Close the word document
objWord.Quit
Complete Code:
Function FnFormatParagraph() Dim objWord Dim objDoc Dim intParaCount Dim objParagraph Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("D:\OpenMe.docx") objWord.Visible = True intParaCount = objDoc.Paragraphs.Count 'MsgBox intParaCount For i = 1 To intParaCount Set objParagraph = objDoc.Paragraphs(i).Range objParagraph.Font.Name = "Times New Roman" objParagraph.Font.Size = 5 + (i * 8) objParagraph.Font.Bold = True objParagraph.Font.Color = RGB((i * 100), (i * 50), 0) Next objDoc.Save objWord.Quit End Function
Also Read:
- VBA-Excel: Find a word in a specific paragraph and change its formatting
- VBA-Excel: Edit And Save an Existing Word Document
- VBA-Excel: Enumerate all the opened word document
- Send Mail With Link to a Workbook, From MS Outlook using Excel.
- VBA-Excel: Consolidator – Merge or Combine Multiple Excel Files Into One