373 lines
16 KiB
Plaintext
373 lines
16 KiB
Plaintext
Type TSDocxApplication = Class(TSVbaBase)
|
|
|
|
public
|
|
Function Create();
|
|
Function Init();
|
|
|
|
private
|
|
documents_;
|
|
|
|
public
|
|
// Methods
|
|
Function Activate();
|
|
Function AddAddress(TagID, Value);
|
|
Function AutomaticChange();
|
|
Function BuildKeyCode(Arg1, Arg2, Arg3, Arg4);
|
|
Function CentimetersToPoints(Centimeters);
|
|
Function ChangeFileOpenDirectory(Path);
|
|
Function CheckGrammar(String);
|
|
Function CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10);
|
|
Function CleanString(String);
|
|
Function CompareDocuments(OriginalDocument, RevisedDocument, Destination, Granularity, CompareFormatting, CompareCaseChanges, CompareWhitespace, CompareTables, CompareHeaders, CompareFootnotes, CompareTextboxes, CompareFields, CompareComments, CompareMoves, RevisedAuthor, IgnoreAllComparisonWarnings);
|
|
Function DDEExecute(Channel, Command);
|
|
Function DDEInitiate(App, Topic);
|
|
Function DDEPoke(Channel, Item, Data);
|
|
Function DDERequest(Channel, Item);
|
|
Function DDETerminate(Channel);
|
|
Function DDETerminateAll();
|
|
Function DefaultWebOptions();
|
|
Function GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses);
|
|
Function GetDefaultTheme(DocumentType);
|
|
Function GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, MainDictionary, SuggestionMode, CustomDictionary2, CustomDictionary3, CustomDictionary4, CustomDictionary5, CustomDictionary6, CustomDictionary7, CustomDictionary8, CustomDictionary9, CustomDictionary10);
|
|
Function GoBack();
|
|
Function GoForward();
|
|
Function Help(HelpType);
|
|
Function InchesToPoints(Inches);
|
|
Function Keyboard(LangId);
|
|
Function KeyboardBidi();
|
|
Function KeyboardLatin();
|
|
Function KeyString(KeyCode, KeyCode2);
|
|
Function LinesToPoints(Lines);
|
|
Function ListCommands(ListAllCommands);
|
|
Function LoadMasterList(FileName);
|
|
Function LookupNameProperties(Name);
|
|
Function MergeDocuments(OriginalDocument, RevisedDocument, Destination, Granularity, CompareFormatting, CompareCaseChanges, CompareWhitespace, CompareTables, CompareHeaders, CompareFootnotes, CompareTextboxes, CompareFields, CompareComments, OriginalAuthor, RevisedAuthor, FormatFrom);
|
|
Function MillimetersToPoints(Millimeters);
|
|
Function Move(Left, Top);
|
|
Function NewWindow();
|
|
Function OnTime(When, Name, Tolerance);
|
|
Function OrganizerCopy(Source, Destination, Name, Object);
|
|
Function OrganizerDelete(Source, Name, Object);
|
|
Function OrganizerRename(Source, Name, NewName, Object);
|
|
Function PicasToPoints(Picas);
|
|
Function PixelsToPoints(Pixels, fVertical);
|
|
Function PointsToCentimeters(Points);
|
|
Function PointsToInches(Points);
|
|
Function PointsToLines(Points);
|
|
Function PointsToMillimeters(Points);
|
|
Function PointsToPicas(Points);
|
|
Function PointsToPixels(Points, fVertical);
|
|
Function PrintOut(Background, Append, Range, OutputFileName, _From, _To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight);
|
|
Function ProductCode();
|
|
Function PutFocusInMailHeader();
|
|
Function Quit(SaveChanges, OriginalFormat, RouteDocument);
|
|
Function Repeat(Times);
|
|
Function ResetIgnoreAll();
|
|
Function Resize (Width, Height);
|
|
Function Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, varg25, varg26, varg27, varg28, varg29, varg30);
|
|
Function ScreenRefresh();
|
|
Function SetDefaultTheme(Name, DocumentType);
|
|
Function ShowClipboard();
|
|
Function SubstituteFont(UnavailableFont, SubstituteFont);
|
|
Function ToggleKeyboard();
|
|
|
|
// Properties
|
|
property ActiveDocument read ReadActiveDocument;
|
|
property ActiveEncryptionSession read ReadActiveEncryptionSession;
|
|
property ActivePrinter read ReadActivePrinter write WriteActivePrinter;
|
|
property ActiveProtectedViewWindow read ReadActiveProtectedViewWindow;
|
|
property ActiveWindow read ReadActiveWindow;
|
|
property AddIns read ReadAddIns;
|
|
property ArbitraryXMLSupportAvailable read ReadArbitraryXMLSupportAvailable;
|
|
property Assistance read ReadAssistance;
|
|
property AutoCaptions read ReadAutoCaptions;
|
|
property AutoCorrect read ReadAutoCorrect;
|
|
property AutoCorrectEmail read ReadAutoCorrectEmail;
|
|
property AutomationSecurity read ReadAutomationSecurity write WriteAutomationSecurity;
|
|
property BackgroundPrintingStatus read ReadBackgroundPrintingStatus;
|
|
property BackgroundSavingStatus read ReadBackgroundSavingStatus;
|
|
property Bibliography read ReadBibliography;
|
|
property BrowseExtraFileTypes read ReadBrowseExtraFileTypes write WriteBrowseExtraFileTypes;
|
|
property Browser read ReadBrowser;
|
|
property Build read ReadBuild;
|
|
property CapsLock read ReadCapsLock;
|
|
property Caption read ReadCaption write WriteCaption;
|
|
property CaptionLabels read ReadCaptionLabels;
|
|
property ChartDataPointTrack read ReadChartDataPointTrack write WriteChartDataPointTrack;
|
|
property CheckLanguage read ReadCheckLanguage write WriteCheckLanguage;
|
|
property COMAddIns read ReadCOMAddIns;
|
|
property CommandBars read ReadCommandBars;
|
|
property CustomDictionaries read ReadCustomDictionaries;
|
|
property CustomizationContext read ReadCustomizationContext write WriteCustomizationContext;
|
|
property DefaultLegalBlackline read ReadDefaultLegalBlackline write WriteDefaultLegalBlackline;
|
|
property DefaultSaveFormat read ReadDefaultSaveFormat write WriteDefaultSaveFormat;
|
|
property DefaultTableSeparator read ReadDefaultTableSeparator write WriteDefaultTableSeparator;
|
|
property Dialogs read ReadDialogs;
|
|
property DisplayAlerts read ReadDisplayAlerts write WriteDisplayAlerts;
|
|
property DisplayAutoCompleteTips read ReadDisplayAutoCompleteTips write WriteDisplayAutoCompleteTips;
|
|
property DisplayDocumentInformationPanel read ReadDisplayDocumentInformationPanel write WriteDisplayDocumentInformationPanel;
|
|
property DisplayRecentFiles read ReadDisplayRecentFiles write WriteDisplayRecentFiles;
|
|
property DisplayScreenTips read ReadDisplayScreenTips write WriteDisplayScreenTips;
|
|
property DisplayScrollBars read ReadDisplayScrollBars write WriteDisplayScrollBars;
|
|
property Documents read ReadDocuments;
|
|
property DontResetInsertionPointProperties read ReadDontResetInsertionPointProperties write WriteDontResetInsertionPointProperties;
|
|
property EmailOptions read ReadEmailOptions;
|
|
property EmailTemplate read ReadEmailTemplate write WriteEmailTemplate;
|
|
property EnableCancelKey read ReadEnableCancelKey write WriteEnableCancelKey;
|
|
property FeatureInstall read ReadFeatureInstall write WriteFeatureInstall;
|
|
property FileConverters read ReadFileConverters;
|
|
property FileDialog read ReadFileDialog;
|
|
property FileValidation read ReadFileValidation write WriteFileValidation;
|
|
property FindKey read ReadFindKey;
|
|
property FocusInMailHeader read ReadFocusInMailHeader;
|
|
property FontNames read ReadFontNames;
|
|
property HangulHanjaDictionaries read ReadHangulHanjaDictionaries;
|
|
property Height read ReadHeight write WriteHeight;
|
|
property International read ReadInternational;
|
|
property IsObjectValid read ReadIsObjectValid;
|
|
property IsSandboxed read ReadIsSandboxed;
|
|
property KeyBindings read ReadKeyBindings;
|
|
property KeysBoundTo read ReadKeysBoundTo;
|
|
property LandscapeFontNames read ReadLandscapeFontNames;
|
|
property Language read ReadLanguage;
|
|
property Languages read ReadLanguages;
|
|
property LanguageSettings read ReadLanguageSettings;
|
|
property Left read ReadLeft write WriteLeft;
|
|
property ListGalleries read ReadListGalleries;
|
|
property MacroContainer read ReadMacroContainer;
|
|
property MailingLabel read ReadMailingLabel;
|
|
property MailMessage read ReadMailMessage;
|
|
property MailSystem read ReadMailSystem;
|
|
property MAPIAvailable read ReadMAPIAvailable;
|
|
property MathCoprocessorAvailable read ReadMathCoprocessorAvailable;
|
|
property MouseAvailable read ReadMouseAvailable;
|
|
property Name read ReadName;
|
|
property NewDocument read ReadNewDocument;
|
|
property NormalTemplate read ReadNormalTemplate;
|
|
property NumLock read ReadNumLock;
|
|
property OMathAutoCorrect read ReadOMathAutoCorrect;
|
|
property OpenAttachmentsInFullScreen read ReadOpenAttachmentsInFullScreen write WriteOpenAttachmentsInFullScreen;
|
|
property Options read ReadOptions;
|
|
property Path read ReadPath;
|
|
property PathSeparator read ReadPathSeparator;
|
|
property PickerDialog read ReadPickerDialog;
|
|
property PortraitFontNames read ReadPortraitFontNames;
|
|
property PrintPreview read ReadPrintPreview write WritePrintPreview;
|
|
property ProtectedViewWindows read ReadProtectedViewWindows;
|
|
property RecentFiles read ReadRecentFiles;
|
|
property RestrictLinkedStyles read ReadRestrictLinkedStyles write WriteRestrictLinkedStyles;
|
|
property ScreenUpdating read ReadScreenUpdating write WriteScreenUpdating;
|
|
property Selection read ReadSelection;
|
|
property SensitivityLabelPolicy read ReadSensitivityLabelPolicy;
|
|
property ShowStartupDialog read ReadShowStartupDialog write WriteShowStartupDialog;
|
|
property ShowStylePreviews read ReadShowStylePreviews write WriteShowStylePreviews;
|
|
property ShowVisualBasicEditor read ReadShowVisualBasicEditor write WriteShowVisualBasicEditor;
|
|
property SmartArtColors read ReadSmartArtColors;
|
|
property SmartArtLayouts read ReadSmartArtLayouts;
|
|
property SmartArtQuickStyles read ReadSmartArtQuickStyles;
|
|
property SpecialMode read ReadSpecialMode;
|
|
property StartupPath read ReadStartupPath write WriteStartupPath;
|
|
property SynonymInfo read ReadSynonymInfo;
|
|
property System read ReadSystem;
|
|
property TaskPanes read ReadTaskPanes;
|
|
property Tasks read ReadTasks;
|
|
property Templates read ReadTemplates;
|
|
property Top read ReadTop write WriteTop;
|
|
property UndoRecord read ReadUndoRecord;
|
|
property UsableHeight read ReadUsableHeight;
|
|
property UsableWidth read ReadUsableWidth;
|
|
property UserAddress read ReadUserAddress write WriteUserAddress;
|
|
property UserControl read ReadUserControl;
|
|
property UserInitials read ReadUserInitials write WriteUserInitials;
|
|
property UserName read ReadUserName write WriteUserName;
|
|
property VBE read ReadVBE;
|
|
property Version read ReadVersion;
|
|
property Visible read ReadVisible write WriteVisible;
|
|
property Width read ReadWidth write WriteWidth;
|
|
property Windows read ReadWindows;
|
|
property WindowState read ReadWindowState write WriteWindowState;
|
|
property WordBasic read ReadWordBasic;
|
|
property XMLNamespaces read ReadXMLNamespaces;
|
|
Function ReadXMLNamespaces();
|
|
Function ReadWordBasic();
|
|
Function WriteWindowState(value);
|
|
Function ReadWindowState();
|
|
Function ReadWindows();
|
|
Function WriteWidth(value);
|
|
Function ReadWidth();
|
|
Function WriteVisible(value);
|
|
Function ReadVisible();
|
|
Function ReadVersion();
|
|
Function ReadVBE();
|
|
Function WriteUserName(value);
|
|
Function ReadUserName();
|
|
Function WriteUserInitials(value);
|
|
Function ReadUserInitials();
|
|
Function ReadUserControl();
|
|
Function WriteUserAddress(value);
|
|
Function ReadUserAddress();
|
|
Function ReadUsableWidth();
|
|
Function ReadUsableHeight();
|
|
Function ReadUndoRecord();
|
|
Function WriteTop(value);
|
|
Function ReadTop();
|
|
Function ReadTemplates();
|
|
Function ReadTasks();
|
|
Function ReadTaskPanes();
|
|
Function ReadSystem();
|
|
Function ReadSynonymInfo();
|
|
Function WriteStartupPath(value);
|
|
Function ReadStartupPath();
|
|
Function ReadSpecialMode();
|
|
Function ReadSmartArtQuickStyles();
|
|
Function ReadSmartArtLayouts();
|
|
Function ReadSmartArtColors();
|
|
Function WriteShowVisualBasicEditor(value);
|
|
Function ReadShowVisualBasicEditor();
|
|
Function WriteShowStylePreviews(value);
|
|
Function ReadShowStylePreviews();
|
|
Function WriteShowStartupDialog(value);
|
|
Function ReadShowStartupDialog();
|
|
Function ReadSensitivityLabelPolicy();
|
|
Function ReadSelection();
|
|
Function WriteScreenUpdating(value);
|
|
Function ReadScreenUpdating();
|
|
Function WriteRestrictLinkedStyles(value);
|
|
Function ReadRestrictLinkedStyles();
|
|
Function ReadRecentFiles();
|
|
Function ReadProtectedViewWindows();
|
|
Function WritePrintPreview(value);
|
|
Function ReadPrintPreview();
|
|
Function ReadPortraitFontNames();
|
|
Function ReadPickerDialog();
|
|
Function ReadPathSeparator();
|
|
Function ReadPath();
|
|
Function ReadOptions();
|
|
Function WriteOpenAttachmentsInFullScreen(value);
|
|
Function ReadOpenAttachmentsInFullScreen();
|
|
Function ReadOMathAutoCorrect();
|
|
Function ReadNumLock();
|
|
Function ReadNormalTemplate();
|
|
Function ReadNewDocument();
|
|
Function ReadName();
|
|
Function ReadMouseAvailable();
|
|
Function ReadMathCoprocessorAvailable();
|
|
Function ReadMAPIAvailable();
|
|
Function ReadMailSystem();
|
|
Function ReadMailMessage();
|
|
Function ReadMailingLabel();
|
|
Function ReadMacroContainer();
|
|
Function ReadListGalleries();
|
|
Function WriteLeft(value);
|
|
Function ReadLeft();
|
|
Function ReadLanguageSettings();
|
|
Function ReadLanguages();
|
|
Function ReadLanguage();
|
|
Function ReadLandscapeFontNames();
|
|
Function ReadKeysBoundTo();
|
|
Function ReadKeyBindings();
|
|
Function ReadIsSandboxed();
|
|
Function ReadIsObjectValid();
|
|
Function ReadInternational();
|
|
Function WriteHeight(value);
|
|
Function ReadHeight();
|
|
Function ReadHangulHanjaDictionaries();
|
|
Function ReadFontNames();
|
|
Function ReadFocusInMailHeader();
|
|
Function ReadFindKey();
|
|
Function WriteFileValidation(value);
|
|
Function ReadFileValidation();
|
|
Function ReadFileDialog();
|
|
Function ReadFileConverters();
|
|
Function WriteFeatureInstall(value);
|
|
Function ReadFeatureInstall();
|
|
Function WriteEnableCancelKey(value);
|
|
Function ReadEnableCancelKey();
|
|
Function WriteEmailTemplate(value);
|
|
Function ReadEmailTemplate();
|
|
Function ReadEmailOptions();
|
|
Function WriteDontResetInsertionPointProperties(value);
|
|
Function ReadDontResetInsertionPointProperties();
|
|
Function ReadDocuments(Index);
|
|
Function WriteDisplayScrollBars(value);
|
|
Function ReadDisplayScrollBars();
|
|
Function WriteDisplayScreenTips(value);
|
|
Function ReadDisplayScreenTips();
|
|
Function WriteDisplayRecentFiles(value);
|
|
Function ReadDisplayRecentFiles();
|
|
Function WriteDisplayDocumentInformationPanel(value);
|
|
Function ReadDisplayDocumentInformationPanel();
|
|
Function WriteDisplayAutoCompleteTips(value);
|
|
Function ReadDisplayAutoCompleteTips();
|
|
Function WriteDisplayAlerts(value);
|
|
Function ReadDisplayAlerts();
|
|
Function ReadDialogs();
|
|
Function WriteDefaultTableSeparator(value);
|
|
Function ReadDefaultTableSeparator();
|
|
Function WriteDefaultSaveFormat(value);
|
|
Function ReadDefaultSaveFormat();
|
|
Function WriteDefaultLegalBlackline(value);
|
|
Function ReadDefaultLegalBlackline();
|
|
Function WriteCustomizationContext(value);
|
|
Function ReadCustomizationContext();
|
|
Function ReadCustomDictionaries();
|
|
Function ReadCommandBars();
|
|
Function ReadCOMAddIns();
|
|
Function WriteCheckLanguage(value);
|
|
Function ReadCheckLanguage();
|
|
Function WriteChartDataPointTrack(value);
|
|
Function ReadChartDataPointTrack();
|
|
Function ReadCaptionLabels();
|
|
Function WriteCaption(value);
|
|
Function ReadCaption();
|
|
Function ReadCapsLock();
|
|
Function ReadBuild();
|
|
Function ReadBrowser();
|
|
Function WriteBrowseExtraFileTypes(value);
|
|
Function ReadBrowseExtraFileTypes();
|
|
Function ReadBibliography();
|
|
Function ReadBackgroundSavingStatus();
|
|
Function ReadBackgroundPrintingStatus();
|
|
Function WriteAutomationSecurity(value);
|
|
Function ReadAutomationSecurity();
|
|
Function ReadAutoCorrectEmail();
|
|
Function ReadAutoCorrect();
|
|
Function ReadAutoCaptions();
|
|
Function ReadAssistance();
|
|
Function ReadArbitraryXMLSupportAvailable();
|
|
Function ReadAddIns();
|
|
Function ReadActiveWindow();
|
|
Function ReadActiveProtectedViewWindow();
|
|
Function WriteActivePrinter(value);
|
|
Function ReadActivePrinter();
|
|
Function ReadActiveEncryptionSession();
|
|
Function ReadActiveDocument();
|
|
|
|
End;
|
|
|
|
// ============== 实现 ================= //
|
|
Function TSDocxApplication.Create();
|
|
Begin
|
|
Class(TSVbaBase).Create(self, random(100000000), self);
|
|
Init();
|
|
End;
|
|
|
|
Function TSDocxApplication.Init();
|
|
Begin
|
|
documents_ := new TSDocxDocuments(self.Application, self.Creator, self);
|
|
documents_.Init();
|
|
End;
|
|
|
|
// Properties
|
|
Function TSDocxApplication.ReadDocuments(Index)
|
|
Begin
|
|
if ifnil(Index) then return documents_;
|
|
return documents_.Item(Index);
|
|
End;
|
|
|
|
Function TSDocxApplication.ReadActiveDocument();
|
|
Begin
|
|
return documents_.GetActivation();
|
|
End;
|
|
|