![]() |
|
|
Thread Tools | Display Modes |
#10
|
|||
|
|||
![]()
Thanks sir and where we keep our word document in below code. I mean where we open the word doc and paste the paragraph in below code.
Private Sub AddPara(oDoc As Document, sText As String) Dim oRng As Range Dim oShape As Range Dim bProtected As Boolean 'Unprotect the file If oDoc.Tables.Count < 3 Then MsgBox "Incompatible document", vbCritical GoTo lbl_Exit End If If Not oDoc.ProtectionType = wdNoProtection Then bProtected = True oDoc.Unprotect Password:="" End If Set oRng = oDoc.Tables(3).Range.Cells(2).Range oRng.End = oRng.End - 1 'If you want to keep the content of the text box..... If oRng.ShapeRange.Count > 0 Then oRng.ShapeRange(1).Select Set oShape = oDoc.Tables(3).Range.Cells(4).Range oShape.Collapse 1 oShape.Text = vbCr oShape.Collapse 0 oShape.FormattedText = Selection.FormattedText End If '..... end of text box code oRng.Text = sText 'Reprotect the document. If bProtected = True Then oDoc.Protect _ Type:=wdAllowOnlyFormFields, _ NoReset:=True, _ Password:="" End If lbl_Exit: Set oRng = Nothing Exit Sub End Sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
jp91306 | Word | 3 | 04-23-2019 03:32 PM |
I want to create a bar chart of multiple variable. Then I need to draw trend lin of those variable | shimulsiddiquee | Excel | 1 | 05-16-2017 07:39 AM |
Replacing paragraph formatting before column break also changes the next paragraph after the break | jjmartin1340 | Word | 3 | 09-21-2015 10:50 PM |
Run Time Error '91': Object variable or With block variable not set using Catalogue Mailmerge | Berryblue | Mail Merge | 1 | 11-13-2014 05:36 PM |