Save document with custom properties with actxserver Word

4 次查看(过去 30 天)
The following script shall change custom properties of a word document using the activexserver syntax for Microsoft Word.
%% Initiallize Word Connection
hdlWord = actxserver('Word.Application');
hdlWord.Visible = true;
%% File and Location
fullLocation = 'C:\Users\Name\Documents\MATLAB\PropTest.docx';
hdlDoc = hdlWord.Documents.Open(fullLocation);
%% Property Change
hdlProp = get(hdlDoc.CustomDocumentProperties, 'Item', 'Property1');
get(hdlProp,'Value');
set(hdlProp,'Value','nice'); % saved as "jealous" before running the script
%% Save Doc
hdlWord.ActiveDocument.SaveAs2(fullLocation)
hdlDoc.Close();
hdlWord.Quit();
The property change itself is working. Sadly, the script is not saving the document. There is no error or warning given out.
If I comment the close functions and click save manually it works fine.
If I save the document as a another file the properties are changed and saved. Therefore, a work around by deleting and renaming and so on would work.
Could someone help me out on how to save the opened document and close it by script?
  5 个评论
Philipp
Philipp 2024-7-11
Hi Umar,
the pause function is not helping. Neither using Doc.Save(); nor using .SaveAs2();
FYI: I used a tempfile as work around. Saving to a new temp file, then deleting the original one. Renaming the temp file to the original name.
Umar
Umar 2024-7-11
Hi Philipp,
Mario just posted a comment about resolving this issue. Please try his suggested solution and update us about test results.

请先登录,再进行评论。

回答(1 个)

Mario Malic
Mario Malic 2024-7-10
  4 个评论
Mario Malic
Mario Malic 2024-7-15
The flag is not ment to be used for these purposes, so it's better to remove it.
Mario Malic
Mario Malic 2024-7-15
If the answer solved your problem, it should be marked as accepted.

请先登录,再进行评论。

类别

Help CenterFile Exchange 中查找有关 MATLAB Report Generator 的更多信息

产品


版本

R2020b

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by