సమన్యాయం !

చదువు కోసం
లక్షలు కుమ్మరించి బడికి కారులో వెళ్ళేదొకరు
భోజనం పెడతారని కుక్కుకుని ఆటోలో వెళ్ళేదొకరు

సమన్యాయం !

నది, అడవి, కొండ
ప్రకృతే ప్రతివాడికి అండ దండ

ఆకాశం అందరిది, ఆనందం అందరిదీ
నడీచే నేల, పీల్చే గాలి, తాగే నీరు
పుట్టే ప్రతివాడికీ సమభాగం కావాలా వద్దా?

కొండలు పిండి చేసి భూమిని కోట్లకమ్మేసి
నదులను పీల్చేసి నీళ్ళను బాటిళ్ళ నింపేసి
స్వార్ధం నిండిన గాలితో ఊపిరి తీసేసి
సిగ్నళ్ళతో ఆకాశం కాజేసి
పొగలతో సూర్య చంద్రులను దాచేసి

ఖరీదైన ఫోన్లు, విలాసవంతమైన ఇళ్ళు
ఎక్కువై పారేసేంత తిండితో
మనం ఈ చిన్నారులకు అన్యాయం చేసే సంఘాన్ని నిర్మించుకున్నామా?

- చాలా రోజుల క్రితం కోళ్ళను ఈడ్చుకుంటూ వెళ్తున్న బండిని చూసి బాధ పడ్డా, మళ్ళీ ఈ రోజు...
కళ్ళు మూసుకుని అంతా బాగుందని మనం మంచోళ్ళమనుకుని ముందుకెళ్ళిపోవడమేనా
మనం చేస్తున్నది ? 

VBA to replace text in word document (from a template)

Sub createProposal()
   
    propFolder = "C:\AA-ProjectsDocs\AA_Proposal Templates\"
    commPropFileName = "TetraSoft_CLIENTNAME_CommercialProposal_PROJECTNAME_SA.docx"
   
    clientNam = Sheet1.Cells(3, 3)
    projNam = Sheet1.Cells(4, 3)
   
    destFileName = propFolder & "TetraSoft_" & clientNam & "_CommercialProposal_" & projNam & ".docx"
   
   
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Call FSO.CopyFile(propFolder & commPropFileName, destFileName, True)
    Set FSO = Nothing
   
    Set wordapp = CreateObject("word.Application")
    wordapp.Documents.Open destFileName
    'wordapp.Visible = True
    'wordapp.Activate
   
    For rw = 3 To Sheet1.UsedRange.Rows.Count
       
        findWord = "<" & Sheet1.Cells(rw, 2) & ">"
        replaceWith = Sheet1.Cells(rw, 3)
        wordapp.Selection.Find.ClearFormatting
        wordapp.Selection.Find.Replacement.ClearFormatting
        wordapp.Selection.WholeStory
        With wordapp.Selection.Find
            .Text = findWord
            .Replacement.Text = replaceWith
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=2
        End With
       
    Next
    wordapp.Documents.Save
    wordapp.Visible = True
   
    'wordapp.Documents.Close
    'wordapp.Quit
    'Set wordapp = Nothing
End Sub