Sub savedoc()
Set thedoc = Visio.ActiveDocument
BIS = Mid(ActiveDocument.DocumentSheet.Cells("USER.BIS_Num.Value").FormulaU, 2, 4)
Debug.Print BIS
Dim IDdocName As String
IDdocName = IDpath & "A_ROSBTKCTS-" & BIS & "-#204;#196;.vsd"
Debug.Print IDdocName
thedoc.SaveAs IDdocName
plan = Mid(ThisDocument.DocumentSheet.Cells("USER.plan").FormulaU, 2, Len(ThisDocument.DocumentSheet.Cells("USER.plan").FormulaU) - 2)
Debug.Print plan
Application.Documents.OpenEx plan, visAddDocked
rack = Mid(ThisDocument.DocumentSheet.Cells("USER.rack").FormulaU, 2, Len(ThisDocument.DocumentSheet.Cells("USER.rack").FormulaU) - 2)
Debug.Print rack
Application.Documents.OpenEx rack, visOpenRO
End Sub
в вышеприложенном макросе у меня помимо сохранения файла под определенным именем (IDdocName), происходить открытие еще пары файлов (plan и rack). в результате получается становится файл открытый последним ! мне нужно сделать файл сохраненный под именем IDdocName как ActiveDocument ?
All Forums
как программно сделать документ активным ?
Posted - 09/22/2010 : 09:53:48
