Jak získat a nastavit vlastnosti dokument Office s Visual Basic .NET pomocí automatizace

Podpora Office 2003 byla ukončena.

Společnost Microsoft ukončila dne 8. dubna 2014 podporu Office 2003. Tato změna ovlivnila aktualizace softwaru a možnosti zabezpečení. Další informace o tom, co to pro vás znamená a jak zajistit ochranu

Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.

Projděte si také anglickou verzi článku:303294
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Souhrn
Tento článek ukazuje, jak automatizovat aplikace s Visual Basic .NET načíst a manipulovat s vlastností dokumentu. Ačkoli ukázkové v tomto článku je zapsán konkrétně k automatizaci Word, stejné koncepty lze použít pro Microsoft Excel a Microsoft PowerPoint.
Další informace

Vytvoření klienta automatizace pro Microsoft Word

  1. Spusťte aplikaci Visual Studio .NET.
  2. V nabídce soubor klepněte na příkaz Nový a klepněte na příkaz projekt. Vyberte Aplikace Windows z typů projektu jazyka. Jako výchozí je vytvořen formulář Form1.
  3. Přidejte odkaz na Objektové knihovny Microsoft Word. Postupujte takto:
    1. V nabídce projekt klepněte na tlačítko Přidat odkaz.
    2. Na kartě COM vyhledejte Objektové knihovny Microsoft Word a potom klepněte na tlačítko Vybrat.

      Poznámka: Microsoft Office 2003 zahrnuje primární sestavení InterOp (PIA). Sada Microsoft Office XP nezahrnuje sestavení PIA, ale ty lze stáhnout. Další informace o sestaveních PIA sady Office XP naleznete v následujícím článku znalostní báze Microsoft Knowledge Base:
      328912Primární sestavení InterOp (PIA) sady Office XP jsou k dispozici ke stažení
    3. Klepněte na tlačítko OK v dialogovém okně Přidat odkazy přijmout vaše výběry. Pokud se zobrazí výzva ke generování obálky pro vybrané knihovny, klepněte na tlačítko Ano.
  4. V nabídce Zobrazit vyberte prvky zobrazení na panelu nástrojů a přidat tlačítko Form1.
  5. Poklepejte na Button1. Zobrazí se okno s kódem pro formulář.
  6. V okně kódu nahraďte následující kód
    Private Sub Button1_Click(ByVal sender As System.Object, _                          ByVal e As System.EventArgs) _                          Handles Button1.ClickEnd Sub					
    s:
    Private Sub Button1_Click(ByVal sender As System.Object, _                          ByVal e As System.EventArgs) _                          Handles Button1.Click        Dim oWord As Word.Application        Dim oDoc As Word.Document        Dim oBuiltInProps As Object        Dim oCustomProps As Object        Dim oProp As Object        Dim strValue As String        'Create an instance of Word and make it visible.        oWord = CreateObject("Word.Application")        oWord.Visible = True        'Create a new document        oDoc = oWord.Documents.Add()        'Get the Built-in Document Properties collection.        oBuiltInProps = oDoc.BuiltInDocumentProperties        'Get the value of the Author property and display it        strValue = oBuiltInProps.Item("Author").Value        MsgBox("The author of this document is " & strValue)                'Set the value of the Subject property.        oBuiltInProps.Item("Subject").Value = _                  "Knowledge Base article Q303294"        'Get the Custom Document Properties collection.        oCustomProps = oDoc.CustomDocumentProperties        'Add a property named Knowledge Base Article        'and give it a value of Q303294.        oCustomProps.Add("Knowledge Base article", False, _                  Office.MsoDocProperties.msoPropertyTypeString, "Q303294")        'Display a message box to give the user a chance to verify the        'properties.        MsgBox("Select Properties from the File menu " _               & "to view the changes." & Chr(10) _               & "Select the Summary tab to view " _               & "the Subject and the Custom tab to view the Custom " _               & "properties.", MsgBoxStyle.Information, _               "Check File Properties")        'Clean up. We'll leave Word running.        oCustomProps = Nothing        oBuiltInProps = Nothing        oDoc = Nothing        oWord = Nothing    End Sub 					
  7. Přidejte následující kód horní Form1.vb:
    Imports Office = Microsoft.Office.CoreImports Word = Microsoft.Office.Interop.Word
  8. Stisknutím klávesy F5 spuštění aplikace.
  9. Klepněte na tlačítko Button1 spuštění aplikace.
Tento kód demonstruje čtení a psaní dokumentu vlastní vlastnosti a vlastnosti dokumentu vestavěné. Při spuštění tohoto kódu zobrazí hodnotu integrované vlastnosti Autor, změní hodnota vlastnosti Předmět "Článku Q303294" a vytvoří novou dokumentu vlastní vlastnost s názvem "článku znalostní báze Knowledge Base. „ Po zobrazení výzvy zobrazit změny, přepněte do aplikace Word a v nabídce soubor klepněte na příkaz Vlastnosti.
Odkazy
Další informace naleznete na následující Microsoft Developer Network webu:
Microsoft Office Development s Visual Studio
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx
Další informace naleznete následujícím článku znalostní databáze Microsoft Knowledge Base:
303296Jak získat a nastavit vlastnosti dokumentu Office s Visual C# .NET pomocí automatizace
Vlastnosti

ID článku: 303294 - Poslední kontrola: 12/06/2015 03:53:17 - Revize: 7.4

Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Office PowerPoint 2003, Microsoft PowerPoint 2002 Standard Edition, Microsoft Office Word 2003, Microsoft Word 2002 Standard Edition

  • kbnosurvey kbarchive kbpia kbautomation kbhowto KB303294 KbMtcs
Váš názor