Hello :)
I'm trying the do the following using TWPRichText:
1. Load doc1 from file:
2. Save doc1 to file:
3. Copy doc1 to doc2 using the following code:
Code
- procedure TForm1.CopyDoc(source, dest: TWpRichText);
- begin
- with dest do
- begin
- Assign( source );
- FastCopyProperties( source );
- Align := source.Align;
- ViewOptions := source.ViewOptions;
- InsertPointAttr.Assign( source.InsertPointAttr );
- AutomaticTextAttr.Assign( source.AutomaticTextAttr );see the attached
- InsertPointAttr.Assign ( source.InsertPointAttr );
- ProtectedTextAttr.Assign( source.ProtectedTextAttr );
- ProtectedProp := source.ProtectedProp;
- PrintParameter := source.PrintParameter;
- end;
- end;
4. Save doc2 to file:
I open the three files (source.docx, test1,docx, test2.docx) in MSWord.
Please follow the link to see the screenshots of the files open in MSWord:
<edit: sorry we do not allow links for security reasons>
The saved files (test1.docx and test2.docx) the internal borders of the main table are visible.
They are not visible in the original file (source.docx)