ricdeez

Public Sub JoinCells()

Dim xls As Excel.Worksheet
Dim cell As Excel.Range
Dim destn_rge As Excel.Range
Dim combined As String
Dim i As Long

i = 0
Set destn_rge = Nothing

ricdeez

convert sm_giga-01.jpg -gravity south \
          -stroke '#000C' -strokewidth 2 -annotate 0 'g33ky_b1ts' \
          -stroke  none   -fill white    -annotate 0 'g33ky_b1ts' \
          polsm_giga-01.jpg

ricdeez

#!/usr/bin/ruby
%w( win32ole pp date ).each { |dep| require dep }

doc = 'C:\Users\rdapaz\Dropbox\Karara\Schedule\K2 Master Schedule - Delayed FAT Scenario.mpp'
mpp = WIN32OLE.new('MSProject.Application')
mpp.Visible = true
mpp.FileOpen(doc)

tasks = []
mpp.ActiveProject.Tasks.each do |tsk|

ricdeez

$wd = WIN32OLE.new('Word.Application')
$wd.Visible = true
doc = $wd.Documents.Open(doc_file)

ricdeez

%w(pp win32ole).each {|dep| require dep}

begin
	$app = WIN32OLE.connect('Word.Application')
rescue Exception => e
	$app = WIN32OLE.new('Word.Application')
end
$app.Visible = true

class WordConst

ricdeez

new_data = new_data.split(/\n/).collect {|v| v.split(/\|/)}