If you want, format the text in the shape. Resize the shape that contains the comments, and then drag the shape to the drawing page. The macro inserts the comments in a new shape that appears to the left of the drawing page. The name of the macro is FileName.Module Number.GetComments. In the Macro name list, click the macro that you created in step 1, and then click Run.On the Tools menu, point to Macros, and then click Macros.On the File menu, click Close and Return to Visio. Shp.Cells("Para.HorzAlign").Formula = "0" Shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new Shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new Set shp = pag.DrawRectangle(("PageWidth").ResultIU, 0, 0, ("PageHeight").ResultIU) SText = sText & vbTab & (Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") SText = sText & vbTab & Format((Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") SText = sText & (Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU SText = sText & vbCrLf & (Visio.visSectionReviewer, (Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") SText = sText & vbCrLf & (Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("")įor iRow = 0 To (Visio.visSectionAnnotation) - 1 If (Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then If (Visio.visSectionAnnotation, Visio.visExistsAnywhere) Thenįor iRow = 0 To (Visio.visSectionAnnotation) - 1 SText = "Reviewer" & vbTab & "Date" & vbTab & "Comment"
#Microsoft word print comments code#
Press ALT+F11 to start Microsoft Visual Basic Editor.Ĭopy the following code, and then paste the code in the FileName - Module Number (Code) window: Public Sub GetComments() Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.Ĭreate the macro.
This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. Microsoft provides programming examples for illustration only, without warranty either expressed or implied. To create and to run the macro, follow these steps. When you print the drawing, the comments appear in the new shape that you added to the drawing. Resize the shape, and then drag the shape to the drawing page. The new shape appears outside the drawing page. The macro extracts the comments that are in the drawing, and then inserts the comments in a new shape. Use the macro that is discussed in this article to print the comments that are inserted by the reviewers. When you print a drawing that contains markup, the comments that are inserted by the reviewers are not printed. Markup includes shapes, ink shapes, and comments.
Proposed changes are also known as markup. When you use the Track Markup feature in Visio, users who review the drawing can add proposed changes. You can use this macro when you use the Track Markup feature in Microsoft Visio 2010, in Microsoft Office Visio 2007, or in Microsoft Office Visio 2003. This article describes a macro that you can use to print comments that are inserted by reviewers.
0 kommentar(er)
