695 lines
29 KiB
Plaintext
695 lines
29 KiB
Plaintext
Type TSDocxDocument = Class(TSVbaBase)
|
|
Uses TSDocxEnumerations;
|
|
|
|
public
|
|
Function Init(docx, collection, name, fullname);
|
|
Function GetParam(k);
|
|
Function SetParam(k, v);
|
|
|
|
private
|
|
collection_;
|
|
docx_;
|
|
file_name_;
|
|
full_name_;
|
|
tables_;
|
|
paragraphs_;
|
|
|
|
params_; // 存一些全局参数
|
|
|
|
public
|
|
// Methods
|
|
Function AcceptAllRevisions();
|
|
Function AcceptAllRevisionsShown();
|
|
Function Activate(); // Completed
|
|
Function AddToFavorite();
|
|
Function ApplyTSDocxDocumentTheme(FileName);
|
|
Function ApplyQuickStyleSet2(Style);
|
|
Function ApplyTheme(Name);
|
|
Function AutoFormat();
|
|
Function CanCheckIn();
|
|
Function CheckConsistency();
|
|
Function CheckGrammar();
|
|
Function CheckIn(SaveChanges, Comments, MakePublic);
|
|
Function CheckInWithVersion(SaveChanges, Comments, MakePublic, VersionType);
|
|
Function CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10);
|
|
Function Close(SaveChanges, OriginalFormat, RouteTSDocxDocument); // Completed
|
|
Function ClosePrintPreview();
|
|
Function Compare(Name, AuthorName, CompareTarget, DetectFormatChanges, IgnoreAllComparisonWarnings, AddToRecentFiles, RemovePersonalInformation, RemoveDateAndTime);
|
|
Function ComputeStatistics(Statistic, IncludeFootnotesAndEndnotes);
|
|
Function Convert();
|
|
Function ConvertAutoHyphens();
|
|
Function ConvertNumbersToText();
|
|
Function ConvertVietDoc(CodePageOrigin);
|
|
Function CopyStylesFromTemplate(Template);
|
|
Function CountNumberedItems(NumberType, Level);
|
|
Function CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, LetterStyle, Letterhead, LetterheadLocation, LetterheadSize, RecipientName, RecipientAddress, Salutation, SalutationType, RecipientReference, MailingInstructions, AttentionLine, Subject, CCList, ReturnAddress, SenderName, Closing, SenderCompany, SenderJobTitle, SenderInitials, EnclosureNumber, InfoBlock, RecipientCode, RecipientGender, ReturnAddressShortForm, SenderCity, SenderCode, SenderGender, SenderReference);
|
|
Function DataForm();
|
|
Function DeleteAllComments();
|
|
Function DeleteAllCommentsShown();
|
|
Function DeleteAllEditableRanges(EditorID);
|
|
Function DeleteAllInkAnnotations();
|
|
Function DetectLanguage();
|
|
Function DowngradeTSDocxDocument();
|
|
Function EndReview();
|
|
Function ExportAsFixedFormat(OutputFileName, ExportFormat, OpenAfterExport, OptimizeFor, Range, _From, _To, Item, IncludeDocProps, KeepIRM, CreateBookmarks, DocStructureTags, BitmapMissingFonts, UseISO19005_1, FixedFormatExtClassPtr);
|
|
Function ExportAsFixedFormat2(OutputFileName, ExportFormat, OpenAfterExport, OptimizeFor, Range, _From, _To, Item, IncludeDocProps, KeepIRM, CreateBookmarks, DocStructureTags, BitmapMissingFonts, UseISO19005_1, OptimizeForImageQuality, FixedFormatExtClassPtr);
|
|
Function FitToPages();
|
|
Function FollowHyperlink (Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo);
|
|
Function FreezeLayout();
|
|
Function GetCrossReferenceItems(ReferenceType);
|
|
Function GetLetterContent();
|
|
Function GetWorkflowTasks();
|
|
Function GetWorkflowTemplates();
|
|
Function GoTo(What, Which, Count, Name);
|
|
Function LockServerFile();
|
|
Function MakeCompatibilityDefault();
|
|
Function ManualHyphenation();
|
|
Function Merge(Name, MergeTarget, DetectFormatChanges, UseFormattingFrom, AddToRecentFiles);
|
|
Function Post();
|
|
Function PresentIt();
|
|
Function PrintOut(Background, Append, Range, OutputFileName, _From, _To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight);
|
|
Function PrintPreview();
|
|
Function Protect(_Type, NoReset, Password, UseIRM, EnforceStyleLock);
|
|
Function Range(Start, _End);
|
|
Function Redo(Times);
|
|
Function RejectAllRevisions();
|
|
Function RejectAllRevisionsShown();
|
|
Function Reload();
|
|
Function ReloadAs(Encoding);
|
|
Function RemoveTSDocxDocumentInformation(RemoveDocInfoType);
|
|
Function RemoveLockedStyles();
|
|
Function RemoveNumbers(NumberType);
|
|
Function RemoveTheme();
|
|
Function Repaginate();
|
|
Function ReplyWithChanges(ShowMessage);
|
|
Function ResetFormFields();
|
|
Function ReturnToLastReadPosition();
|
|
Function RunAutoMacro(Which);
|
|
Function RunLetterWizard(LetterContent, WizardMode);
|
|
Function Save(); // Completed
|
|
Function SaveAs2(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword,
|
|
ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData,
|
|
SaveAsAOCELetter, Encoding, InsertLineBreaks, AllowSubstitutions, LineEnding,
|
|
AddBiDiMarks, CompatibilityMode); // Completed
|
|
Function SaveAsQuickStyleSet(FileName);
|
|
Function Select();
|
|
Function SelectAllEditableRanges(EditorID);
|
|
Function SelectContentControlsByTag(Tag);
|
|
Function SelectContentControlsByTitle(Title);
|
|
Function SelectLinkedControls(Node);
|
|
Function SelectNodes(XPath, PrefixMapping, FastSearchSkippingTextNodes);
|
|
Function SelectSingleNode(XPath, PrefixMapping, FastSearchSkippingTextNodes);
|
|
Function SelectUnlinkedControls(Stream);
|
|
Function SendFax(Address, Subject);
|
|
Function SendFaxOverInternet(Recipients, Subject, ShowMessage);
|
|
Function SendForReview(Recipients, Subject, ShowMessage, IncludeAttachment);
|
|
Function SendMail();
|
|
Function SetCompatibilityMode(Mode);
|
|
Function SetDefaultTableStyle(Style, SetInTemplate);
|
|
Function SetLetterContent(LetterContent);
|
|
Function SetPasswordEncryptionOptions(PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength, PasswordEncryptionFileProperties);
|
|
Function ToggleFormsDesign();
|
|
Function TransformTSDocxDocument(Path, DataOnly);
|
|
Function Undo(Times);
|
|
Function UndoClear();
|
|
Function Unprotect(Password);
|
|
Function UpdateStyles();
|
|
Function ViewCode();
|
|
Function ViewPropertyBrowser();
|
|
Function WebPagePreview();
|
|
|
|
// Properties
|
|
property ActiveTheme read ReadActiveTheme;
|
|
property ActiveThemeDisplayName read ReadActiveThemeDisplayName;
|
|
property ActiveWindow read ReadActiveWindow;
|
|
property ActiveWritingStyle read ReadActiveWritingStyle write WriteActiveWritingStyle;
|
|
property AttachedTemplate read ReadAttachedTemplate write WriteAttachedTemplate;
|
|
property AutoFormatOverride read ReadAutoFormatOverride write WriteAutoFormatOverride;
|
|
property AutoHyphenation read ReadAutoHyphenation write WriteAutoHyphenation;
|
|
property AutoSaveOn read ReadAutoSaveOn write WriteAutoSaveOn;
|
|
property Background read ReadBackground;
|
|
property Bibliography read ReadBibliography;
|
|
property Bookmarks read ReadBookmarks;
|
|
property Broadcast read ReadBroadcast;
|
|
property BuiltInTSDocxDocumentProperties read ReadBuiltInTSDocxDocumentProperties;
|
|
property Characters read ReadCharacters;
|
|
property ChartDataPointTrack read ReadChartDataPointTrack write WriteChartDataPointTrack;
|
|
property ClickAndTypeParagraphStyle read ReadClickAndTypeParagraphStyle write WriteClickAndTypeParagraphStyle;
|
|
property CoAuthoring read ReadCoAuthoring;
|
|
property CodeName read ReadCodeName;
|
|
property CommandBars read ReadCommandBars;
|
|
property Comments read ReadComments;
|
|
property Compatibility read ReadCompatibility write WriteCompatibility;
|
|
property CompatibilityMode read ReadCompatibilityMode write WriteCompatibilityMode;
|
|
property ConsecutiveHyphensLimit read ReadConsecutiveHyphensLimit write WriteConsecutiveHyphensLimit;
|
|
property Container read ReadContainer;
|
|
property Content read ReadContent;
|
|
property ContentControls read ReadContentControls;
|
|
property ContentTypeProperties read ReadContentTypeProperties;
|
|
property CurrentRsid read ReadCurrentRsid;
|
|
property CustomTSDocxDocumentProperties read ReadCustomTSDocxDocumentProperties;
|
|
property CustomXMLParts read ReadCustomXMLParts;
|
|
property DefaultTableStyle read ReadDefaultTableStyle;
|
|
property DefaultTabStop read ReadDefaultTabStop write WriteDefaultTabStop;
|
|
property DefaultTargetFrame read ReadDefaultTargetFrame write WriteDefaultTargetFrame;
|
|
property DisableFeatures read ReadDisableFeatures write WriteDisableFeatures;
|
|
property DisableFeaturesIntroducedAfter read ReadDisableFeaturesIntroducedAfter write WriteDisableFeaturesIntroducedAfter;
|
|
property TSDocxDocumentInspectors read ReadTSDocxDocumentInspectors;
|
|
property TSDocxDocumentLibraryVersions read ReadTSDocxDocumentLibraryVersions;
|
|
property TSDocxDocumentTheme read ReadTSDocxDocumentTheme;
|
|
property DoNotEmbedSystemFonts read ReadDoNotEmbedSystemFonts write WriteDoNotEmbedSystemFonts;
|
|
property Email read ReadEmail;
|
|
property EmbedLinguisticData read ReadEmbedLinguisticData write WriteEmbedLinguisticData;
|
|
property EmbedTrueTypeFonts read ReadEmbedTrueTypeFonts write WriteEmbedTrueTypeFonts;
|
|
property EncryptionProvider read ReadEncryptionProvider write WriteEncryptionProvider;
|
|
property Endnotes read ReadEndnotes;
|
|
property EnforceStyle read ReadEnforceStyle write WriteEnforceStyle;
|
|
property Envelope read ReadEnvelope;
|
|
property FarEastLineBreakLanguage read ReadFarEastLineBreakLanguage write WriteFarEastLineBreakLanguage;
|
|
property FarEastLineBreakLevel read ReadFarEastLineBreakLevel write WriteFarEastLineBreakLevel;
|
|
property Fields read ReadFields;
|
|
property Final read ReadFinal write WriteFinal;
|
|
property Footnotes read ReadFootnotes;
|
|
property FormattingShowClear read ReadFormattingShowClear write WriteFormattingShowClear;
|
|
property FormattingShowFilter read ReadFormattingShowFilter write WriteFormattingShowFilter;
|
|
property FormattingShowFont read ReadFormattingShowFont write WriteFormattingShowFont;
|
|
property FormattingShowNextLevel read ReadFormattingShowNextLevel write WriteFormattingShowNextLevel;
|
|
property FormattingShowNumbering read ReadFormattingShowNumbering write WriteFormattingShowNumbering;
|
|
property FormattingShowParagraph read ReadFormattingShowParagraph write WriteFormattingShowParagraph;
|
|
property FormattingShowUserStyleName read ReadFormattingShowUserStyleName write WriteFormattingShowUserStyleName;
|
|
property FormFields read ReadFormFields;
|
|
property FormsDesign read ReadFormsDesign;
|
|
property Frames read ReadFrames;
|
|
property Frameset read ReadFrameset;
|
|
property FullName read ReadFullName;
|
|
property GrammarChecked read ReadGrammarChecked;
|
|
property GrammaticalErrors read ReadGrammaticalErrors;
|
|
property GridDistanceHorizontal read ReadGridDistanceHorizontal write WriteGridDistanceHorizontal;
|
|
property GridDistanceVertical read ReadGridDistanceVertical write WriteGridDistanceVertical;
|
|
property GridOriginFromMargin read ReadGridOriginFromMargin write WriteGridOriginFromMargin;
|
|
property GridOriginHorizontal read ReadGridOriginHorizontal write WriteGridOriginHorizontal;
|
|
property GridSpaceBetweenHorizontalLinesroperty read ReadGridSpaceBetweenHorizontalLinesroperty write WriteGridSpaceBetweenHorizontalLinesroperty;
|
|
property GridSpaceBetweenVerticalLines read ReadGridSpaceBetweenVerticalLines write WriteGridSpaceBetweenVerticalLines;
|
|
property HasPassword read ReadHasPassword;
|
|
property HasVBProject read ReadHasVBProject;
|
|
property HTMLDivisions read ReadHTMLDivisions;
|
|
property Hyperlinks read ReadHyperlinks;
|
|
property HyphenateCaps read ReadHyphenateCaps write WriteHyphenateCaps;
|
|
property HyphenationZone read ReadHyphenationZone write WriteHyphenationZone;
|
|
property Indexes read ReadIndexes;
|
|
property InlineShapes read ReadInlineShapes;
|
|
property IsInAutosave read ReadIsInAutosave;
|
|
property IsMasterTSDocxDocument read ReadIsMasterTSDocxDocument;
|
|
property IsSubdocument read ReadIsSubdocument;
|
|
property JustificationMode read ReadJustificationMode write WriteJustificationMode;
|
|
property KerningByAlgorithm read ReadKerningByAlgorithm write WriteKerningByAlgorithm;
|
|
property Kind read ReadKind write WriteKind;
|
|
property LanguageDetected read ReadLanguageDetected write WriteLanguageDetected;
|
|
property ListParagraphs read ReadListParagraphs;
|
|
property Lists read ReadLists;
|
|
property ListTemplates read ReadListTemplates;
|
|
property LockQuickStyleSet read ReadLockQuickStyleSet write WriteLockQuickStyleSet;
|
|
property LockTheme read ReadLockTheme write WriteLockTheme;
|
|
property MailEnvelope read ReadMailEnvelope;
|
|
property MailMerge read ReadMailMerge;
|
|
property Name read ReadName;
|
|
property NoLineBreakAfter read ReadNoLineBreakAfter write WriteNoLineBreakAfter;
|
|
property NoLineBreakBefore read ReadNoLineBreakBefore write WriteNoLineBreakBefore;
|
|
property OMathBreakBin read ReadOMathBreakBin write WriteOMathBreakBin;
|
|
property OMathBreakSub read ReadOMathBreakSub write WriteOMathBreakSub;
|
|
property OMathFontName read ReadOMathFontName write WriteOMathFontName;
|
|
property OMathIntSubSupLim read ReadOMathIntSubSupLim write WriteOMathIntSubSupLim;
|
|
property OMathJc read ReadOMathJc write WriteOMathJc;
|
|
property OMathLeftMargin read ReadOMathLeftMargin write WriteOMathLeftMargin;
|
|
property OMathNarySupSubLim read ReadOMathNarySupSubLim write WriteOMathNarySupSubLim;
|
|
property OMathNarySupSubLim read ReadOMathNarySupSubLim write WriteOMathNarySupSubLim;
|
|
property OMathRightMargin read ReadOMathRightMargin write WriteOMathRightMargin;
|
|
property OMaths read ReadOMaths;
|
|
property OMathSmallFrac read ReadOMathSmallFrac write WriteOMathSmallFrac;
|
|
property OMathWrap read ReadOMathWrap write WriteOMathWrap;
|
|
property OpenEncoding read ReadOpenEncoding;
|
|
property OptimizeForWord97 read ReadOptimizeForWord97 write WriteOptimizeForWord97;
|
|
property OriginalTSDocxDocumentTitle read ReadOriginalTSDocxDocumentTitle;
|
|
property PageSetup read ReadPageSetup;
|
|
property Paragraphs read ReadParagraphs;
|
|
property Password write WritePassword;
|
|
property PasswordEncryptionAlgorithm read ReadPasswordEncryptionAlgorithm;
|
|
property PasswordEncryptionFileProperties read ReadPasswordEncryptionFileProperties;
|
|
property PasswordEncryptionKeyLength read ReadPasswordEncryptionKeyLength;
|
|
property PasswordEncryptionProvider read ReadPasswordEncryptionProvider;
|
|
property Path read ReadPath;
|
|
property Permission read ReadPermission;
|
|
property PrintFormsData read ReadPrintFormsData write WritePrintFormsData;
|
|
property PrintPostScriptOverText read ReadPrintPostScriptOverText write WritePrintPostScriptOverText;
|
|
property PrintRevisions read ReadPrintRevisions write WritePrintRevisions;
|
|
property ProtectionType read ReadProtectionType;
|
|
property ReadabilityStatistics read ReadReadabilityStatistics;
|
|
property ReadingLayoutSizeX read ReadReadingLayoutSizeX write WriteReadingLayoutSizeX;
|
|
property ReadingLayoutSizeY read ReadReadingLayoutSizeY write WriteReadingLayoutSizeY;
|
|
property ReadingModeLayoutFrozen read ReadReadingModeLayoutFrozen write WriteReadingModeLayoutFrozen;
|
|
property ReadOnly read ReadReadOnly;
|
|
property ReadOnlyRecommended read ReadReadOnlyRecommended write WriteReadOnlyRecommended;
|
|
property RemoveDateAndTime read ReadRemoveDateAndTime write WriteRemoveDateAndTime;
|
|
property RemovePersonalInformation read ReadRemovePersonalInformation write WriteRemovePersonalInformation;
|
|
property Research read ReadResearch;
|
|
property RevisedTSDocxDocumentTitle read ReadRevisedTSDocxDocumentTitle;
|
|
property Revisions read ReadRevisions;
|
|
property Saved read ReadSaved write WriteSaved;
|
|
property SaveEncoding read ReadSaveEncoding write WriteSaveEncoding;
|
|
property SaveFormat read ReadSaveFormat;
|
|
property SaveFormsData read ReadSaveFormsData write WriteSaveFormsData;
|
|
property SaveSubsetFonts read ReadSaveSubsetFonts write WriteSaveSubsetFonts;
|
|
property Scripts read ReadScripts;
|
|
property Sections read ReadSections;
|
|
property SensitivityLabel read ReadSensitivityLabel;
|
|
property Sentences read ReadSentences;
|
|
property ServerPolicy read ReadServerPolicy;
|
|
property Shapes read ReadShapes;
|
|
property ShowGrammaticalErrors read ReadShowGrammaticalErrors write WriteShowGrammaticalErrors;
|
|
property ShowSpellingErrors read ReadShowSpellingErrors write WriteShowSpellingErrors;
|
|
property Signatures read ReadSignatures;
|
|
property SmartTSDocxDocument read ReadSmartTSDocxDocument;
|
|
property SnapToGrid read ReadSnapToGrid write WriteSnapToGrid;
|
|
property SnapToShapes read ReadSnapToShapes write WriteSnapToShapes;
|
|
property SpellingChecked read ReadSpellingChecked write WriteSpellingChecked;
|
|
property SpellingErrors read ReadSpellingErrors;
|
|
property StoryRanges read ReadStoryRanges;
|
|
property Styles read ReadStyles;
|
|
property StyleSheets read ReadStyleSheets;
|
|
property StyleSortMethod read ReadStyleSortMethod write WriteStyleSortMethod;
|
|
property Subdocuments read ReadSubdocuments;
|
|
property Tables read ReadTables;
|
|
property TablesOfAuthorities read ReadTablesOfAuthorities write WriteTablesOfAuthorities;
|
|
property TablesOfAuthoritiesCategories read ReadTablesOfAuthoritiesCategories write WriteTablesOfAuthoritiesCategories;
|
|
property TablesOfContents read ReadTablesOfContents;
|
|
property TablesOfFigures read ReadTablesOfFigures write WriteTablesOfFigures;
|
|
property TextEncoding read ReadTextEncoding write WriteTextEncoding;
|
|
property TextLineEnding read ReadTextLineEnding write WriteTextLineEnding;
|
|
property TrackFormatting read ReadTrackFormatting write WriteTrackFormatting;
|
|
property TrackMoves read ReadTrackMoves write WriteTrackMoves;
|
|
property TrackRevisions read ReadTrackRevisions write WriteTrackRevisions;
|
|
property Type read ReadType;
|
|
property UpdateStylesOnOpen read ReadUpdateStylesOnOpen write WriteUpdateStylesOnOpen;
|
|
property UseMathDefaults read ReadUseMathDefaults write WriteUseMathDefaults;
|
|
property UserControl read ReadUserControl write WriteUserControl;
|
|
property Variables read ReadVariables;
|
|
property VBASigned read ReadVBASigned;
|
|
property VBProject read ReadVBProject;
|
|
property WebOptions read ReadWebOptions;
|
|
property Windows read ReadWindows;
|
|
property WordOpenXML read ReadWordOpenXML;
|
|
property Words read ReadWords;
|
|
property WritePassword write WriteWritePassword;
|
|
property WriteReserved read ReadWriteReserved;
|
|
property XMLSaveThroughXSLT read ReadXMLSaveThroughXSLT write WriteXMLSaveThroughXSLT;
|
|
property XMLSchemaReferences read ReadXMLSchemaReferences;
|
|
property XMLShowAdvancedErrors read ReadXMLShowAdvancedErrors write WriteXMLShowAdvancedErrors;
|
|
property XMLUseXSLTWhenSaving read ReadXMLUseXSLTWhenSaving write WriteXMLUseXSLTWhenSaving;
|
|
Function WriteXMLUseXSLTWhenSaving();
|
|
Function ReadXMLUseXSLTWhenSaving();
|
|
Function WriteXMLShowAdvancedErrors();
|
|
Function ReadXMLShowAdvancedErrors();
|
|
Function ReadXMLSchemaReferences();
|
|
Function WriteXMLSaveThroughXSLT();
|
|
Function ReadXMLSaveThroughXSLT();
|
|
Function ReadWriteReserved();
|
|
Function WriteWritePassword();
|
|
Function ReadWords();
|
|
Function ReadWordOpenXML();
|
|
Function ReadWindows();
|
|
Function ReadWebOptions();
|
|
Function ReadVBProject();
|
|
Function ReadVBASigned();
|
|
Function ReadVariables();
|
|
Function WriteUserControl();
|
|
Function ReadUserControl();
|
|
Function WriteUseMathDefaults();
|
|
Function ReadUseMathDefaults();
|
|
Function WriteUpdateStylesOnOpen();
|
|
Function ReadUpdateStylesOnOpen();
|
|
Function ReadType();
|
|
Function WriteTrackRevisions();
|
|
Function ReadTrackRevisions();
|
|
Function WriteTrackMoves();
|
|
Function ReadTrackMoves();
|
|
Function WriteTrackFormatting();
|
|
Function ReadTrackFormatting();
|
|
Function WriteTextLineEnding();
|
|
Function ReadTextLineEnding();
|
|
Function WriteTextEncoding();
|
|
Function ReadTextEncoding();
|
|
Function WriteTablesOfFigures();
|
|
Function ReadTablesOfFigures();
|
|
Function ReadTablesOfContents();
|
|
Function WriteTablesOfAuthoritiesCategories();
|
|
Function ReadTablesOfAuthoritiesCategories();
|
|
Function WriteTablesOfAuthorities();
|
|
Function ReadTablesOfAuthorities();
|
|
Function ReadTables(index);
|
|
Function ReadSubdocuments();
|
|
Function WriteStyleSortMethod();
|
|
Function ReadStyleSortMethod();
|
|
Function ReadStyleSheets();
|
|
Function ReadStyles();
|
|
Function ReadStoryRanges();
|
|
Function ReadSpellingErrors();
|
|
Function WriteSpellingChecked();
|
|
Function ReadSpellingChecked();
|
|
Function WriteSnapToShapes();
|
|
Function ReadSnapToShapes();
|
|
Function WriteSnapToGrid();
|
|
Function ReadSnapToGrid();
|
|
Function ReadSmartTSDocxDocument();
|
|
Function ReadSignatures();
|
|
Function WriteShowSpellingErrors();
|
|
Function ReadShowSpellingErrors();
|
|
Function WriteShowGrammaticalErrors();
|
|
Function ReadShowGrammaticalErrors();
|
|
Function ReadShapes();
|
|
Function ReadServerPolicy();
|
|
Function ReadSentences();
|
|
Function ReadSensitivityLabel();
|
|
Function ReadSections();
|
|
Function ReadScripts();
|
|
Function WriteSaveSubsetFonts();
|
|
Function ReadSaveSubsetFonts();
|
|
Function WriteSaveFormsData();
|
|
Function ReadSaveFormsData();
|
|
Function ReadSaveFormat();
|
|
Function WriteSaveEncoding();
|
|
Function ReadSaveEncoding();
|
|
Function WriteSaved();
|
|
Function ReadSaved();
|
|
Function ReadRevisions();
|
|
Function ReadRevisedTSDocxDocumentTitle();
|
|
Function ReadResearch();
|
|
Function WriteRemovePersonalInformation();
|
|
Function ReadRemovePersonalInformation();
|
|
Function WriteRemoveDateAndTime();
|
|
Function ReadRemoveDateAndTime();
|
|
Function WriteReadOnlyRecommended();
|
|
Function ReadReadOnlyRecommended();
|
|
Function ReadReadOnly();
|
|
Function WriteReadingModeLayoutFrozen();
|
|
Function ReadReadingModeLayoutFrozen();
|
|
Function WriteReadingLayoutSizeY();
|
|
Function ReadReadingLayoutSizeY();
|
|
Function WriteReadingLayoutSizeX();
|
|
Function ReadReadingLayoutSizeX();
|
|
Function ReadReadabilityStatistics();
|
|
Function ReadProtectionType();
|
|
Function WritePrintRevisions();
|
|
Function ReadPrintRevisions();
|
|
Function WritePrintPostScriptOverText();
|
|
Function ReadPrintPostScriptOverText();
|
|
Function WritePrintFormsData();
|
|
Function ReadPrintFormsData();
|
|
Function ReadPermission();
|
|
Function ReadPath();
|
|
Function ReadPasswordEncryptionProvider();
|
|
Function ReadPasswordEncryptionKeyLength();
|
|
Function ReadPasswordEncryptionFileProperties();
|
|
Function ReadPasswordEncryptionAlgorithm();
|
|
Function WritePassword(value);
|
|
Function ReadParagraphs(index);
|
|
Function ReadPageSetup();
|
|
Function ReadOriginalTSDocxDocumentTitle();
|
|
Function WriteOptimizeForWord97();
|
|
Function ReadOptimizeForWord97();
|
|
Function ReadOpenEncoding();
|
|
Function WriteOMathWrap();
|
|
Function ReadOMathWrap();
|
|
Function WriteOMathSmallFrac();
|
|
Function ReadOMathSmallFrac();
|
|
Function ReadOMaths();
|
|
Function WriteOMathRightMargin();
|
|
Function ReadOMathRightMargin();
|
|
Function WriteOMathNarySupSubLim();
|
|
Function ReadOMathNarySupSubLim();
|
|
Function WriteOMathLeftMargin();
|
|
Function ReadOMathLeftMargin();
|
|
Function WriteOMathJc();
|
|
Function ReadOMathJc();
|
|
Function WriteOMathIntSubSupLim();
|
|
Function ReadOMathIntSubSupLim();
|
|
Function WriteOMathFontName();
|
|
Function ReadOMathFontName();
|
|
Function WriteOMathBreakSub();
|
|
Function ReadOMathBreakSub();
|
|
Function WriteOMathBreakBin();
|
|
Function ReadOMathBreakBin();
|
|
Function WriteNoLineBreakBefore();
|
|
Function ReadNoLineBreakBefore();
|
|
Function WriteNoLineBreakAfter();
|
|
Function ReadNoLineBreakAfter();
|
|
Function ReadName();
|
|
Function ReadMailEnvelope();
|
|
Function ReadMailMerge();
|
|
Function WriteLockTheme();
|
|
Function ReadLockTheme();
|
|
Function WriteLockQuickStyleSet();
|
|
Function ReadLockQuickStyleSet();
|
|
Function ReadListTemplates();
|
|
Function ReadLists();
|
|
Function ReadListParagraphs();
|
|
Function WriteLanguageDetected();
|
|
Function ReadLanguageDetected();
|
|
Function WriteKind();
|
|
Function ReadKind();
|
|
Function WriteKerningByAlgorithm();
|
|
Function ReadKerningByAlgorithm();
|
|
Function WriteJustificationMode();
|
|
Function ReadJustificationMode();
|
|
Function ReadIsSubdocument();
|
|
Function ReadIsMasterTSDocxDocument();
|
|
Function ReadIsInAutosave();
|
|
Function ReadInlineShapes();
|
|
Function ReadIndexes();
|
|
Function WriteHyphenationZone();
|
|
Function ReadHyphenationZone();
|
|
Function WriteHyphenateCaps();
|
|
Function ReadHyphenateCaps();
|
|
Function ReadHyperlinks();
|
|
Function ReadHTMLDivisions();
|
|
Function ReadHasVBProject();
|
|
Function ReadHasPassword();
|
|
Function WriteGridSpaceBetweenVerticalLines();
|
|
Function ReadGridSpaceBetweenVerticalLines();
|
|
Function WriteGridSpaceBetweenHorizontalLinesroperty();
|
|
Function ReadGridSpaceBetweenHorizontalLinesroperty();
|
|
Function WriteGridOriginVertical();
|
|
Function ReadGridOriginVertical();
|
|
Function WriteGridOriginHorizontal();
|
|
Function ReadGridOriginHorizontal();
|
|
Function WriteGridOriginFromMargin();
|
|
Function ReadGridOriginFromMargin();
|
|
Function WriteGridDistanceVertical();
|
|
Function ReadGridDistanceVertical();
|
|
Function WriteGridDistanceHorizontal();
|
|
Function ReadGridDistanceHorizontal();
|
|
Function ReadGrammaticalErrors();
|
|
Function ReadGrammarChecked();
|
|
Function ReadFullName();
|
|
Function ReadFrameset();
|
|
Function ReadFrames();
|
|
Function ReadFormsDesign();
|
|
Function ReadFormFields();
|
|
Function WriteFormattingShowUserStyleName();
|
|
Function ReadFormattingShowUserStyleName();
|
|
Function WriteFormattingShowParagraph();
|
|
Function ReadFormattingShowParagraph();
|
|
Function WriteFormattingShowNumbering();
|
|
Function ReadFormattingShowNumbering();
|
|
Function WriteFormattingShowNextLevel();
|
|
Function ReadFormattingShowNextLevel();
|
|
Function WriteFormattingShowFont();
|
|
Function ReadFormattingShowFont();
|
|
Function WriteFormattingShowFilter();
|
|
Function ReadFormattingShowFilter();
|
|
Function WriteFormattingShowClear();
|
|
Function ReadFormattingShowClear();
|
|
Function ReadFootnotes();
|
|
Function WriteFinal();
|
|
Function ReadFinal();
|
|
Function ReadFields();
|
|
Function WriteFarEastLineBreakLevel();
|
|
Function ReadFarEastLineBreakLevel();
|
|
Function WriteFarEastLineBreakLanguage();
|
|
Function ReadFarEastLineBreakLanguage();
|
|
Function ReadEnvelope();
|
|
Function WriteEnforceStyle();
|
|
Function ReadEnforceStyle();
|
|
Function ReadEndnotes();
|
|
Function WriteEncryptionProvider();
|
|
Function ReadEncryptionProvider();
|
|
Function WriteEmbedTrueTypeFonts();
|
|
Function ReadEmbedTrueTypeFonts();
|
|
Function WriteEmbedLinguisticData();
|
|
Function ReadEmbedLinguisticData();
|
|
Function ReadEmail();
|
|
Function WriteDoNotEmbedSystemFonts();
|
|
Function ReadDoNotEmbedSystemFonts();
|
|
Function ReadTSDocxDocumentTheme();
|
|
Function ReadTSDocxDocumentLibraryVersions();
|
|
Function ReadTSDocxDocumentInspectors();
|
|
Function WriteDisableFeaturesIntroducedAfter();
|
|
Function ReadDisableFeaturesIntroducedAfter();
|
|
Function WriteDisableFeatures();
|
|
Function ReadDisableFeatures();
|
|
Function WriteDefaultTargetFrame();
|
|
Function ReadDefaultTargetFrame();
|
|
Function WriteDefaultTabStop();
|
|
Function ReadDefaultTabStop();
|
|
Function ReadDefaultTableStyle();
|
|
Function ReadCustomXMLParts();
|
|
Function ReadCustomTSDocxDocumentProperties();
|
|
Function ReadCurrentRsid();
|
|
Function ReadContentTypeProperties();
|
|
Function ReadContentControls();
|
|
Function ReadContent();
|
|
Function ReadContainer();
|
|
Function WriteConsecutiveHyphensLimit();
|
|
Function ReadConsecutiveHyphensLimit();
|
|
Function WriteCompatibilityMode();
|
|
Function ReadCompatibilityMode();
|
|
Function WriteCompatibility();
|
|
Function ReadCompatibility();
|
|
Function ReadComments();
|
|
Function ReadCommandBars();
|
|
Function ReadCodeName();
|
|
Function ReadCoAuthoring();
|
|
Function WriteClickAndTypeParagraphStyle();
|
|
Function ReadClickAndTypeParagraphStyle();
|
|
Function WriteChartDataPointTrack();
|
|
Function ReadChartDataPointTrack();
|
|
Function ReadCharacters();
|
|
Function ReadBuiltInTSDocxDocumentProperties();
|
|
Function ReadBroadcast();
|
|
Function ReadBookmarks();
|
|
Function ReadBibliography();
|
|
Function ReadBackground();
|
|
Function WriteAutoSaveOn();
|
|
Function ReadAutoSaveOn();
|
|
Function WriteAutoHyphenation();
|
|
Function ReadAutoHyphenation();
|
|
Function WriteAutoFormatOverride();
|
|
Function ReadAutoFormatOverride();
|
|
Function WriteAttachedTemplate();
|
|
Function ReadAttachedTemplate();
|
|
Function WriteActiveWritingStyle();
|
|
Function ReadActiveWritingStyle();
|
|
Function ReadActiveWindow();
|
|
Function ReadActiveThemeDisplayName();
|
|
Function ReadActiveTheme();
|
|
|
|
End;
|
|
|
|
// ============== 实现 ================= //
|
|
Function TSDocxDocument.Init(docx, collection, name, fullname);
|
|
Begin
|
|
docx_ := docx;
|
|
file_name_ := name;
|
|
full_name_ := fullname;
|
|
collection_ := collection;
|
|
tables_ := new TSDocxTables(self.Application, self.Creator, self);
|
|
tables.Init(docx_);
|
|
paragraphs_ := new TSDocxParagraphs(self.Application, self.Creator, self);
|
|
paragraphs_.Init(docx_);
|
|
|
|
params_ := array();
|
|
End;
|
|
|
|
Function TSDocxDocument.GetParam(k);
|
|
Begin
|
|
return params_[k];
|
|
End;
|
|
|
|
Function TSDocxDocument.SetParam(k, v);
|
|
Begin
|
|
params_[k] := v;
|
|
End;
|
|
|
|
// function
|
|
Function TSDocxDocument.Activate();
|
|
Begin
|
|
collection_.SetActivation(file_name_);
|
|
End;
|
|
|
|
Function TSDocxDocument.Close(SaveChanges, OriginalFormat, RouteTSDocxDocument)
|
|
Begin
|
|
if ifnil(SaveChanges) then SaveChanges := TSDocxEnumerations.wdDoNotSaveChanges();
|
|
case SaveChanges of
|
|
TSDocxEnumerations.wdDoNotSaveChanges():
|
|
collection_.RemoveCollection(file_name_);
|
|
TSDocxEnumerations.wdPromptToSaveChanges():
|
|
return;
|
|
TSDocxEnumerations.wdSaveChanges():
|
|
begin
|
|
[err, msg] := docx_.Save();
|
|
if not err then collection_.RemoveCollection(file_name_);
|
|
end
|
|
end;
|
|
End;
|
|
|
|
Function TSDocxDocument.Save();
|
|
Begin
|
|
docx_.Save();
|
|
End;
|
|
|
|
Function TSDocxDocument.SaveAs2(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword,
|
|
ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData,
|
|
SaveAsAOCELetter, Encoding, InsertLineBreaks, AllowSubstitutions, LineEnding,
|
|
AddBiDiMarks, CompatibilityMode);
|
|
Begin
|
|
docx_.SetPassword(Password);
|
|
docx_.SaveAs("", FileName);
|
|
End;
|
|
|
|
Function TSDocxDocument.Range(Start, _End);
|
|
Begin
|
|
// Range[0, 1) 左开右闭
|
|
obj := new TSWdRange(docx_.Body().Root(), Start, _End);
|
|
range_obj := new TSDocxRange(self.Application, self.Creator, self);
|
|
range_obj.Init(docx_, obj);
|
|
return range_obj;
|
|
|
|
End;
|
|
|
|
// property
|
|
Function TSDocxDocument.ReadFullName();
|
|
Begin
|
|
return full_name_;
|
|
End;
|
|
|
|
Function TSDocxDocument.ReadName();
|
|
Begin
|
|
return file_name_;
|
|
End;
|
|
|
|
Function TSDocxDocument.WritePassword(value);
|
|
Begin
|
|
docx_.SetPassword(value);
|
|
End;
|
|
|
|
Function TSDocxDocument.ReadPath();
|
|
Begin
|
|
return ExtractFileDir(full_name_);
|
|
End;
|
|
|
|
Function TSDocxDocument.ReadTables(index);
|
|
Begin
|
|
return ifnil(index) ? tables_ : tables.Item(index);
|
|
End;
|
|
|
|
Function TSDocxDocument.ReadParagraphs(index);
|
|
Begin
|
|
return ifnil(index) ? paragraphs_ : paragraphs_.Item(index);
|
|
End;
|
|
|
|
Function TSDocxDocument.ReadTablesOfContents();
|
|
Begin
|
|
tables_of_contents_obj := new TSDocxTablesOfContents(self.Application, self.Create, self);
|
|
tables_of_contents_obj.Init(docx_);
|
|
return tables_of_contents_obj;
|
|
End;
|