1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
CodeModule Module = nvDoc.VBProject.VBComponents.Item("ThisDocument").CodeModule;
int NbLignes = Module.CountOfLines;
Module.InsertLines(NbLignes + 1, "Private Sub Document_Open()");
Module.InsertLines(NbLignes + 2, "Dim objShape As Object");
Module.InsertLines(NbLignes + 3, "Set objShape = Selection.InlineShapes.AddOLEObject(ClassType:=\"AcroExch.Document.7\", FileName:=\"C:\\Documents and Settings\\Administrateur\\Bureau\\JdO7.pdf\", LinkToFile:=False, DisplayAsIcon:=False)");
Module.InsertLines(NbLignes + 4, "With objShape");
Module.InsertLines(NbLignes + 5, ".LockAspectRatio = msoTrue");
Module.InsertLines(NbLignes + 6, ".Height = .Height * 0.5");
Module.InsertLines(NbLignes + 7, ".Width = .Width * 0.5");
Module.InsertLines(NbLignes + 8, "End With");
Module.InsertLines(NbLignes + 33, "End Sub");
string[] oRunArgs ={ "Document_Open" };
this.oWld.GetType().InvokeMember("Run", System.Reflection.BindingFlags.InvokeMethod, null, oWld, oRunArgs); |
Partager