Issue with actxserver for synonyms calculation

Doc = actxserver('Word.Application');

    X = cellfun(@(word) invoke(Doc,'SynonymInfo',word), words, 'UniformOutput', false);
Synonyms = cellfun(@(X) get(X,'MeaningList'), X, 'UniformOutput', false);
Synonyms = cellfun(@(X) [words{X}; Synonyms{X}], num2cell(1:numel(words)), 'UniformOutput', false);

I am calculating Synonyms using below mentioned server and code

I have put this in function and have called that function from my file. But this function finds synonyms of few words and then this below error arrives,

    Error using feval
    Server Creation Failed: Server execution failed

    Error in actxserver (line 87)
        h=feval(['COM.' convertedProgID], 'server', machinename, interface);

   Doc = actxserver('Word.Application');

    Error in headline_recognition (line 54)
               syn  =   takesynonyms(wordsstring(kk));

Please guide !

Thanks