tdf#40457 - Place captions above tables by default

Change-Id: I2b367a451c03b42120c7599158cc05b8c99e1697
Reviewed-on: https://gerrit.libreoffice.org/47216Reviewed-by: Heiko Tietze <tietze.heiko@gmail.com>
Tested-by: Heiko Tietze <tietze.heiko@gmail.com>

sw/source/ui/frmdlg/cption.cxx

@@ -242,7 +242,15 @@ SwCaptionDialog::SwCaptionDialog( vcl::Window *pParent, SwView &rV ) :
         m_pPosBox->InsertEntry(SwResId(STR_CAPTION_BEGINNING));
         m_pPosBox->InsertEntry(SwResId(STR_CAPTION_END     ));
     }
-    m_pPosBox->SelectEntryPos(1);
+
+    if (eType & SelectionType::Table)
+    {
+        m_pPosBox->SelectEntryPos(0);
+    }
+    else
+    {
+        m_pPosBox->SelectEntryPos(1);
+    }
 
     m_pCategoryBox->GetModifyHdl().Call(*m_pCategoryBox);