sgraber

Sub ScalePictures40()
    Dim i As Long
    With ActiveDocument
        For i = 1 To .InlineShapes.Count
            With .InlineShapes(i)
                .ScaleHeight = 40
                .ScaleWidth = 40
            End With
        Next i
    End With

sgraber

<!-- You'll need to call get_disqus_num_replies() every time you alter the content (ex - ajax) -->
<script type="text/javascript"> 
//<![CDATA[ 
var get_disqus_num_replies = function() { 
        var links = document.getElementsByTagName('a'); 
        var query = '?'; 
        for(var i = 0; i < links.length; i++) { 
                if(links[i].href.indexOf('#disqus_thread') >= 0) { 
                        query += 'url' + i + '=' + encodeURIComponent(links[i].href) + '&'; 
                }