VBA to make text Bold

Shiva98189
Beginner
A moment ago


Friends I Have created the following VBA code to fill the word document at particular Bookmark now I want to Bold and underline the inserted word

# Option Explicit

Const FilePath As String = "C:\Users\91897\Desktop\VBA\AgriDocument\print\"
Sub CreateagriDocument()
Dim ws As Worksheet
Dim wrdrange As Range


Set ws = ThisWorkbook.Sheets("Sheet1")
Dim objWord As Object

Set objWord = CreateObject("Word.Application")

objWord.Visible = True
objWord.Documents.Open ("C:\Users\91897\Desktop\VBA\AgriDocument\DOC_TEMPLATE\SD21IMCLR.doc")
With objWord.ActiveDocument
.Bookmarks("cus1name").Range.Text = ws.Range("B4").Value
.Bookmarks("Place").Range.Text = ws.Range("B14").Value
.Bookmarks("date").Range.Text = ws.Range("B11").Value
.Bookmarks("rsfig").Range.Text = ws.Range("B12").Value
.Bookmarks("rsword").Range.Text = ws.Range("B13").Value
.Bookmarks("percentoverbr").Range.Text = ws.Range("B17").Value








.SaveAs2 FilePath & ws.Range("B4").Value & "SD21IMCLR" & ".doc"

objWord.Quit
Set objWord = Nothing
MsgBox "FILLED DOCUMENTS CREATED IN FOLDER 'AUTO_DOCUMENTATION' IN D: DRIVE!"

End With

End Sub


Kindly Help

Thanking You

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I did it for you this time. Please read forum rules. Thanks