<?xml version="1.0" encoding="UTF-8"?><?xml-stylesheet type="text/xsl" media="screen" href="/App_Themes/default/rss.xslt"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:atom="http://www.w3.org/2005/Atom" xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/" xmlns:media="http://search.yahoo.com/mrss/" xmlns:evnet="http://www.mscommunities.com/rssmodule/"><channel><title>Entries for SimonJ</title><atom:link rel="self" type="application/rss+xml" href="http://channel9.msdn.com/niners/simonj/rss/default.aspx" /><image><url>http://mschnlnine.vo.llnwd.net/d1/Dev/App_Themes/C9/images/feedimage.png</url><title>Entries for SimonJ</title><link>http://channel9.msdn.com/Niners/simonj/</link></image><description>Entries, comments and threads posted by SimonJ</description><link>http://channel9.msdn.com/Niners/simonj/</link><language>en-us</language><pubDate>Fri, 12 Oct 2007 06:20:41 GMT</pubDate><lastBuildDate>Fri, 12 Oct 2007 06:20:41 GMT</lastBuildDate><generator>EvNet (EvNet, Version=1.0.3608.3122, Culture=neutral, PublicKeyToken=null)</generator><item><title>Re: Word 2007: Getting a Content Control to lookup the Document Revision metadata field [Word 2007: Getting a Content Control to lookup the Document Revision metadata field]</title><description>&lt;P&gt;It took me a while to get round to this but I think I've finally cracked it. Let me know if you have any problems with it.&lt;BR&gt;&lt;BR&gt;Simon Jones&lt;BR&gt;Contributing Editor&lt;BR&gt;PC Pro Magazine&lt;BR&gt;&lt;BR&gt;Option Explicit&lt;/P&gt;
&lt;P&gt;Public Sub UpdateAllFields()&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim objStory As Range&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim objShape As Shape&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim objTOC As TableOfContents&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim objTOA As TableOfAuthorities&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim objTOF As TableOfFigures&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.ScreenUpdating = False&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.DisplayAlerts = wdAlertsNone&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each objStory In ActiveDocument.StoryRanges&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; objStory.Fields.Update&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each objShape In objStory.ShapeRange&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; UpdateFieldsInShape objShape&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; While Not (objStory.NextStoryRange Is Nothing)&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set objStory = objStory.NextStoryRange&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; objStory.Fields.Update&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each objShape In objStory.ShapeRange&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; UpdateFieldsInShape objShape&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Wend&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each objTOC In ActiveDocument.TablesOfContents&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; objTOC.Update&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each objTOA In ActiveDocument.TablesOfAuthorities&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; objTOA.Update&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each objTOF In ActiveDocument.TablesOfFigures&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; objTOF.Update&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.DisplayAlerts = wdAlertsAll&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Application.ScreenUpdating = True&lt;BR&gt;End Sub&lt;/P&gt;
&lt;P&gt;Private Sub UpdateFieldsInShape(iobjShape As Shape)&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; With iobjShape.TextFrame&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; If .HasText Then&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .TextRange.Fields.Update&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; End If&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; End With&lt;BR&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;BR&gt;End Sub&lt;/P&gt;&lt;p&gt;in reply to &lt;a href='http://channel9.msdn.com/forums/TechOff/258192-Word-2007-Getting-a-Content-Control-to-lookup-the-Document-Revision-metadata-field/'&gt;Word 2007: Getting a Content Control to lookup the Document Revision metadata field&lt;/a&gt;&lt;/p&gt;&lt;img src="http://channel9.msdn.com/340138/WebViewBug.aspx?EVT=0" height="1" width="1" alt="" /&gt;</description><comments></comments><link></link><pubDate>Fri, 12 Oct 2007 06:20:41 GMT</pubDate><guid isPermaLink="false"></guid><evnet:views>0</evnet:views><evnet:viewtrackingurl>http://channel9.msdn.com/340138/WebViewBug.aspx?EVT=0</evnet:viewtrackingurl><evnet:previewtext>It took me a while to get round to this but I think I've finally cracked it. Let me know if you have any problems with it.Simon JonesContributing EditorPC Pro MagazineOption Explicit
Public Sub UpdateAllFields()&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim objStory As Range&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim objShape As&amp;#8230;</evnet:previewtext><dc:creator>SimonJ</dc:creator><slash:comments>0</slash:comments><wfw:commentRss>http://channel9.msdn.com/RSS/</wfw:commentRss><trackback:ping>http://channel9.msdn.com/340138/Trackback.aspx</trackback:ping></item><item><title>VS 2005 Windows Forms &amp;lt;-&amp;gt; SharePoint [VS 2005 Windows Forms &amp;lt;-&amp;gt; SharePoint]</title><description>I'm currently designing a Windows Forms application using Visual Studio 2005 (VB.NET) and SQL Server. &lt;BR&gt;&lt;BR&gt;When the user encounters an error or has a problem, I'd like them to be able to raise an issue in an issue tracking database which already exists in SharePoint Services. I could just navigate to the create new form URL on the SharePoint site in a browser window but it would be nice to be able to populate fields with data we already know (Application Name, Version, Form Name, Error message, etc).&lt;BR&gt;&lt;BR&gt;Has anyone had any experience doing this?&lt;BR&gt;&lt;BR&gt;Alternatively...&lt;BR&gt;Can I convince VS2005 to use SharePoint as a Data Source and so use ADO.NET?&lt;BR&gt;&lt;BR&gt;I've looked at the Web Services interface for SharePoint and it looks quite fiendish to someone who doesn't delve into XML unless he really has to. &lt;BR&gt;&lt;BR&gt;SimonJ&lt;p&gt;in reply to &lt;a href='http://channel9.msdn.com/forums/TechOff/225873-VS-2005-Windows-Forms-lt-gt-SharePoint/'&gt;VS 2005 Windows Forms &amp;lt;-&amp;gt; SharePoint&lt;/a&gt;&lt;/p&gt;&lt;img src="http://channel9.msdn.com/225873/WebViewBug.aspx?EVT=0" height="1" width="1" alt="" /&gt;</description><comments>http://channel9.msdn.com/forums/TechOff/225873-VS-2005-Windows-Forms-lt-gt-SharePoint/</comments><link>http://channel9.msdn.com/forums/TechOff/225873-VS-2005-Windows-Forms-lt-gt-SharePoint/</link><pubDate>Thu, 31 Aug 2006 15:57:35 GMT</pubDate><guid isPermaLink="false">http://channel9.msdn.com/forums/TechOff/225873-VS-2005-Windows-Forms-lt-gt-SharePoint/</guid><evnet:views>3176</evnet:views><evnet:viewtrackingurl>http://channel9.msdn.com/225873/WebViewBug.aspx?EVT=0</evnet:viewtrackingurl><evnet:previewtext>I'm currently designing a Windows Forms application using Visual Studio 2005 (VB.NET) and SQL Server. &lt;BR&gt;&lt;BR&gt;When the user encounters an error or has a problem, I'd like them to be able to raise an issue in an issue tracking database which already exists in SharePoint Services. I could just navigate to the create new form URL on the SharePoint site in a browser window but it would be nice to be able to populate fields with data we already know (Application Name, Version, Form Name, Error message, etc).&lt;BR&gt;&lt;BR&gt;Has anyone had any experience doing this?&lt;BR&gt;&lt;BR&gt;Alternatively...&lt;BR&gt;</evnet:previewtext><dc:creator>SimonJ</dc:creator><slash:comments>0</slash:comments><wfw:commentRss>http://channel9.msdn.com/forums/TechOff/225873-VS-2005-Windows-Forms-lt-gt-SharePoint/RSS/</wfw:commentRss><trackback:ping>http://channel9.msdn.com/225873/Trackback.aspx</trackback:ping></item></channel></rss>