Kolegové,kdysi jsem odsud stáhnul pravidlo na generování průvodky z modelu.Trochu jsem ho upravil, protože ten původní do průvodky generoval barevný obrázek s pozadím, což nebylo úplně dobré, zvláště když to tisknu na černobílé tiskárně, což pro výrobu stačí.Důležité je mít v Možnostech uložení obrázku zaškrtnuté "Průhledné pozadí"V Šabloně WORD jsou na místě generování iVlastností vytvořené záložky, ale samozřejmě si je můžete upravit podle sebe.Tak kdyby to někomu pomohlo, tak tady je:'název šablony protokolutemplate = "C:\Vault\Šablony\Šablony\Pruvodka.docx"'objekt aplikace WordwordApp = Interaction.CreateObject("Word.Application")'načíst šablonu do WorduwordDoc = wordApp.Documents.Add (template, Visible:=True)'zapsat hodnoty z modelu do Záložek šablony - možno doplňovat další polewordDoc.Bookmarks("TITLE").Range.Text = iProperties.Value("Summary", "Title")wordDoc.Bookmarks("PARTNO").Range.Text = iProperties.Value("Project", "Part Number")wordDoc.Bookmarks("STOCK_NUMBER").Range.Text = iProperties.Value("Project", "Stock number")wordDoc.Bookmarks("DESCRIPTION").Range.Text = iProperties.Value("Project", "Description")wordDoc.Bookmarks("REVNO").Range.Text = iProperties.Value("Project", "Revision Number")'vytvořit náhledoImage = ThisDoc.PathAndFileName(False) & ".png"oCamera = InventorVb.Application.ActiveView.CameraoCamera.fitoCamera.apply'InventorVb.Application.ActiveView.SaveAsBitmap(oImage,700,400 ) 'získat aktuální režim zobrazeníDim oOGDisplayMode As DisplayModeEnum = InventorVb.Application.ActiveView.DisplayMode'change to wireframe w/o hidden edgesInventorVb.Application.ActiveView.DisplayMode = DisplayModeEnum.kWireframeNoHiddenEdgesInventorVb.Application.ActiveView.Update()'přiřadit možnosti mapy názvů a hodnotDim oOptions As NameValueMapoOptions = InventorVb.Application.TransientObjects.CreateNameValueMapoOptions.Value("Transparent Background") = True'Pro nastavení velikosti použijte příkaz saveasbitmap'protože nedokážu zjistit správné možnosti pro danou velikost, takže to používám jako alternativní řešeníInventorVb.Application.ActiveView.SaveAsBitmap(oImage, 400, 400)'export s průhledným pozadím (nutno uložit jako PNG)ThisDoc.Document.SaveAs2(oImage, True, oOptions)'návrat do původního režimu zobrazeníInventorVb.Application.ActiveView.DisplayMode = oOGDisplayModeInventorVb.Application.ActiveView.Update()'vložit na konecwordDoc.Bookmarks.Item("\endofdoc").Range.InlineShapes.AddPicture(oImage)My.Computer.FileSystem.DeleteFile(oImage)'uložit Word k modeluwordDoc.SaveAs (ThisDoc.PathAndFileName(False) & ".docx")'Dim WordFileName As String'WordFileName=environmentPath1 & "Vstupní kontrola" & ThisDoc.FileName(False) & ".docx"'wordDoc.SaveAs (WordFileName)wordDoc.Close()wordDoc = Nothing'ukončit WordwordApp.Application.Quit() wordApp=NothingŠablona_WORD.zip