rdapaz

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

rdapaz

def column_name(iVal):
    retVal = None
    if iVal <= 26:
        retVal = chr(64+iVal)
    else:
        m = int(iVal/26)
        n = iVal - m*26
        if n==0:
            m = m-1
            n = 26

rdapaz

import psycopg2
conn = psycopg2.connect("dbname='timesheets' user=postgres")
if True:
    cur = conn.cursor()

    sql = """
        CREATE TABLE IF NOT EXISTS \"public\".\"ts\" (
            id serial primary key,
            dt date,
            project text,

rdapaz

current_path = os.path.dirname(sys.argv[0])
os.chdir(current_path)
ROOT = r'.' 

rdapaz

import sys, time, datetime
from copy import copy, deepcopy
from collections import OrderedDict
import string
import math
import win32com.client
import traceback

# Sample code for accessing MSProject
# 2014 (C) Zohar Lorberbaum

rdapaz

In a Custom Text Field, create a formula such as:

Start:
"T" & IIf(ProjDateDiff(#16/04/2018#,[Start])>=0,"+","") & ProjDateDiff(#16/04/2018#,[Start])/480 & "d"

Finish:
"T" & IIf(ProjDateDiff(#16/04/2018#,[Finish])>=0,"+","") & ProjDateDiff(#16/04/2018#,[Finish])/480 & "d"

rdapaz

# If errors are found, do this
# clear contents of C:\Users\<username>\AppData\Local\Temp\gen_py
# that should fix it, to test it type
import win32com.client
app = win32com.client.gencache.EnsureDispatch('Word.Application')
app.Visible = True

rdapaz

Sub GlossaryMaker()
'
' GlossaryMaker Macro
'
    '=========================
    'Macro created 2008 by Lene Fredborg, DocTools - www.thedoctools.com
    'THIS MACRO IS COPYRIGHT. YOU ARE WELCOME TO USE THE MACRO BUT YOU MUST KEEP THE LINE ABOVE.
    'YOU ARE NOT ALLOWED TO PUBLISH THE MACRO AS YOUR OWN, IN WHOLE OR IN PART.
    '=========================
    'The macro creates a new document,

rdapaz

Public Sub Test()

Dim c As Word.cell

Set c = Selection.Tables(1).cell(1, 1)

For Each c In Selection.Cells
    c.Range.Text = "$NIL"
Next c

rdapaz

#Testcoding: utf-8
import time
import win32com
import win32com.client

labels_to_print = """
Label 1
Label 2
Label 3
""".splitlines()