İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Word'də mətnə ​​birdən çox masa çevirmək necədir?

Sənəddə bir çox masa varsa və onları mətnə ​​çevirmək istəyirsənsə, bunu tez bir şəkildə necə əldə edə bilərsiniz? Bu dərslik, Word'də mətnə ​​tez birdən çox masaları çevirmək üçün bəzi çətin yolları göstərəcəkdir.

Mətnləri bir-birinə çevirmək

VBA istifadə edərək, bütün masaları mətnə ​​çevirmək

Kutools ilə asanlıqla bir neçə masanın mətnə ​​çevrilməsi

Word üçün Kutools: 100 Yeni Ətraflı Xüsusiyyətlər əlavə edin Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019-a qədər.
Office Tab: Enable Ofisdə sekmeli redaktə və tarama, Chrome kimi, Firefox, IE 8 / 9 / 10 kimi.
Office üçün Klassik Menyu: Office 2003 Geri köhnə görünüşünü gətirin Office 2007, 2010, 2013, 2016 və 2019.

arrow mavi sağ bubble Mətnləri bir-birinə çevirmək

Office Word, cədvələ müntəzəm mətnə ​​çevirmək funksiyasını təmin edir, ancaq bir anda yalnız bir masaya müraciət edə bilər.

isti
Amazing! Chrome, Firefox və Yeni Internet Explorer kimi Worddə (Office) Effektiv Sekmeleri istifadə edin!

Daha çox oxu Pulsuz Yüklə

Addım 1: seçmək və ya çevirmək istədiyiniz cədvəldə kursor yerləşdirmək;

2 addımı: get Düzen altındakı tab Cədvəl Alətlərivə basın Mətnə çevrilir in Tarix qrup;

doc-tables-to-text-1

Adım 3: masa hüceyrələrini ayırmaq üçün markanın stilini seçin;

doc-tables-to-text-2

4 addımı: basın OK və Word sözü mətnə ​​çevirəcək;

5 addım: 1 addımı 4 addımını bütün masaların dəyişdirildiyi qədər təkrarlayın;


arrow mavi sağ bubble VBA istifadə edərək, bütün masaları mətnə ​​çevirmək

VBA sənədin bütün cədvəllərini mətnə ​​çevirə bilər.

Addım 1: Basın "Alt-F11"Microsoft Visual Basic for Application penceresini açmaq üçün;

2 Addım: Tıklayın Modules üzrə Taxmaq nişanı, aşağıdakı VBA kodunu Modul pəncərəsinə köçürün və yapışdırın;

3 Addım: Tıklayın qaçış VBA tətbiq etmək üçün düyməsini basın.

Bütün mətnləri mətnə ​​çevirmək üçün VBA kodu:

Alt TablesToText ()
Cədvəl kimi Dim tbl
ActiveDocument.Tables hər tbl üçün
tbl.ConvertToText
Ayırıcı: = wdSeparateByTabs
Sonrakı tbl
Set tbl = Heç bir şey yoxdur
End Sub


arrow mavi sağ bubble Kutools ilə asanlıqla bir neçə masanın mətnə ​​çevrilməsi

Bir neçə mətni bir-birinə bir-birinə çevirmək vaxt alıcıdır və VBA kodu həmişə sənəddəki bütün masaları ayırmaq üçün bir yol təqdim edir. Kutools asanlıqla bütün masaları bir seçimdən və ya bütün sənəddən müntəzəm mətnə ​​çevirə bilər. Və istifadəçilərə stolüstü hüceyrələri ayırmaq üçün müxtəlif yollarla təmin etmək üçün Word ilə eyni funksiyadan istifadə edir.

Word üçün Kutools, lazımlı bir eklenti, işinizi asanlaşdırmaq və söz sənədinin emal qabiliyyətini artırmaq üçün alətlər qruplarını ehtiva edir. 45 gün üçün pulsuz sınaq! İndi alın!

Basın Kutools >> klikləyin Mətn üçün cədvəl in Masa qrup

doc-tables-to-text-3

Bir seçimin və ya bütün sənədin birdən çox cədvəlini konvertasiya etmək üçün, əvvəlcə sənəd və ya bütün sənədin bir hissəsini seçin və sonra Kutula Tablosuna Cədvəlin Cədvəlinə basaraq yardım proqramını tətbiq edin və konvertasiya edildikdən sonra müntəzəm mətn üçün ayırıcı seçin. Cədvəlin Mətnə Dönüştürülməsi qutusuna keçin.

Daha ətraflı məlumat üçün müraciət edin: birdən çox masanın mətnə ​​çevrilməsi.




Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Suresh · 2 years ago
    The correct code as follows:

    Sub TablesToText()
    Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
    tbl.ConvertToText
    Separator = wdSeparateByTabs
    Next tbl
    Set tbl = Nothing
    End Sub
  • To post as a guest, your comment is unpublished.
    cartography · 3 years ago
    Here's a code that works:

    Sub AllTablestoText()
    '
    ' AllTablestoText Macro
    ' Macro created by Jarosław Michalak
    '
    For Each aTable In ActiveDocument.Tables

    aTable.ConvertToText wdSeparateByCommas, True

    Next aTable

    End Sub


    Source: http://howto.wikispaces.umb.edu/Convert+all+tables+to+text
  • To post as a guest, your comment is unpublished.
    Milind Gautam · 3 years ago
    The VBA code isn't working.. when I press F5 for execution, it says "Compile error; syntax error;"
  • To post as a guest, your comment is unpublished.
    Simon · 4 years ago
    I think lines 4 and 5 of the VBA code above should be combined:

    tbl.ConvertToText Separator:=wdSeparateByTabs