最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

VB.net讀取Word文檔屬性的方法

 更新時間:2013年02月20日 19:14:20   作者:  
讀取寫入前需創(chuàng)建Word的引用,打開文件并獲取Word的Document對象。 需要說明的一點是,Word自定義屬性所能寫入的長度是有限制的,約255個字符。

復(fù)制代碼 代碼如下:

'對自定義屬性進行讀取
         Dim Properties = SourceDoc.CustomDocumentProperties
            Dim PropertyType As Type = Properties.GetType

        Try
            Dim Authorprop = PropertyType.InvokeMember("Item", Reflection.BindingFlags.Default Or Reflection.BindingFlags.GetProperty, Nothing, Properties, New Object() {"備注"})
            ResultString = Authorprop.GetType.InvokeMember("Value", Reflection.BindingFlags.Default Or Reflection.BindingFlags.GetProperty, Nothing, Authorprop, New Object() {})

        Catch ex As Exception

        End Try
    '寫入 
    Dim Authorprop = PropertyType.InvokeMember("Item", Reflection.BindingFlags.Default Or Reflection.BindingFlags.SetProperty, Nothing, properties, New Object() {"備注", ResultString})

另一種寫法:

復(fù)制代碼 代碼如下:

'增加新屬性
SourceDoc.CustomDocumentProperties.Add(Name := "PropertyName", LinkToContent := False, Type := Microsoft.Office.Core.MsoDocProperties.msoPropertyTypeString, Value := "PropertyValue")

'修改屬性
SourceDoc.CustomDocumentProperties("PropertyName").Value = PropertyValue

'獲取屬性值
PropertyValue =SourceDoc.CustomDocumentProperties("PropertyName").Value

復(fù)制代碼 代碼如下:

'讀取內(nèi)置屬性,以備注為例
 ResultString= SourceDoc.BuiltInDocumentProperties(Microsoft.Office.Interop.Word.WdBuiltInProperty.wdPropertyComments).value

讀取寫入操作后可以通過在Word文檔上右鍵->屬性查看效果,但當(dāng)Word文檔處于打開狀態(tài)時,文檔上右鍵是沒有“自定義”和“摘要”這兩個Tab的。

相關(guān)文章

最新評論

五指山市| 仪征市| 阿巴嘎旗| 黔江区| 新田县| 贵定县| 大连市| 大同县| 赤峰市| 北川| 清原| 富源县| 德阳市| 泸溪县| 延安市| 紫阳县| 比如县| 酉阳| 礼泉县| 台北市| 会宁县| 澄江县| 平远县| 兰溪市| 和林格尔县| 武定县| 行唐县| 府谷县| 信丰县| 布尔津县| 志丹县| 九江县| 时尚| 卓尼县| 保靖县| 盐山县| 柘荣县| 呈贡县| 澜沧| 和林格尔县| 庆阳市|