summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--oovbaapi/ooo/vba/word/XWordBasic.idl9
-rw-r--r--sw/source/ui/vba/vbaapplication.cxx106
2 files changed, 66 insertions, 49 deletions
diff --git a/oovbaapi/ooo/vba/word/XWordBasic.idl b/oovbaapi/ooo/vba/word/XWordBasic.idl
index 24f4853024c9..d704b92b122c 100644
--- a/oovbaapi/ooo/vba/word/XWordBasic.idl
+++ b/oovbaapi/ooo/vba/word/XWordBasic.idl
@@ -18,14 +18,7 @@ interface XWordBasic
void FileOpen( [in] string Name, [in] any ConfirmConversions, [in] any ReadOnly, [in] any AddToMru, [in] any PasswordDoc, [in] any PasswordDot, [in] any Revert, [in] any WritePasswordDoc, [in] any WritePasswordDot );
void FileSave();
- // There is no documentation for ToolsOptionsView, but all examples seem to pass it only named
- // parameters, so the order of parameters in the definition doesn't matter, I hope. Define some
- // (named) parameters found in sample code on the net. And ones found in customer code as
- // necessary later.
- //
- // If it turns out that ToolsOptionsView is actually called with both named and positional parameters in customer code
- // we might be in trouble.
- void ToolsOptionsView( [in] any FieldCodes, [in] any ShowAll, [in] any Whatever3, [in] any Whatever4, [in] any Whatever5, [in] any Whatever6, [in] any Whatever7, [in] any Whatever8, [in] any Whatever9, [in] any Whatever10, [in] any Whatever11, [in] any Whatever12, [in] any Whatever13, [in] any Whatever14, [in] any Whatever15, [in] any Whatever16, [in] any Whatever17, [in] any Whatever18, [in] any Whatever19, [in] any Whatever20 );
+ void ToolsOptionsView( [in] any DraftFont, [in] any WrapToWindow, [in] any PicturePlaceHolders, [in] any FieldCodes, [in] any BookMarks, [in] any FieldShading, [in] any StatusBar, [in] any HScroll, [in] any VScroll, [in] any StyleAreaWidth, [in] any Tabs, [in] any Spaces, [in] any Paras, [in] any Hyphens, [in] any Hidden, [in] any ShowAll, [in] any Drawings, [in] any Anchors, [in] any TextBoundaries, [in] any VRuler, [in] any Highlight );
string WindowName();
boolean ExistingBookmark( [in] string Name );
void MailMergeOpenDataSource( [in] string Name,
diff --git a/sw/source/ui/vba/vbaapplication.cxx b/sw/source/ui/vba/vbaapplication.cxx
index e335e167792b..16416204ca0f 100644
--- a/sw/source/ui/vba/vbaapplication.cxx
+++ b/sw/source/ui/vba/vbaapplication.cxx
@@ -77,26 +77,27 @@ public:
virtual void SAL_CALL FileOpen( const OUString& Name, const uno::Any& ConfirmConversions, const uno::Any& ReadOnly, const uno::Any& AddToMru, const uno::Any& PasswordDoc, const uno::Any& PasswordDot, const uno::Any& Revert, const uno::Any& WritePasswordDoc, const uno::Any& WritePasswordDot ) override;
virtual void SAL_CALL FileSave() override;
- virtual void SAL_CALL ToolsOptionsView( const css::uno::Any& FieldCodes,
+ virtual void SAL_CALL ToolsOptionsView( const css::uno::Any& DraftFont,
+ const css::uno::Any& WrapToWindow,
+ const css::uno::Any& PicturePlaceHolders,
+ const css::uno::Any& FieldCodes,
+ const css::uno::Any& BookMarks,
+ const css::uno::Any& FieldShading,
+ const css::uno::Any& StatusBar,
+ const css::uno::Any& HScroll,
+ const css::uno::Any& VScroll,
+ const css::uno::Any& StyleAreaWidth,
+ const css::uno::Any& Tabs,
+ const css::uno::Any& Spaces,
+ const css::uno::Any& Paras,
+ const css::uno::Any& Hyphens,
+ const css::uno::Any& Hidden,
const css::uno::Any& ShowAll,
- const css::uno::Any& Whatever3,
- const css::uno::Any& Whatever4,
- const css::uno::Any& Whatever5,
- const css::uno::Any& Whatever6,
- const css::uno::Any& Whatever7,
- const css::uno::Any& Whatever8,
- const css::uno::Any& Whatever9,
- const css::uno::Any& Whatever10,
- const css::uno::Any& Whatever11,
- const css::uno::Any& Whatever12,
- const css::uno::Any& Whatever13,
- const css::uno::Any& Whatever14,
- const css::uno::Any& Whatever15,
- const css::uno::Any& Whatever16,
- const css::uno::Any& Whatever17,
- const css::uno::Any& Whatever18,
- const css::uno::Any& Whatever19,
- const css::uno::Any& Whatever20 ) override;
+ const css::uno::Any& Drawings,
+ const css::uno::Any& Anchors,
+ const css::uno::Any& TextBoundaries,
+ const css::uno::Any& VRuler,
+ const css::uno::Any& Highlight ) override;
virtual OUString SAL_CALL WindowName() override;
virtual sal_Bool SAL_CALL ExistingBookmark( const OUString& Name ) override;
virtual void SAL_CALL MailMergeOpenDataSource(const OUString& Name, const css::uno::Any& Format,
@@ -538,28 +539,51 @@ SwWordBasic::FileSave()
}
void SAL_CALL
-SwWordBasic::ToolsOptionsView( const css::uno::Any& /*FieldCodes*/,
- const css::uno::Any& /*ShowAll*/,
- const css::uno::Any& /*Whatever3*/,
- const css::uno::Any& /*Whatever4*/,
- const css::uno::Any& /*Whatever5*/,
- const css::uno::Any& /*Whatever6*/,
- const css::uno::Any& /*Whatever7*/,
- const css::uno::Any& /*Whatever8*/,
- const css::uno::Any& /*Whatever9*/,
- const css::uno::Any& /*Whatever10*/,
- const css::uno::Any& /*Whatever11*/,
- const css::uno::Any& /*Whatever12*/,
- const css::uno::Any& /*Whatever13*/,
- const css::uno::Any& /*Whatever14*/,
- const css::uno::Any& /*Whatever15*/,
- const css::uno::Any& /*Whatever16*/,
- const css::uno::Any& /*Whatever17*/,
- const css::uno::Any& /*Whatever18*/,
- const css::uno::Any& /*Whatever19*/,
- const css::uno::Any& /*Whatever20*/)
-{
- // ???
+SwWordBasic::ToolsOptionsView( const css::uno::Any& DraftFont,
+ const css::uno::Any& WrapToWindow,
+ const css::uno::Any& PicturePlaceHolders,
+ const css::uno::Any& FieldCodes,
+ const css::uno::Any& BookMarks,
+ const css::uno::Any& FieldShading,
+ const css::uno::Any& StatusBar,
+ const css::uno::Any& HScroll,
+ const css::uno::Any& VScroll,
+ const css::uno::Any& StyleAreaWidth,
+ const css::uno::Any& Tabs,
+ const css::uno::Any& Spaces,
+ const css::uno::Any& Paras,
+ const css::uno::Any& Hyphens,
+ const css::uno::Any& Hidden,
+ const css::uno::Any& ShowAll,
+ const css::uno::Any& Drawings,
+ const css::uno::Any& Anchors,
+ const css::uno::Any& TextBoundaries,
+ const css::uno::Any& VRuler,
+ const css::uno::Any& Highlight )
+{
+ SAL_INFO("sw.vba", "WordBasic.ToolsOptionsView("
+ << "DraftFont:=" << DraftFont
+ << ", WrapToWindow:=" << WrapToWindow
+ << ", PicturePlaceHolders:=" << PicturePlaceHolders
+ << ", FieldCodes:=" << FieldCodes
+ << ", BookMarks:=" << BookMarks
+ << ", FieldShading:=" << FieldShading
+ << ", StatusBar:=" << StatusBar
+ << ", HScroll:=" << HScroll
+ << ", VScroll:=" << VScroll
+ << ", StyleAreaWidth:=" << StyleAreaWidth
+ << ", Tabs:=" << Tabs
+ << ", Spaces:=" << Spaces
+ << ", Paras:=" << Paras
+ << ", Hyphens:=" << Hyphens
+ << ", Hidden:=" << Hidden
+ << ", ShowAll:=" << ShowAll
+ << ", Drawings:=" << Drawings
+ << ", Anchors:=" << Anchors
+ << ", TextBoundaries:=" << TextBoundaries
+ << ", VRuler:=" << VRuler
+ << ", Highlight:=" << Highlight
+ << ")");
}
OUString SAL_CALL
generated by cgit (git 2.34.1) at 2024-07-10 14:35:14 +0000