Бұл мақалада біз сізге Word құжатындағы көлденең және тік мәтіндерді түрлендірудің 4 жылдам және оңай әдісін көрсеткіміз келеді.
Кейде біз құжатта мәтіндерді көлденең немесе тік етіп орналастырамыз. Содан кейін көлденең мәтінді тікке түрлендіру мүмкіндігі бар. Барлық ақпаратты қайта теру көп уақытты және шыдамдылықты қажет ететін болар еді.
Сондықтан біз сізге көлденең мәтінді тік және керісінше өзгертудің 4 әдісін ұсынғымыз келеді, мысалы:
1-жағдай: Тік мәтіндерді көлденең мәтіндерге түрлендіру
Ең алдымен, тік және көлденең мәтіндер арасында ауысудың 2 әдісі бар.
1-әдіс: «Ауыстыру» функциясын қолданыңыз
- Алдымен мақсатты мәтінді таңдаңыз.
- Содан кейін «Үй» қойындысын нұқыңыз.
- Содан кейін «Өңдеу» тобына өтіп, «Ауыстыру» опциясын басыңыз. Немесе «Табу және ауыстыру» тілқатысу терезесін ашу үшін «Ctrl+ H» пернелерін басуға болады.

- Енді курсорды «Нені табу» мәтіндік жолына қойып, «^p» енгізіңіз.
- Ал «Ауыстыру» мәтін жолағына бос орын енгізіңіз.
- Әрі қарай «Барлығын ауыстыру» түймесін басыңыз.
- Қалқымалы диалогтық терезе пайда болады, жай ғана «Иә» түймесін басыңыз.
2-әдіс: Макросты іске қосыңыз
- Алдымен «Әзірлеуші» қойындысын басыңыз.
- Содан кейін VBA редакторын іске қосу үшін «Visual Basic» түймесін басыңыз. Балама әдіс - «Alt+ F11» пернесін басу.
- Әрі қарай «Қалыпты» жобасын басыңыз.
- «Кірістіру» батырмасын басыңыз.
- Қалыпты жобада жаңа модуль жасау үшін «Модуль» таңдаңыз.
- Содан кейін өңдеу кеңістігін ашу үшін модульді екі рет басыңыз.
- Келесі кодтарды сол жерге қойыңыз:
Sub ConvertVerticalToHorizontalList()
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = False
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- Соңында «Іске қосу» түймесін басыңыз.
2-жағдай: Көлденең мәтіндерді тік мәтіндерге түрлендіру
1-әдіс: «Ауыстыру» мүмкіндігіне қайта өтіңіз
- Бастау үшін, 1-жағдайдың 1-әдісіндегі алғашқы 3 қадамды қайталаңыз.
- Дегенмен, бұл жолы «Табу және ауыстыру» тілқатысу терезесінде «Нені табу» мәтіндік жолағына бос орын және «Ауыстыру» жолағына «^p» енгізіңіз.
- Содан кейін «Барлығын ауыстыру» батырмасын басыңыз.
2-әдіс: Макросты іске қосыңыз
- Сол сияқты, 6-жағдайдың 2-әдісіндегі алғашқы 1 қадамды орындаңыз.
- Және бұл жолы орнына төмендегі кодтарды қойыңыз:
Sub ConvertHorizontalToVerticalList()
With Selection.Find
.Text = " "
.Replacement.Text = "^p"
.Forward = False
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
- «Іске қосу» түймесін басуды ұмытпаңыз.
L-ні шығарып алыңызost File
Қазіргі жұмыста үнемі сандық құрылғылармен жұмыс істеуге тура келетіндіктен, біз маңызды ақпаратты жоғалту қаупіне тап боламыз. Оның алдын алу үшін сақтық көшірмелерді алу тамаша шешім болып табылады. Дегенмен, сақтық көшірме жасау күнделікті табандылықты қажет етеді. Уақыт өте келе файлдардың сақтық көшірмесін жасау рұқсатыңыз күнделікті өмірдің фонында жоғалып кетуі мүмкін. Және ештеңе күміс оқ емес, тіпті резервтік көшірмелер. Сондықтан сізге қажет болады бүлінген Word құжатын қалпына келтіру құралы.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. зақымдалған xlsx жөндеу құралы және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com






