19#ifndef INCLUDED_SW_SOURCE_UI_VBA_VBAFILTERPROPSFROMFORMAT_HXX
20#define INCLUDED_SW_SOURCE_UI_VBA_VBAFILTERPROPSFROMFORMAT_HXX
24#include <com/sun/star/beans/PropertyValue.hpp>
25#include <com/sun/star/uno/Sequence.hxx>
26#include <rtl/ustring.hxx>
27#include <ooo/vba/word/WdSaveFormat.hpp>
31inline bool setFilterPropsFromFormat(sal_Int32 nFormat,
32 css::uno::Sequence<css::beans::PropertyValue>& rProps)
34 auto[
begin,
end] = asNonConstRange(rProps);
35 auto pProp = std::find_if(begin, end, [](
const css::beans::PropertyValue& rProp) {
36 return rProp.Name ==
"FilterName";
42 case ooo::vba::word::WdSaveFormat::wdFormatDocument:
43 pProp->Value <<= OUString(
"MS Word 97");
46 case ooo::vba::word::WdSaveFormat::wdFormatDOSText:
47 case ooo::vba::word::WdSaveFormat::wdFormatDOSTextLineBreaks:
48 case ooo::vba::word::WdSaveFormat::wdFormatEncodedText:
49 case ooo::vba::word::WdSaveFormat::wdFormatText:
50 case ooo::vba::word::WdSaveFormat::wdFormatTextLineBreaks:
51 pProp->Value <<= OUString(
"Text");
53 case ooo::vba::word::WdSaveFormat::wdFormatFilteredHTML:
54 case ooo::vba::word::WdSaveFormat::wdFormatHTML:
55 pProp->Value <<= OUString(
"HTML");
57 case ooo::vba::word::WdSaveFormat::wdFormatRTF:
58 pProp->Value <<= OUString(
"Rich Text Format");
60 case ooo::vba::word::WdSaveFormat::wdFormatTemplate:
61 pProp->Value <<= OUString(
"MS Word 97 Vorlage");
66 pProp->Value <<= OUString(
"MS Word 97");
enumrange< T >::Iterator begin(enumrange< T >)