{"id":6149,"date":"2024-12-21T14:03:10","date_gmt":"2024-12-21T14:03:10","guid":{"rendered":"https:\/\/blog.ezworkapp.com\/index.php\/2024\/12\/21\/ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san\/"},"modified":"2024-12-21T14:03:10","modified_gmt":"2024-12-21T14:03:10","slug":"ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san","status":"publish","type":"post","link":"https:\/\/blog.ezworkapp.com\/index.php\/2024\/12\/21\/ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san\/","title":{"rendered":"M\u00c3 VBA \u0110\u1ec2 L\u01afU NH\u01af M\u1ed8T PHI\u00caN B\u1ea2N M\u1edaI N\u1ebeU T\u1ec6P \u0110\u00c3 C\u00d3 S\u1eb4N"},"content":{"rendered":"<div class=\"uk-panel uk-margin\" id=\"template-nJy84WMn#1\">\n<div id=\"ez-toc-container\" class=\"ez-toc-v2_0_61 counter-hierarchy ez-toc-counter ez-toc-transparent ez-toc-container-direction\">\n<p class=\"ez-toc-title\">Xem nhanh<\/p>\n<p><label for=\"ez-toc-cssicon-toggle-item-6766ca9e1b056\" class=\"ez-toc-cssicon-toggle-label\"><span class=\"\"><span class=\"eztoc-hide\">Toggle<\/span><span class=\"ez-toc-icon-toggle-span\"><\/span><\/span><\/label><\/p>\n<nav>\n<ul class=\"ez-toc-list ez-toc-list-level-1 \">\n<li class=\"ez-toc-page-1 ez-toc-heading-level-1\"><a class=\"ez-toc-link ez-toc-heading-1\" href=\"https:\/\/blog.hocexcel.online\/ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san.html#KIEM_SOAT_PHIEN_BAN\" title=\"KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N\">KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N<\/a><\/li>\n<li class=\"ez-toc-page-1 ez-toc-heading-level-1\"><a class=\"ez-toc-link ez-toc-heading-2\" href=\"https:\/\/blog.hocexcel.online\/ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san.html#LOGIC\" title=\"L\u00d4GIC\">L\u00d4GIC<\/a><\/li>\n<li class=\"ez-toc-page-1 ez-toc-heading-level-1\"><a class=\"ez-toc-link ez-toc-heading-3\" href=\"https:\/\/blog.hocexcel.online\/ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san.html#TINH_NANG_XAC_DINH_LIEU_TEP_CO_TON_TAI_HAY_CHUA\" title=\"T\u00cdNH N\u0102NG X\u00c1C \u0110\u1ecaNH LI\u1ec6U T\u1ec6P C\u00d3 T\u1ed2N T\u1ea0I HAY CH\u01afA\">T\u00cdNH N\u0102NG X\u00c1C \u0110\u1ecaNH LI\u1ec6U T\u1ec6P C\u00d3 T\u1ed2N T\u1ea0I HAY CH\u01afA<\/a><\/li>\n<li class=\"ez-toc-page-1 ez-toc-heading-level-1\"><a class=\"ez-toc-link ez-toc-heading-4\" href=\"https:\/\/blog.hocexcel.online\/ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san.html#MA_VBA_VE_VIEC_KIEM_SOAT_PHIEN_BAN_DANH_CHO_EXCEL\" title=\"M\u00c3 VBA V\u1ec0 VI\u1ec6C KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N D\u00c0NH CHO EXCEL\">M\u00c3 VBA V\u1ec0 VI\u1ec6C KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N D\u00c0NH CHO EXCEL<\/a><\/li>\n<li class=\"ez-toc-page-1 ez-toc-heading-level-1\"><a class=\"ez-toc-link ez-toc-heading-5\" href=\"https:\/\/blog.hocexcel.online\/ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san.html#MA_VBA_VE_VIEC_KIEM_SOAT_PHIEN_BAN_DANH_CHO_MICROSOFT_WORD\" title=\"M\u00c3 VBA V\u1ec0 VI\u1ec6C KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N D\u00c0NH CHO MICROSOFT WORD\">M\u00c3 VBA V\u1ec0 VI\u1ec6C KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N D\u00c0NH CHO MICROSOFT WORD<\/a><\/li>\n<li class=\"ez-toc-page-1 ez-toc-heading-level-1\"><a class=\"ez-toc-link ez-toc-heading-6\" href=\"https:\/\/blog.hocexcel.online\/ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san.html#MA_VBA_VE_VIEC_KIEM_SOAT_PHIEN_BAN_DANH_CHO_POWERPOINT\" title=\"M\u00c3 VBA V\u1ec0 VI\u1ec6C KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N D\u00c0NH CHO POWERPOINT\">M\u00c3 VBA V\u1ec0 VI\u1ec6C KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N D\u00c0NH CHO POWERPOINT<\/a><\/li>\n<li class=\"ez-toc-page-1 ez-toc-heading-level-1\"><a class=\"ez-toc-link ez-toc-heading-7\" href=\"https:\/\/blog.hocexcel.online\/ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san.html#HAY_CHUAN_BI_VA_HAY_CO_TO_CHUC\" title=\"H\u00c3Y CHU\u1ea8N B\u1eca V\u00c0 H\u00c3Y C\u00d3 T\u1ed4 CH\u1ee8C\">H\u00c3Y CHU\u1ea8N B\u1eca V\u00c0 H\u00c3Y C\u00d3 T\u1ed4 CH\u1ee8C<\/a><\/li>\n<li class=\"ez-toc-page-1 ez-toc-heading-level-1\"><a class=\"ez-toc-link ez-toc-heading-8\" href=\"https:\/\/blog.hocexcel.online\/ma-vba-de-luu-nhu-mot-phien-ban-moi-neu-tep-da-co-san.html#LAM_THE_NAO_TOI_CO_THE_DIEU_CHINH_CAI_NAY_CHO_PHU_HOP_VOI_NHU_CAU_CUA_MINH\" title=\"L\u00c0M TH\u1ebe N\u00c0O T\u00d4I C\u00d3 TH\u1ec2 \u0110I\u1ec0U CH\u1ec8NH C\u00c1I N\u00c0Y CHO PH\u00d9 H\u1ee2P V\u1edaI NHU C\u1ea6U C\u1ee6A M\u00ccNH?\">L\u00c0M TH\u1ebe N\u00c0O T\u00d4I C\u00d3 TH\u1ec2 \u0110I\u1ec0U CH\u1ec8NH C\u00c1I N\u00c0Y CHO PH\u00d9 H\u1ee2P V\u1edaI NHU C\u1ea6U C\u1ee6A M\u00ccNH?<\/a><\/li>\n<\/ul>\n<\/nav>\n<\/div>\n<h1><span class=\"ez-toc-section\" id=\"KIEM_SOAT_PHIEN_BAN\"><\/span>KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>Vi\u1ec7c theo d\u00f5i c\u00e1c phi\u00ean b\u1ea3n kh\u00e1c nhau c\u1ee7a m\u1ed9t t\u1ec7p lu\u00f4n khi\u1ebfn t\u00f4i \u0111au \u0111\u1ea7u. T\u00f4i bi\u1ebft \u01a1n r\u1eb1ng m\u00ecnh c\u00f3 quy\u1ec1n truy c\u1eadp Microsoft SharePoint \u1edf c\u00f4ng ty v\u00e0 c\u00f3 kh\u1ea3 n\u0103ng d\u1ec5 d\u00e0ng l\u01b0u phi\u00ean b\u1ea3n m\u1edbi m\u00e0 ch\u1eb3ng c\u1ea7n suy ngh\u0129. Tuy nhi\u00ean, t\u00f4i \u0111\u00e3 nh\u1eadn \u0111\u01b0\u1ee3c m\u1ed9t c\u00e2u h\u1ecfi t\u1eeb m\u1ed9t \u0111\u1ed9c gi\u1ea3 c\u00f3 t\u00ean Kauket, h\u1ecfi r\u1eb1ng li\u1ec7u c\u00f3 kh\u1ea3 thi khi t\u1ef1 \u0111\u1ed9ng l\u01b0u phi\u00ean b\u1ea3n m\u1edbi c\u1ee7a m\u1ed9t t\u1ec7p. \u0110\u00e2y l\u00e0 m\u1ed9t c\u00e2u h\u1ecfi r\u1ea5t hay v\u00e0 th\u1eadt s\u1ef1 khi\u1ebfn t\u00f4i ph\u1ea3i suy ngh\u0129. H\u00e3y b\u00e0n v\u1ec1 c\u00e1ch m\u00e0 c\u00e1 nh\u00e2n t\u00f4i x\u1eed l\u00fd v\u1ea5n \u0111\u1ec1 n\u00e0y v\u00e0 xem xem ch\u00fang ta c\u00f3 th\u1ec3 ngh\u0129 ra m\u1ed9t gi\u1ea3i ph\u00e1p hi\u1ec7u qu\u1ea3 hay kh\u00f4ng.<\/p>\n<h1><span class=\"ez-toc-section\" id=\"LOGIC\"><\/span>L\u00d4GIC<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>\u0110\u1ea7u ti\u00ean, h\u00e3y suy ngh\u0129 v\u1ec1 c\u00e1i m\u00e0 ch\u00fang ta s\u1ebd c\u1ea7n l\u1eadp tr\u00ecnh. D\u01b0\u1edbi \u0111\u00e2y, t\u00f4i s\u1ebd li\u1ec7t k\u00ea v\u00e0i t\u00ednh n\u0103ng quan tr\u1ecdng m\u00e0 m\u00e3 VBA c\u1ee7a ch\u00fang ta c\u1ea7n c\u00f3:<\/p>\n<ul>\n<li>X\u00e1c \u0111\u1ecbnh li\u1ec7u phi\u00ean b\u1ea3n tr\u01b0\u1edbc \u0111\u00e3 t\u1ed3n t\u1ea1i hay ch\u01b0a<\/li>\n<li>X\u00e1c \u0111\u1ecbnh n\u01a1i t\u1ec7p \u0111\u01b0\u1ee3c l\u01b0u (hay li\u1ec7u n\u00f3 c\u00f3 \u0111\u01b0\u1ee3c l\u01b0u hay kh\u00f4ng)<\/li>\n<li>T\u1ea1o phi\u00ean b\u1ea3n m\u1edbi c\u00f3 t\u00ean m\u1edf r\u1ed9ng (v\u00ed d\u1ee5 th\u00eam \u201c_v2\u201d v\u00e0o cu\u1ed1i t\u00ean t\u1ec7p)<\/li>\n<\/ul>\n<p>T\u00f4i quy\u1ebft \u0111\u1ecbnh vi\u1ebft m\u00e3 cho Excel c\u0169ng nh\u01b0 Microsoft Word v\u00e0 PowerPoint ph\u00f2ng khi b\u1ea1n mu\u1ed1n s\u1eed d\u1ee5ng c\u00f9ng m\u1ed9t qu\u00e1 tr\u00ecnh cho v\u0103n b\u1ea3n v\u00e0 b\u00e0i thuy\u1ebft tr\u00ecnh c\u1ee7a m\u00ecnh. Th\u1eadt may, kh\u00f4ng c\u00f3 qu\u00e1 nhi\u1ec1u \u0111i\u1ec3m kh\u00e1c bi\u1ec7t gi\u1eefa ba b\u1ed9 macro n\u00e0y.<\/p>\n<h1><span class=\"ez-toc-section\" id=\"TINH_NANG_XAC_DINH_LIEU_TEP_CO_TON_TAI_HAY_CHUA\"><\/span>T\u00cdNH N\u0102NG X\u00c1C \u0110\u1ecaNH LI\u1ec6U T\u1ec6P C\u00d3 T\u1ed2N T\u1ea0I HAY CH\u01afA<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>\u0110\u1ec3 m\u00e3 ch\u00ednh VBA ho\u1ea1t \u0111\u1ed9ng, b\u1ea1n s\u1ebd c\u1ea7n s\u1eed d\u1ee5ng m\u1ed9t t\u00ednh n\u0103ng nh\u1ecf x\u00e1c \u0111\u1ecbnh li\u1ec7u m\u1ed9t t\u1ec7p c\u1ee5 th\u1ec3 (th\u00f4ng qua \u0111\u01b0\u1eddng truy\u1ec1n t\u1ec7p) \u0111\u00e3 t\u1ed3n t\u1ea1i trong m\u00e1y t\u00ednh hay ch\u01b0a. \u0110i\u1ec1u n\u00e0y r\u1ea5t quan tr\u1ecdng \u0111\u1ec3 x\u00e1c \u0111\u1ecbnh s\u1ed1 phi\u00ean b\u1ea3n ph\u00f9 h\u1ee3p \u0111\u1ec3 s\u1eed d\u1ee5ng. T\u00f4i t\u00ecm th\u1ea5y m\u1ed9t b\u00e0i vi\u1ebft hay tr\u00ean trang web Ron de Bruin vi\u1ebft m\u1ed9t c\u00e1ch chi ti\u1ebft v\u1ec1 c\u00e1c c\u00e1ch kh\u00e1c nhau \u0111\u1ec3 ki\u1ec3m tra xem li\u1ec7u m\u1ed9t th\u1ee9 g\u00ec \u0111\u00f3 \u0111\u00e3 t\u1ed3n t\u1ea1i b\u1eb1ng m\u00e3 VBA. H\u00e3y ch\u1eafc r\u1eb1ng b\u1ea1n s\u1ebd xem qua b\u00e0i vi\u1ebft \u0111\u1ea7y \u0111\u1ee7 c\u1ee7a anh \u1ea5y, Test if Folder, File or Sheet Exists or File is Open (Ki\u1ec3m tra xem danh m\u1ee5c, t\u1ec7p hay trang t\u00ednh c\u00f3 t\u1ed3n t\u1ea1i ch\u01b0a hay t\u1ec7p c\u00f3 \u0111ang m\u1edf hay kh\u00f4ng) v\u00ec n\u00f3 l\u00e0 m\u1ed9t b\u00e0i vi\u1ebft \u0111\u00e1ng \u0111\u1ecdc. M\u00e3 t\u00ednh n\u0103ng d\u01b0\u1edbi \u0111\u00e2y l\u00e0 nh\u1eefng g\u00ec t\u00f4i c\u00f3 th\u1ec3 ch\u1eaft l\u1ecdc t\u1eeb b\u00e0i vi\u1ebft c\u1ee7a Ron.<\/p>\n<p>H\u00e3y ch\u1eafc r\u1eb1ng b\u1ea1n th\u00eam t\u00ednh n\u0103ng n\u00e0y v\u00e0o c\u00f9ng v\u1edbi b\u1ea5t k\u1ef3 phi\u00ean b\u1ea3n m\u00e3 macro \u1ee9ng d\u1ee5ng n\u00e0o \u2013 phi\u00ean b\u1ea3n \u0111\u01b0\u1ee3c hi\u1ec3n th\u1ecb b\u00ean d\u01b0\u1edbi. B\u1ea1n c\u00f3 th\u1ec3 ch\u1ec9 d\u00e1n m\u00e3 d\u01b0\u1edbi \u0111\u00e2y v\u00e0o d\u01b0\u1edbi th\u1ee7 t\u1ee5c con ho\u1eb7c Excel, PowerPoint, hay Word.<\/p>\n<table>\n<tbody>\n<tr>\n<td>Function\u00a0FileExist(FilePath\u00a0As\u00a0String)\u00a0As\u00a0Boolean<br \/>\n\u2018PURPOSE: Test to see if a file exists or not<br \/>\n\u2018SOURCE: www.TheSpreadsheetGuru.com\/The-Code-Vault<br \/>\n\u2018RESOURCE: http:\/\/www.rondebruin.nl\/win\/s9\/win003.htmDim\u00a0TestStr\u00a0As\u00a0String\u2019Test File Path (ie \u201cC:UsersChrisDesktopTestbook1.xlsm\u201d)<br \/>\nOn\u00a0Error\u00a0Resume\u00a0Next<br \/>\nTestStr = Dir(FilePath)<br \/>\nOn\u00a0Error\u00a0GoTo\u00a00<\/p>\n<p>\u2018Determine if File exists<br \/>\nIf\u00a0TestStr = \u201c\u201d\u00a0Then<br \/>\nFileExist =\u00a0False<br \/>\nElse<br \/>\nFileExist =\u00a0True<br \/>\nEnd\u00a0If<\/p>\n<div class=\"code-block code-block-1\" style=\"margin: 8px 0;clear: both\">\n<div class=\"ad-inserterpro\">\n<a href=\"https:\/\/hocexcel.online\/course\/preview\/ex101-excel-tu-co-ban-den-chuyen-gia-danh-cho-nguoi-di-lam\"><br \/>\n<img decoding=\"async\" src=\"http:\/\/blog.ezworkapp.com\/wp-content\/uploads\/2024\/12\/ex101_92019-nho-553.gif\" title=\"ex101_92019-nho-553\"><br \/>\n<\/a>\n<\/div>\n<\/div>\n<p>End\u00a0Function<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>\u00a0<\/p>\n<h1><span class=\"ez-toc-section\" id=\"MA_VBA_VE_VIEC_KIEM_SOAT_PHIEN_BAN_DANH_CHO_EXCEL\"><\/span>M\u00c3 VBA V\u1ec0 VI\u1ec6C KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N D\u00c0NH CHO EXCEL<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>H\u00e3y b\u1eaft \u0111\u1ea7u v\u1edbi phi\u00ean b\u1ea3n Excel c\u1ee7a m\u00e3 VBA, v\u00ec t\u00f4i \u0111\u1eb7t gi\u1ea3 thi\u1ebft r\u1eb1ng h\u1ea7u h\u1ebft c\u00e1c b\u1ea1n \u0111\u1ecdc \u0111\u1ec1u h\u1ee9ng th\u00fa v\u1edbi vi\u1ec7c s\u1eed d\u1ee5ng t\u00ednh n\u0103ng ki\u1ec3m so\u00e1t phi\u00ean b\u1ea3n b\u00ean trong Excel (v\u00ec b\u1ea1n l\u00e0 m\u1ed9t trong nh\u1eefng \u0111\u1ed9c gi\u1ea3 c\u1ee7a t\u00f4i). M\u00e3 ch\u1ec9 c\u00f3 m\u1ed9t nh\u1eadp li\u1ec7u v\u00e0 \u0111i\u1ec1u n\u00e0y c\u00f3 th\u1ec3 khi\u1ebfn b\u1ea1n mu\u1ed1n thay \u0111\u1ed5i v\u00e0 nh\u1eadp li\u1ec7u n\u00e0y ch\u00ednh l\u00e0 bi\u1ebfn m\u00e3 VersionExt. T\u00f4i th\u00eam ph\u1ea7n m\u1edf r\u1ed9ng m\u1eb7c \u0111\u1ecbnh \u201c_v\u201d (c\u1ee5 th\u1ec3 l\u00e0\u00a0myReport_v2.xlsx) nh\u01b0ng b\u1ea1n c\u00f3 th\u1ec3 thay \u0111\u1ed5i n\u00f3 m\u1ed9t c\u00e1ch d\u1ec5 d\u00e0ng th\u00e0nh \u201c_v\u201d (c\u1ee5 th\u1ec3 l\u00e0\u00a0myReport v2.xlsx) hay b\u1ea5t c\u1ee9 ph\u1ea7n m\u1edf r\u1ed9ng n\u00e0o b\u1ea1n mu\u1ed1n hay c\u1ea7n. H\u00e3y ch\u1eafc r\u1eb1ng b\u1ea1n \u0111\u1ec3 l\u1ea1i b\u00ecnh lu\u1eadn b\u00ean d\u01b0\u1edbi n\u1ebfu b\u1ea1n c\u00f3 b\u1ea5t c\u1ee9 th\u1eafc m\u1eafc n\u00e0o v\u1ec1 vi\u1ec7c thay \u0111\u1ed5i m\u00e3 VBA.<\/p>\n<p>Xin h\u00e3y l\u01b0u \u00fd r\u1eb1ng b\u1ea1n s\u1ebd c\u1ea7n m\u00e3 FileExist Function (n\u1eb1m tr\u00ean ph\u1ea7n n\u00e0y) d\u00e1n v\u00e0o m\u00f4\u0111un m\u00e3. N\u1ebfu b\u1ea1n c\u1ea7n m\u1ed9t b\u00e0i h\u01b0\u1edbng d\u1eabn v\u1ec1 c\u00e1ch ch\u00e8n m\u1ed9t macro v\u00e0o Microsoft Excel \u0111\u1ec3 s\u1eed d\u1ee5ng macro n\u00e0y trong b\u1ea5t c\u1ee9 c\u1eeda s\u1ed5 Excel n\u00e0o c\u1ee7a b\u1ea1n, b\u1ea1n c\u00f3 th\u1ec3 xem qua b\u00e0i vi\u1ebft m\u00e0 t\u00f4i vi\u1ebft tr\u01b0\u1edbc \u0111\u00e2y c\u00f3 t\u00ean How to Create A Personal Macro File (C\u00e1ch t\u1ea1o m\u1ed9t t\u1ec7p macro c\u00e1 nh\u00e2n).<\/p>\n<table>\n<tbody>\n<tr>\n<td>Sub\u00a0SaveNewVersion_Excel()<br \/>\n\u2018PURPOSE: Save file, if already exists add a new version indicator to filename<br \/>\n\u2018SOURCE: www.TheSpreadsheetGuru.com\/The-Code-VaultDim\u00a0FolderPath\u00a0As\u00a0String<br \/>\nDim\u00a0myPath\u00a0As\u00a0String<br \/>\nDim\u00a0SaveName\u00a0As\u00a0String<br \/>\nDim\u00a0SaveExt\u00a0As\u00a0String<br \/>\nDim\u00a0VersionExt\u00a0As\u00a0String<br \/>\nDim\u00a0Saved\u00a0As\u00a0Boolean<br \/>\nDim\u00a0x\u00a0As\u00a0LongTestStr = \u201c\u201d<br \/>\nSaved =\u00a0False<br \/>\nx = 2<\/p>\n<p>\u2018Version Indicator (change to liking)<br \/>\nVersionExt = \u201c_v\u201d<\/p>\n<p>\u2018Pull info about file<br \/>\nOn\u00a0Error\u00a0GoTo\u00a0NotSavedYet<br \/>\nmyPath = ActiveWorkbook.FullName<br \/>\nmyFileName = Mid(myPath, InStrRev(myPath, \u201c\u201d) + 1, InStrRev(myPath, \u201c.\u201d) \u2013 InStrRev(myPath, \u201c\u201d) \u2013 1)<br \/>\nFolderPath = Left(myPath, InStrRev(myPath, \u201c\u201d))<br \/>\nSaveExt = \u201c.\u201d &amp; Right(myPath, Len(myPath) \u2013 InStrRev(myPath, \u201c.\u201d))<br \/>\nOn\u00a0Error\u00a0GoTo\u00a00<\/p>\n<p>\u2018Determine Base File Name<br \/>\nIf\u00a0InStr(1, myFileName, VersionExt) &gt; 1\u00a0Then<br \/>\nmyArray = Split(myFileName, VersionExt)<br \/>\nSaveName = myArray(0)<br \/>\nElse<br \/>\nSaveName = myFileName<br \/>\nEnd\u00a0If<\/p>\n<p>\u2018Test to see if file name already exists<br \/>\nIf\u00a0FileExist(FolderPath &amp; SaveName &amp; SaveExt) =\u00a0False\u00a0Then<br \/>\nActiveWorkbook.SaveAs FolderPath &amp; SaveName &amp; SaveExt<br \/>\nExit\u00a0Sub<br \/>\nEnd\u00a0If<\/p>\n<p>\u2018Need a new version made<br \/>\nDo\u00a0While\u00a0Saved =\u00a0False<br \/>\nIf\u00a0FileExist(FolderPath &amp; SaveName &amp; VersionExt &amp; x &amp; SaveExt) =\u00a0False\u00a0Then<br \/>\nActiveWorkbook.SaveAs FolderPath &amp; SaveName &amp; VersionExt &amp; x &amp; SaveExt<br \/>\nSaved =\u00a0True<br \/>\nElse<br \/>\nx = x + 1<br \/>\nEnd\u00a0If<br \/>\nLoop<\/p>\n<p>\u2018New version saved<br \/>\nMsgBox \u201cNew file version saved (version \u201d &amp; x &amp; \u201c)\u201d<\/p>\n<p>Exit\u00a0Sub<\/p>\n<p>\u2018Error Handler<br \/>\nNotSavedYet:<br \/>\nMsgBox \u201cThis file has not been initially saved. \u201d &amp; _<br \/>\n\u201cCannot save a new version!\u201d, vbCritical, \u201cNot Saved To Computer\u201d<\/p>\n<p>End\u00a0Sub<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h1><span class=\"ez-toc-section\" id=\"MA_VBA_VE_VIEC_KIEM_SOAT_PHIEN_BAN_DANH_CHO_MICROSOFT_WORD\"><\/span>M\u00c3 VBA V\u1ec0 VI\u1ec6C KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N D\u00c0NH CHO MICROSOFT WORD<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>\u0110i\u1ec1u duy nh\u1ea5t b\u1ea1n c\u1ea7n thay \u0111\u1ed5i t\u1eeb m\u00e3 VBA Excel \u0111\u1ea7u ti\u00ean ch\u00ednh l\u00e0 thay \u0111\u1ed5i ActiveWorkbook th\u00e0nh ActiveDocument. Nh\u1eefng th\u1ee9 c\u00f2n l\u1ea1i \u0111\u1ec1u gi\u1ed1ng h\u1ec7t!<\/p>\n<p>Xin h\u00e3y l\u01b0u \u00fd r\u1eb1ng b\u1ea1n s\u1ebd c\u1ea7n m\u00e3 FileExist Function (n\u1eb1m g\u1ea7n ph\u00eda tr\u00ean c\u00f9ng b\u00e0i vi\u1ebft n\u00e0y) d\u00e1n v\u00e0o m\u00f4\u0111un m\u00e3. N\u1ebfu b\u1ea1n c\u1ea7n m\u1ed9t b\u00e0i h\u01b0\u1edbng d\u1eabn v\u1ec1 c\u00e1ch ch\u00e8n m\u1ed9t macro v\u00e0o Microsoft Word \u0111\u1ec3 s\u1eed d\u1ee5ng macro n\u00e0y trong b\u1ea5t c\u1ee9 Word Documents n\u00e0o c\u1ee7a b\u1ea1n, b\u1ea1n c\u00f3 th\u1ec3 xem qua b\u00e0i vi\u1ebft m\u00e0 t\u00f4i vi\u1ebft tr\u01b0\u1edbc \u0111\u00e2y c\u00f3 t\u00ean How to Create A Personal Macro File (C\u00e1ch t\u1ea1o m\u1ed9t t\u1ec7p macro c\u00e1 nh\u00e2n).<\/p>\n<table>\n<tbody>\n<tr>\n<td>Sub\u00a0SaveNewVersion_Word()<br \/>\n\u2018PURPOSE: Save file, if already exists add a new version indicator to filename<br \/>\n\u2018SOURCE: www.TheSpreadsheetGuru.com\/The-Code-VaultDim\u00a0FolderPath\u00a0As\u00a0String<br \/>\nDim\u00a0myPath\u00a0As\u00a0String<br \/>\nDim\u00a0SaveName\u00a0As\u00a0String<br \/>\nDim\u00a0SaveExt\u00a0As\u00a0String<br \/>\nDim\u00a0VersionExt\u00a0As\u00a0String<br \/>\nDim\u00a0Saved\u00a0As\u00a0Boolean<br \/>\nDim\u00a0x\u00a0As\u00a0LongTestStr = \u201c\u201d<br \/>\nSaved =\u00a0False<br \/>\nx = 2<\/p>\n<p>\u2018Version Indicator (change to liking)<br \/>\nVersionExt = \u201c_v\u201d<\/p>\n<p>\u2018Pull info about file<br \/>\nOn\u00a0Error\u00a0GoTo\u00a0NotSavedYet<br \/>\nmyPath = ActiveDocument.FullName<br \/>\nmyFileName = Mid(myPath, InStrRev(myPath, \u201c\u201d) + 1, InStrRev(myPath, \u201c.\u201d) \u2013 InStrRev(myPath, \u201c\u201d) \u2013 1)<br \/>\nFolderPath = Left(myPath, InStrRev(myPath, \u201c\u201d))<br \/>\nSaveExt = \u201c.\u201d &amp; Right(myPath, Len(myPath) \u2013 InStrRev(myPath, \u201c.\u201d))<br \/>\nOn\u00a0Error\u00a0GoTo\u00a00<\/p>\n<p>\u2018Determine Base File Name<br \/>\nIf\u00a0InStr(1, myFileName, VersionExt) &gt; 1\u00a0Then<br \/>\nmyArray = Split(myFileName, VersionExt)<br \/>\nSaveName = myArray(0)<br \/>\nElse<br \/>\nSaveName = myFileName<br \/>\nEnd\u00a0If<\/p>\n<p>\u2018Test to see if file name already exists<br \/>\nIf\u00a0FileExist(FolderPath &amp; SaveName &amp; SaveExt) =\u00a0False\u00a0Then<br \/>\nActiveDocument.SaveAs FolderPath &amp; SaveName &amp; SaveExt<br \/>\nExit\u00a0Sub<br \/>\nEnd\u00a0If<\/p>\n<p>\u2018Need a new version made<br \/>\nDo\u00a0While\u00a0Saved =\u00a0False<br \/>\nIf\u00a0FileExist(FolderPath &amp; SaveName &amp; VersionExt &amp; x &amp; SaveExt) =\u00a0False\u00a0Then<br \/>\nActiveDocument.SaveAs FolderPath &amp; SaveName &amp; VersionExt &amp; x &amp; SaveExt<br \/>\nSaved =\u00a0True<br \/>\nElse<br \/>\nx = x + 1<br \/>\nEnd\u00a0If<br \/>\nLoop<\/p>\n<p>\u2018New version saved<br \/>\nMsgBox \u201cNew file version saved (version \u201d &amp; x &amp; \u201c)\u201d<\/p>\n<p>Exit\u00a0Sub<\/p>\n<p>\u2018Error Handler<br \/>\nNotSavedYet:<br \/>\nMsgBox \u201cThis file has not been initially saved. \u201d &amp; _<br \/>\n\u201cCannot save a new version!\u201d, vbCritical, \u201cNot Saved To Computer\u201d<\/p>\n<p>End\u00a0Sub<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h1><span class=\"ez-toc-section\" id=\"MA_VBA_VE_VIEC_KIEM_SOAT_PHIEN_BAN_DANH_CHO_POWERPOINT\"><\/span>M\u00c3 VBA V\u1ec0 VI\u1ec6C KI\u1ec2M SO\u00c1T PHI\u00caN B\u1ea2N D\u00c0NH CHO POWERPOINT<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>C\u0169ng t\u01b0\u01a1ng t\u1ef1 nh\u01b0 phi\u00ean b\u1ea3n Microsoft Word, \u0111i\u1ec1u duy nh\u1ea5t b\u1ea1n c\u1ea7n thay \u0111\u1ed5i t\u1eeb m\u00e3 VBA Excel \u0111\u1ea7u ti\u00ean ch\u00ednh l\u00e0 \u0111\u1ed5i ActiveWorkbook th\u00e0nh ActivePresentation. Nh\u1eefng th\u1ee9 c\u00f2n l\u1ea1i \u0111\u1ec1u gi\u1ed1ng h\u1ec7t!<\/p>\n<p>Xin h\u00e3y l\u01b0u \u00fd r\u1eb1ng b\u1ea1n s\u1ebd c\u1ea7n m\u00e3 FileExist Function (n\u1eb1m g\u1ea7n ph\u00eda tr\u00ean c\u00f9ng b\u00e0i vi\u1ebft n\u00e0y) d\u00e1n v\u00e0o m\u00f4\u0111un m\u00e3. N\u1ebfu b\u1ea1n c\u1ea7n m\u1ed9t b\u00e0i h\u01b0\u1edbng d\u1eabn v\u1ec1 c\u00e1ch ch\u00e8n m\u1ed9t macro v\u00e0o PowerPoint \u0111\u1ec3 s\u1eed d\u1ee5ng macro n\u00e0y trong b\u1ea5t c\u1ee9 b\u00e0i thuy\u1ebft tr\u00ecnh n\u00e0o c\u1ee7a b\u1ea1n, b\u1ea1n c\u00f3 th\u1ec3 xem qua b\u00e0i vi\u1ebft m\u00e0 t\u00f4i vi\u1ebft tr\u01b0\u1edbc \u0111\u00e2y c\u00f3 t\u00ean How to Create A Personal Macro File (C\u00e1ch t\u1ea1o m\u1ed9t t\u1ec7p macro c\u00e1 nh\u00e2n).<\/p>\n<table>\n<tbody>\n<tr>\n<td>Sub\u00a0SaveNewVersion_PowerPoint()<br \/>\n\u2018PURPOSE: Save file, if already exists add a new version indicator to filename<br \/>\n\u2018SOURCE: www.TheSpreadsheetGuru.com\/The-Code-VaultDim\u00a0FolderPath\u00a0As\u00a0String<br \/>\nDim\u00a0myPath\u00a0As\u00a0String<br \/>\nDim\u00a0SaveName\u00a0As\u00a0String<br \/>\nDim\u00a0SaveExt\u00a0As\u00a0String<br \/>\nDim\u00a0VersionExt\u00a0As\u00a0String<br \/>\nDim\u00a0Saved\u00a0As\u00a0Boolean<br \/>\nDim\u00a0x\u00a0As\u00a0LongTestStr = \u201c\u201d<br \/>\nSaved =\u00a0False<br \/>\nx = 2<\/p>\n<p>\u2018Version Indicator (change to liking)<br \/>\nVersionExt = \u201c_v\u201d<\/p>\n<p>\u2018Pull info about file<br \/>\nOn\u00a0Error\u00a0GoTo\u00a0NotSavedYet<br \/>\nmyPath = ActivePresentation.FullName<br \/>\nmyFileName = Mid(myPath, InStrRev(myPath, \u201c\u201d) + 1, InStrRev(myPath, \u201c.\u201d) \u2013 InStrRev(myPath, \u201c\u201d) \u2013 1)<br \/>\nFolderPath = Left(myPath, InStrRev(myPath, \u201c\u201d))<br \/>\nSaveExt = \u201c.\u201d &amp; Right(myPath, Len(myPath) \u2013 InStrRev(myPath, \u201c.\u201d))<br \/>\nOn\u00a0Error\u00a0GoTo\u00a00<\/p>\n<p>\u2018Determine if file has ever been saved<br \/>\nIf\u00a0FolderPath = \u201c\u201d\u00a0Then<br \/>\nMsgBox \u201cThis file has not been initially saved. \u201d &amp; _<br \/>\n\u201cCannot save a new version!\u201d, vbCritical, \u201cNot Saved To Computer\u201d<br \/>\nExit\u00a0Sub<br \/>\nEnd\u00a0If<\/p>\n<p>\u2018Determine Base File Name<br \/>\nIf\u00a0InStr(1, myFileName, VersionExt) &gt; 1\u00a0Then<br \/>\nmyArray = Split(myFileName, VersionExt)<br \/>\nSaveName = myArray(0)<br \/>\nElse<br \/>\nSaveName = myFileName<br \/>\nEnd\u00a0If<\/p>\n<p>\u2018Test to see if file name already exists<br \/>\nIf\u00a0FileExist(FolderPath &amp; SaveName &amp; SaveExt) =\u00a0False\u00a0Then<br \/>\nActivePresentation.SaveAs FolderPath &amp; SaveName &amp; SaveExt<br \/>\nExit\u00a0Sub<br \/>\nEnd\u00a0If<\/p>\n<p>\u2018Need a new version made<br \/>\nDo\u00a0While\u00a0Saved =\u00a0False<br \/>\nIf\u00a0FileExist(FolderPath &amp; SaveName &amp; VersionExt &amp; x &amp; SaveExt) =\u00a0False\u00a0Then<br \/>\nActivePresentation.SaveAs FolderPath &amp; SaveName &amp; VersionExt &amp; x &amp; SaveExt<br \/>\nSaved =\u00a0True<br \/>\nElse<br \/>\nx = x + 1<br \/>\nEnd\u00a0If<br \/>\nLoop<\/p>\n<p>\u2018New version saved<br \/>\nMsgBox \u201cNew file version saved (version \u201d &amp; x &amp; \u201c)\u201d<\/p>\n<p>Exit\u00a0Sub<\/p>\n<p>\u2018Error Handler<br \/>\nNotSavedYet:<br \/>\nMsgBox \u201cThis file has not been initially saved. \u201d &amp; _<br \/>\n\u201cCannot save a new version!\u201d, vbCritical, \u201cNot Saved To Computer\u201d<\/p>\n<p>End\u00a0Sub<\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>\u00a0<\/p>\n<h1><span class=\"ez-toc-section\" id=\"HAY_CHUAN_BI_VA_HAY_CO_TO_CHUC\"><\/span>H\u00c3Y CHU\u1ea8N B\u1eca V\u00c0 H\u00c3Y C\u00d3 T\u1ed4 CH\u1ee8C<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>T\u00f4i kh\u00f4ng th\u1ec3 n\u00f3i cho b\u1ea1n bi\u1ebft r\u1eb1ng vi\u1ec7c gi\u1eef c\u00e1c phi\u00ean b\u1ea3n c\u1ee7a c\u00f9ng m\u1ed9t t\u1ec7p quan tr\u1ecdng \u0111\u1ebfn nh\u01b0\u1eddng n\u00e0o. \u0110i\u1ec1u n\u00e0y kh\u00f4ng ch\u1ec9 gi\u00fap b\u1ea1n ti\u1ebft ki\u1ec7m th\u1eddi gian n\u1ebfu t\u1ec7p hi\u1ec7n th\u1eddi c\u1ee7a b\u1ea1n c\u00f3 l\u1ed7i, m\u00e0 c\u00f2n cho ph\u00e9p b\u1ea1n \u0111i \u0111\u1ebfn phi\u00ean b\u1ea3n tr\u01b0\u1edbc n\u1ebfu b\u1ea1n quy\u1ebft \u0111\u1ecbnh (hay b\u1ecb b\u1eaft bu\u1ed9c) th\u1ef1c hi\u1ec7n d\u1ef1 \u00e1n theo m\u1ed9t h\u01b0\u1edbng ho\u00e0n to\u00e0n m\u1edbi. T\u00f4i \u0111\u00e3 \u0111\u1ec1 c\u1eadp hai l\u1ea7n vi\u1ec7c c\u00f3 t\u1ed5 ch\u1ee9c trong b\u00e0i vi\u1ebft n\u00e0y (SharePoint v\u00e0 vi\u1ec7c t\u1ea1o ph\u1ea7n m\u1edf r\u1ed9ng phi\u00ean b\u1ea3n c\u1ee7a ri\u00eang b\u1ea1n); c\u00f3 c\u00e1c c\u00e1ch hay ch\u01b0\u01a1ng tr\u00ecnh n\u00e0o kh\u00e1c gi\u00fap b\u1ea1n s\u1eafp x\u1ebfp l\u1ecbch s\u1eed t\u1ec7p c\u1ee7a b\u1ea1n kh\u00f4ng? H\u00e3y \u0111\u1ec3 l\u1ea1i b\u00ecnh lu\u1eadn b\u00ean d\u01b0\u1edbi n\u1ebfu b\u1ea1n s\u1eb5n l\u00f2ng chia s\u1ebb! T\u00f4i r\u1ea5t h\u00e1o h\u1ee9c \u0111\u01b0\u1ee3c \u0111\u1ecdc \u00fd ki\u1ebfn c\u1ee7a c\u00e1c b\u1ea1n.<\/p>\n<h1><span class=\"ez-toc-section\" id=\"LAM_THE_NAO_TOI_CO_THE_DIEU_CHINH_CAI_NAY_CHO_PHU_HOP_VOI_NHU_CAU_CUA_MINH\"><\/span>L\u00c0M TH\u1ebe N\u00c0O T\u00d4I C\u00d3 TH\u1ec2 \u0110I\u1ec0U CH\u1ec8NH C\u00c1I N\u00c0Y CHO PH\u00d9 H\u1ee2P V\u1edaI NHU C\u1ea6U C\u1ee6A M\u00ccNH?<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>C\u00f3 nhi\u1ec1u kh\u1ea3 n\u0103ng l\u00e0 b\u00e0i vi\u1ebft n\u00e0y kh\u00f4ng \u0111\u01b0a ra c\u00e2u tr\u1ea3 l\u1eddi m\u00e0 b\u1ea1n mong mu\u1ed1n. T\u1ea5t c\u1ea3 ch\u00fang ta \u0111\u1ec1u c\u00f3 c\u00e1c t\u00ecnh hu\u1ed1ng kh\u00e1c nhau v\u00e0 th\u1eadt s\u1ef1 kh\u00f4ng th\u1ec3 \u0111\u1ec3 \u0111\u00e1p \u1ee9ng h\u1ebft c\u00e1c nhu c\u1ea7u m\u00e0 m\u1ecdi ng\u01b0\u1eddi c\u00f3. \u0110\u00f3 l\u00e0 l\u00fd do t\u00f4i mu\u1ed1n chia s\u1ebb v\u1edbi b\u1ea1n: My Guide to Getting the Solution to your Problems FAST! (H\u01b0\u1edbng d\u1eabn c\u1ee7a t\u00f4i nh\u1eb1m gi\u00fap gi\u1ea3i quy\u1ebft v\u1eabn \u0111\u1ec1 c\u1ee7a b\u1ea1n m\u1ed9t c\u00e1ch nhanh ch\u00f3ng!). Trong b\u00e0i vi\u1ebft n\u00e0y, t\u00f4i \u0111\u00e3 gi\u1ea3i th\u00edch c\u00e1c c\u00e1ch t\u1ed1t nh\u1ea5t m\u00e0 t\u00f4i \u0111\u00e3 ngh\u0129 ra qua c\u00e1c n\u0103m nh\u1eb1m gi\u00fap \u0111\u01b0a ra c\u00e2u tr\u1ea3 l\u1eddi \u0111\u01a1n gi\u1ea3n cho c\u00e1c v\u1ea5n \u0111\u1ec1 ph\u1ee9c t\u1ea1p trong Excel, PowerPoint, VBA, v\u00e0 c\u00f2n nhi\u1ec1u n\u1eefa!<\/p>\n<p>T\u00f4i khuy\u00ean b\u1ea1n n\u00ean xem qua b\u00e0i h\u01b0\u1edbng d\u1eabn \u0111\u00f3 tr\u01b0\u1edbc khi h\u1ecfi t\u00f4i hay b\u1ea5t k\u1ef3 ai trong ph\u1ea7n b\u00ecnh lu\u1eadn b\u00ean d\u01b0\u1edbi nh\u1eb1m gi\u1ea3i quy\u1ebft v\u1ea5n \u0111\u1ec1 c\u1ee5 th\u1ec3 c\u1ee7a ri\u00eang b\u1ea1n. T\u00f4i c\u00f3 th\u1ec3 \u0111\u1ea3m b\u1ea3o r\u1eb1ng h\u1ebft 10 l\u1ea7n th\u00ec c\u00f3 9 l\u1ea7n, m\u1ed9t trong nh\u1eefng ph\u01b0\u01a1ng ph\u00e1p c\u1ee7a t\u00f4i c\u00f3 th\u1ec3 gi\u00fap b\u1ea1n t\u00ecm ra c\u00e2u tr\u1ea3 l\u1eddi nhanh h\u01a1n so v\u1edbi khi b\u1ea1n ch\u1edd t\u00f4i tr\u1ea3 l\u1eddi \u0111\u1ea5y. T\u00f4i n\u1ed7 l\u1ef1c h\u1ebft m\u00ecnh \u0111\u1ec3 gi\u00fap t\u1ea5t c\u1ea3 m\u1ecdi ng\u01b0\u1eddi, nh\u01b0ng \u0111\u00f4i khi t\u00f4i kh\u00f4ng c\u00f3 \u0111\u1ee7 th\u1eddi gian \u0111\u1ec3 tr\u1ea3 l\u1eddi t\u1ea5t c\u1ea3 c\u00e2u h\u1ecfi (ch\u1eb3ng bao gi\u1edd c\u00f3 \u0111\u1ee7 th\u1eddi gian trong m\u1ed9t ng\u00e0y c\u1ea3!).<\/p>\n<p>Ch\u00fac may m\u1eafn v\u00e0 t\u00f4i hy v\u1ecdng b\u00e0i h\u01b0\u1edbng d\u1eabn n\u00e0y s\u1ebd gi\u00fap b\u1ea1n \u0111i \u0111\u00fang h\u01b0\u1edbng!<\/p>\n<p>\u00a0<\/p>\n<p>\u00a0<\/p>\n<\/div>\n<div class=\"uk-panel uk-margin uk-width-xlarge\">\n<p>Click \u0111\u0103ng k\u00fd h\u1ecdc t\u1ea1i:<\/p>\n<p><a href=\"http:\/\/blog.ezworkapp.com\/khoa-hoc\" target=\"_blank\" rel=\"noopener\">T\u1ea5t c\u1ea3 kho\u00e1 h\u1ecdc\u00a0<span>\ud83d\udcd6<\/span><\/a><\/p>\n<p><a href=\"http:\/\/blog.ezworkapp.com\/huong-dan-kich-hoat-khoa-hoc-tai-hoc-excel-online.html\" target=\"_blank\" rel=\"noopener\">H\u01b0\u1edbng d\u1eabn k\u00edch ho\u1ea1t<\/a><\/p>\n<p>HKD H\u1ecdc Excel Online<br \/>S\u1ed1 \u0110K: 17A80048102<\/p>\n<\/div>\n<div class=\"uk-panel uk-text-small uk-margin uk-margin-remove-bottom uk-text-center\">\n<p>\u00a9  document.currentScript.insertAdjacentHTML(&#8216;afterend&#8217;, &#8221; + new Intl.DateTimeFormat(document.documentElement.lang, {year: &#8216;numeric&#8217;}).format() + &#8221;);  H\u1ecdc Excel Online. All rights reserved.<\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"<div class=\"ad-inserterpro\">\n<a href=\"https:\/\/hocexcel.online\/course\/preview\/ex101-excel-tu-co-ban-den-chuyen-gia-danh-cho-nguoi-di-lam\"><br \/>\n<img decoding=\"async\" src=\"http:\/\/blog.ezworkapp.com\/wp-content\/uploads\/2024\/12\/ex101_92019-nho-553.gif\"><br \/>\n<\/a>\n<\/div>\n","protected":false},"author":1,"featured_media":6150,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"class_list":["post-6149","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-excel-nang-cao"],"_links":{"self":[{"href":"https:\/\/blog.ezworkapp.com\/index.php\/wp-json\/wp\/v2\/posts\/6149","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.ezworkapp.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.ezworkapp.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.ezworkapp.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.ezworkapp.com\/index.php\/wp-json\/wp\/v2\/comments?post=6149"}],"version-history":[{"count":0,"href":"https:\/\/blog.ezworkapp.com\/index.php\/wp-json\/wp\/v2\/posts\/6149\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/blog.ezworkapp.com\/index.php\/wp-json\/wp\/v2\/media\/6150"}],"wp:attachment":[{"href":"https:\/\/blog.ezworkapp.com\/index.php\/wp-json\/wp\/v2\/media?parent=6149"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.ezworkapp.com\/index.php\/wp-json\/wp\/v2\/categories?post=6149"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.ezworkapp.com\/index.php\/wp-json\/wp\/v2\/tags?post=6149"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}