请问：Rose做出来的图如何嵌入到Word中？

ax007 2002-12-11 09:27:24

如题......

提出切实可行的方案者，即可给分，谢了！

...全文

340 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

bgxy 2003-01-23

打赏
举报

可是如果做好的图需要改变呢？在ROSE中修改之后再复制到Word里吗？在Word里怎么没有OLE对象连接？像VISIO一样。

langfeng2002 2002-12-21

打赏
举报

哪里有选择字符集的界面？

我怎么没找到。

overflight 2002-12-13

打赏
举报

ctrl + c

ctrl + v

才钦 2002-12-13

打赏
举报

有中文要选择GB2312字符集

termite 2002-12-13

打赏
举报

ROSE 的 tool 菜单中WEB PUBLISH，生成PNG文件又小又清晰。

reportTRUE 2002-12-12

打赏
举报

编码设为GB2312，选取后直接COPY即可，而且支持包中文

yxlab 2002-12-12

打赏
举报

Mr_Bean 2002-12-12

打赏
举报

例如
Public MSWord As Object
Public tmp As Object
Sub ShowClassDiagrams (aCategory As Category, bVisible As Boolean, cTitle As String)

Set MSWord =CreateObject ("Word.Basic")
Set tmp =CreateObject ("Word.Basic")
MSWord.AppShow
If aCateGory.Name <>"Use Case View" Then
MSWord.EndofDoCument

MSWord.Style "标题 3"
MSWord.Insert cTitle+aCategory.Name+Chr(13)+Chr(10)
MSWord.Style "正文"
MSWord.Insert NewLine
MSWord.Insert aCategory.Documentation+NewLine
End If

m = 0

For i = 1 To aCategory.ClassDiagrams.Count
Set myDiagram = aCategory.ClassDiagrams.GetAt (i)
MyDiagram.RenderToClipboard
MSWord.EndofDocument
MSWord.Style "标题 3"
MSWord.Insert cTitle+Str$(i)+myDiagram.name+Chr(13)+Chr(10)
MSWord.Style "正文"
MSWord.Insert Chr(13)+Chr(10)
MSWord.CharLeft
MSWord.EditPaste
MSWord.EndofDocument
'myDiagram.Visible = bVisible
Next i

If i>1 Then
m = m + i -1
End If

For i = 1 To aCategory.ScenarioDiagrams.Count
Set SDiagram = aCategory.ScenarioDiagrams.GetAt (i)
SDiagram.RenderToClipboard
MSWord.EndofDocument
MSWord.Style "标题 3"
MSWord.Insert cTitle+Str$(m+i)+SDiagram.name+Chr(13)+Chr(10)
MSWord.Style "正文"
MSWord.Insert NewLine
MSWord.Insert SDiagram.Documentation + NewLine
MSWord.EditPaste
MSWord.EndofDocument
MSWord.Insert NewLine
Next i

If i>1 Then
m = m + i -1
End If

If aCategory.GetRoseItem.StateMachineOwner.StateMachines.GetAt(1) Is Not Nothing Then
For i = 1 To aCategory.GetRoseItem.StateMachineOwner.StateMachines.GetAt(1).Diagrams.Count
Set ADiagram = aCategory.GetRoseItem.StateMachineOwner.StateMachines.GetAt(1).Diagrams.GetAt (i)
ADiagram.RenderToClipboard
MSWord.EndofDocument
MSWord.Style "标题 3"
MSWord.Insert cTitle+Str$(m+i)+ADiagram.name+Chr(13)+Chr(10)
MSWord.Style "正文"
MSWord.Insert Chr(13)+Chr(10)
MSWord.Insert ADiagram.Documentation+NewLine
MSWord.CharLeft
MSWord.EditPaste
MSWord.EndofDocument
MSWord.Insert NewLine
Next i
End If

If i>1 Then
m = m + i - 1
End If

For i = 1 To aCategory.UseCases.Count
Set UCase = aCategory.UseCases.GetAt (i)
MSWord.EndofDocument
MSWord.Style "标题 3"
MSWord.Insert cTitle+Str$(m+i)+UCase.name+NewLine
MSWord.Style "正文"
MSWord.Insert UCase.Documentation+NewLine
MSWord.EndofDocument
MSWord.Insert NewLine

If UCase.StateMachine Is Not Nothing Then
MSWord.Insert UCase.StateMachine.Documentation + NewLine

For j =1 To UCase.StateMachine.Diagrams.Count
Set ADiagram = UCase.StateMachine.Diagrams.GetAt(j)
ADiagram.RenderToClipBoard
MSWord.Style "正文"
MSWord.Insert "●"+ ADiagram.Name+Chr(13)+Chr(10)
MSWord.Insert Chr(13)+Chr(10)
MSWord.EditPaste
MSWord.EndofDocument
MSWord.Insert Chr(13)+Chr(10)
Next j
End If

For j = 1 To UCase.ScenarioDiagrams.Count
Set SDiagram = UCase.ScenarioDiagrams.GetAt (j)
SDiagram.RenderToClipboard
MSWord.EndofDocument
MSWord.Style "正文"
MSWord.Insert Chr(13)+Chr(10)
MSWord.Insert "●"+SDiagram.name+Chr(13)+Chr(10)
MSWord.Insert SDiagram.Documentation + NewLine
MSWord.EditPaste
MSWord.EndofDocument
MSWord.Insert Chr(13)+Chr(10)
Next j

For j =1 To UCase.ExternalDocuments.Count
Set myFile = UCase.ExternalDocuments.GetAt(j)
If Right$(myFile.Path,4) =".doc" Then
tmp.FileOpen myFile.Path
tmp.EditSelectAll
tmp.EditCopy
tmp.FileClose
MSWord.EndofDocument
MSWord.Insert Chr(13)+Chr(10)
MSWord.EditPaste
MSWord.EndofDocument
MSWord.Insert Chr(13)+Chr(10)
End If
Next j

Next i

If i>1 Then
m = m + i - 1
End If

For k = 1 To aCategory.Categories.Count
Call ShowClassDiagrams (aCategory.Categories.GetAt (k), bVisible,cTitle+Str$(m+k)+".")
Next k

End Sub
MSWord.FileNew template :="Normal.dot"

Mr_Bean 2002-12-12