|
|
Insert Comments
I would like to use the "insert comments" function in conjunction with a
pre-made list of comments (which I have stored in excel).
I would like to do something like this: identify each pre-made comment with
a number, and then simply push a button in reference to that number to insert
the text associated with that number. this way, I don't have to keep writing
similar comments into the document from scratch each time they come up.
Any suggestions?
|
|
0
|
|
|
|
Reply
|
Utf
|
12/13/2009 8:48:01 PM |
|
This is untested so may need a bit of tweaking, but if you have the assign
the name ArCommentsRange to the Range in the spreadsheet that contains the
comments and modify the path in the following code as appropriate and you
insert 1 as a comment in the document where ever you want the first comment
from your Excel Spreadsheet to appear in the document, 2 where ever you want
the second to appear and so on and then if you run a macro containing the
following code, it should replace those numerals with the respective
comments from the Excel source:
'Uses early binding see:
http://www.word.mvps.org/FAQs/InterDev/EarlyvsLateBinding.htm
'You need to set a reference in your project to the “Microsoft Excel Object
Library”.
Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim ArComments As Variant
Dim bStartApp As Boolean
Dim acomment As Comment
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err Then
bStartApp = True
Set xlApp = New Excel.Application
End If
On Error GoTo 0
With xlApp
Set xlbook = .Workbooks.Open("F:\Data Stores\sourceSpreadsheet.xls")
'modify path
ArComments = xlbook.Names("ArCommentsRange").RefersToRange.Value
xlbook.Close SaveChanges:=False
Set xlbook = Nothing
End With
If bStartApp Then xlApp.Quit
Set xlApp = Nothing
For Each acomment In ActiveDocument.Comments
If Isnumeric(acomment.Range.Text) then
acomment.Range.Text = ArComments(acomment.Range.Text - 1)
End if
Next acomment
--
Hope this helps,
Doug Robbins - Word MVP
Please reply only to the newsgroups unless you wish to obtain my services on
a paid professional basis.
"dmorri35" <dmorri35@discussions.microsoft.com> wrote in message
news:68A08946-CFF8-4CBF-BDC1-BA151E90C8A0@microsoft.com...
>I would like to use the "insert comments" function in conjunction with a
> pre-made list of comments (which I have stored in excel).
>
> I would like to do something like this: identify each pre-made comment
> with
> a number, and then simply push a button in reference to that number to
> insert
> the text associated with that number. this way, I don't have to keep
> writing
> similar comments into the document from scratch each time they come up.
>
> Any suggestions?
|
|
0
|
|
|
|
Reply
|
Doug
|
12/14/2009 4:37:44 AM
|
|
|
1 Replies
268 Views
(page loaded in 0.028 seconds)
Similiar Articles: Insert Comments on a Protected Worksheet - microsoft.public.excel ...hi - I have a worksheet with areas that are locked, and a range B5:H23 that is not locked. Protection has been applied to the sheet. The user is... insert comment in chart - microsoft.public.accessin excel,we can insert to some comment or Autoshape on chart,i want to insert similar objectes on chart dataes in Access when some changing happen... Insert comment into cell - microsoft.public.excel.programming ...Dear Expert, Have 2 columns .... Column A is name Column B is type I want the content in column B to put as comments in respective column A. Fo... "Insert Comment" macro--can't get rid of reviewing ...I just recently got a new laptop and decided to try Office 2010 while I'm at it. I have a single, simple macro recorded with a key-combo saved to it that will insert ... Powerpoint / 'Insert Comment': change reviewer name ...How can I change the automatically appearing name in the Comment box when I insert a Comment in a Powerpoint presentation (my sister once borrowed m... How do I move Inserted Comments in Word? - microsoft.public.word ...To move a comment, you can cut and paste the text to which the comment is attached. Or you could cut the text of the comment, delete the original comment, insert a ... How do I see PDF comments in Excel insert object - microsoft ...I open a new Excel worksheet, Insert, Object, Adobe, I select a pdf file, the preview shows up in Excel as a hatched picture, Adobe fires up for cha... How do I add multiple comments to a cell? - microsoft.public.excel ...I need to add more than one comment to data in a single cell, is this possible? ... Inserting graphics on excel chart is not visible - microsoft ...insert comment in chart - microsoft.public.access Inserting graphics on excel chart is not visible - microsoft ... insert comment in chart - microsoft.public.access Line ... Problem Displaying Comments in Balloons - microsoft.public.word ...I am able to insert comments in balloons in the first (portrait-formatted section), however when I try to insert a comment in a landscaped sections, it looks like I ... Insert a comment - Word - Office.com - Microsoft Corporation ...Select the text or item you want to comment on, or click at the end of the text. On the Insert menu, click Comment . Type the comment text in the comment balloon . Insert or delete a comment - Word - Office.comInsert comments inside baloons that appear in Word 2007 document margins, or remove comments by deleting them. How to Insert a Comment Box in Microsoft Excel | eHow.comWhen you are working on a spreadsheet in Microsoft Excel, you may find it necessary from time to time to add a comment box to a cell to add explanatory information or ... How to insert comments into an MS Word document1. MS WORD. Highlight comments in the text (recommended) (In some earlier versions of Word, Comments were referred to as Annotations or Hidden Text.) Insert comments in Microsoft Word 2007 documentsInsert comments in Microsoft Word 2007 documents. Microsoft Word 2007 gives you the useful ability to include comments in Word documents, that are saved with the ... 7/24/2012 12:37:17 AM
|
|
|
|
|
|
|
|
|