PDA

View Full Version : Word Table Marker Problem



heedaf
07-01-2020, 04:00 PM
26896http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAYIAAACvCAYAAADwv9nVAAAPZUlEQVR4Ae3d3W3j yBIG0ElhY9gA5sU57NPFvW8bg1PYDDYDAxuAI3AEk8Ak4Aw2B1 UgRpQJCWrKP40ySNAsES1 HO6pz43pTG/fbgRIECAwKkFvp366B08AQIECHwIAoOAAAECJxcQBCcfAA6fAAECgsAYIECAwMkFBMHJB4DDJ0C AgCAwBggQIHByAUFw8gHg8AkQICAIjAECBAicXEAQnHwAOHwCBAgIAmOAAAECJxcQBCcfAA6fAA ECgsAYIECAwMkFBMHJB4DDJ0CAgCAwBggQIHByAUFw8gHg8AkQICAIjAECBAicXGDxIPjnn38 qveT94nDJ0CAwKoCqwRB5YgiNNwIECBAYD2BzYLgP//93 hRCoJRFgsJECCwmMAmQRAhkPf kQmCvojnBAgQWFZgkyCIQzIjWLZjrZ0AAQL3CqwaBN3if 2xGcG9XacdAQIE5hFYLQjyVNCtn3FIgmCejrUWAgQI3CuwWhDEDl2bBXSXC4J7u047AgQIzCOwa hB0d7lb/LvLBUFXw2MCBAgsL7BJEHRPD/UPURD0RTwnQIDAsgKbBEEckhnBsh1r7QQIELhXYLMguLaDZgTXZCwnQIDAMgKrBEEU98p9mUO1V gIECBAYE1g8CMY2 tWyb9fbgzMAaMAWNgpTHwVVHe4vXofDcCBAgcTaDV2tZkxW0V62iD0vEQILCuQKu1TRCsOw5sjQ CBEwsIgkLnt4pVOARNCRAgMBBotbaZEQy6ygICBAgsIyAICq6tYhUOQVMCBAgMBFqtbWYEg64aX/D3339/fqX158 fvxqMLfv1ogcECBDoCQiCHsitp1WsKM7xnj///PPqan/77bePP/744 rrX72QRf/Hjx /mo4t /WiBwQIEOgJVGtb7 2LPT3EjCCKcwDfKvRfvf6V8FjRH1v21Xq8ToDAeQUEQaHvq1h7DIKcxfz111 jMrE8HLqnokYbWkiAwG4EqrVtrTphRnDnEBr77X9s2Z2r 2wWp7JiYLy/v1 8LZ7H8lunui7e4AkBArsQqAZBHNQadeL0QRBF9/n5 SM Q4hOip/x/N9//70YWGNFf2xZvKm/zizq3c8Xol1sI7b3 /f96jXT6O5f19uNghTwgQ2J3AlCBYo06cOghi2hUFN 5xKiYKe6bv09PTxSAbK/pjy3Kd0eERKNGmGzSvr68X643C320bn3NkIFw09IQAgd0LTAmCOOil68ShgiCwovCO3aMD h8mx/MIgf55 JeXl89i3C3aY0V/bFkW8u57oyPzXF9sL29vb2 f24ntdW8RHLG//RlEt43HBAjsT2BKEKxRJw4VBIF8694NgphuRdv4zT8KbveeQdD9IHes6PeX5bn9/mwih2vONrLA5/v7p4Di9di3eN2NAIHjCMS/6 ptjTpR36vqUUxoX8XKwtkt9P3Nxjq7r d7Yvm1e/fD2uyMLOKx/v6yXGc3QLr7ke1ztpDPBUFXyWMCxxWo1raQWKNOnD4IxmYEUdDjHr/h5y07Y84giECIgdE/NZTb6p yyn3xkwCBfQpMCYI16sRpgyBP43RnCbeGVhbnW0GQnwN8dWooC3zMBK59CNSdjdzaL68RILAfgS lBsEadOG0QxNDJItwt7jmk4gOa6ozg1jozJGKbecsOjmXxIXIMkngc92thku/1kwCB/Qk8EgRL1olTB0EEQHRM3POrnvGbfxThWJa/ucdwu2dGEO3yE/7uOvNbQP1vKOX/Hu4HUU4FY5tuBAgcRyDqQvW2Rp2o71X1KCa0r2Llb9u3TqdEER47DRTvjfflb TxM573i3MGwVg4dJfF4cZ7Yx1xHHGPdUYYdGcYX 1z7GvVYQK1txAgsKJA9d/0WnXiEEGwYj/aFAECBCYLVINg8oaKbxQERTDNCRAgMFVAEBTkWsUqHIKmBAgQGAi0WtvMCAZdZQEBAgSWERAEBd dWsQqHoCkBAgQGAq3WNjOCQVdZQIAAgWUEBEHBNbDcGRgDxoAxsNIYKNTn1ZpG57sRIEDgaAKt1 rYmK26rWEcblI6HAIF1BVqtbYJg3XFgawQInFhAEBQ6v1WswiFoSoAAgYFAq7XNjGDQVRYQIEBg GQFBUHBtFatwCJoSIEBgINBqbTMjGHSVBQQIEFhGQBAUXKtYX/2p1tj02J hzj8V3f8z0nHBmPgb4HEhiNiX/j3W5UaAAIGqQLW2Vdc/tf0hZgR5gZmx6w0kTHRA//WxIIgQyAvTdAMgL1zjOgEp6icBAlUBQVAQq2JNDYKxXcqrAXVDIB7nhWryAjVj77WMAAECtwSqt S3PdkRdGrtlveqf1Rhre2vZqWcEYzD5G78gGNOxjACBRwSqQRDbyjMX3SscxvJ4HuuL1x 9nToI8rf7bpoKgkeHlPcTIHBNYEoQxOnq FwyPrPMzy3zcSyP1x 9CYLOaZ/AzAvNmxE8OrS8nwCBvsCUIIh1ZAD0P6uM5XPcDhUEgRK/5Y/dowP6HxbnjCDP/wdoTLciZQXBHMPLOggQ6ApMCYK3t7fPevTy8tJd1a9fWrv166JB4cmhgqBfvPvP7wmCsIswiOTt BkJiZ3gUjDUlQIDAp8CUIMia0z8FFDUp1hevP3o7VBD0C30XJ8D6rydwFvlu 3yc2Nkm35Ov 0mAAIF7BQTBvVIfH58pV2jdXOsULfXcfY61nUs8h32 djQZASfhIg8KjAlCB4fX0dPTWU9av7ZZep 2dG0PuwuA8pCPoinhMgMFVgShDEKaFrHxbP8dXROBZBIAimjmnvI0CgKPBIEEQY5OeW8Tju8VcQ 5rgJAkEwxziyDgIE7hCYEgT5v4f7p7DzlFGcInr0doggyP GfWuaFEl67cPiW fYnBp6dIh5PwECKVANgq9qW9S06jpzX7o/DxEE3QOa 7EgmFvU gicV2COor2EniD4QlUQfAHkZQIE7hYQBHdT1b8 Wlh1uWlOzfL8XH5lq7wibyBA4PQCgqAwBFrFKhyCpgQIEBgItFrbnBoadJUFBAgQWEZAEBRcW8U qHIKmBAgQGAi0Wtt2PyNoFXYwAiwgQOD0Aq3WK0Fw qEJgACBtQQEQUG6glVpW9gFTQkQIDC7QKv1yoxg9q62QgIECIwLCIJxl9GlFaxK29GNWUiAAIGV BFqtV2YEKw0AmyFAgIAgKIyBClalbWEXNCVAgMDsAq3WKzOC2bvaCgkQIDAuIAjGXUaXVrAqbUc 3ZiEBAgRWEmi1Xu1 RvD9 /fPv8cdF28Yu VFHW5dc2DsfZYRIEBgbgFBUBCtYEXbuCBN/Hx/f7/YSjzP1y9e8IQAAQIbCFRq25q7t/sZQcDGxZ3jCmR5Hc9Ylo9jebzuRoAAga0FBEGhBypY2TYKfzx fn7 iGsG5CXcYrkbAQIEWhDIetXCvnT34RAzgre3t88QeHl56R7bZygEfF5U5uJFTwgQILCygCAogFe wom1eNax/CigvMxmvuxEgQGBrgUptW3NfDzEjEARrDhnbIkBgqoAgKMhVsKLt6 vr6KmhDAhfHS3ga0qAwGICldq22E6MrPgQM4I4JXTtw L4aqkbAQIEWhAQBIVeqGBF2wyCCIP4umgsi8dxf3p6KmxZUwIECCwnUKlty 3FcM2HmBHk/x7ufzsoTxn5sHjY8ZYQILC gCAomFew8k9MXDsFlP foLB5TQkQILCIQKW2LbIDV1Z6iBnBlWOzmAABAk0JCIJCd1SwKm0Lu6ApAQIEZhdotV6ZEcze1V ZIgACBcQFBMO4yurSCVWk7ujELCRAgsJJAq/XKjGClAWAzBAgQEASFMVDBqrQt7IKmBAgQmF2g1XrV7IwgwNwZGAPGgDGwwhiYPfJmWGF0vBsBA gSOJtBqbWuy4raKdbRB6XgIEFhXoNXaJgjWHQe2RoDAiQUEQaHzW8UqHIKmBAgQGAi0WtvMCAZd ZQEBAgSWERAEBddWsQqHoCkBAgQGAq3WNjOCQVdZQIAAgWUEBEHBtVWswiFoSoAAgYFAq7XNjGD QVRYQIEBgGQFBUHCtYMWF6aN9XKVs7JZXL3MB zEdywgQWFOgUttiv9aqb4eYEcTVyQL4/f39ok/jeSy/dvWyi8aeECBAYGGBahDE7qxR3w4RBHHx rhofV6wPrDzcSyP190IECCwtcCUIFijvh0iCKJzo/AH8vPz80dcrD6vVRzL3QgQINCCwJQgiP1eur4dIgje3t4 Q Dl5eWiryMUAv7Hjx8Xyz0hQIDAFgJTgmCN naIIIgZQAD3TwFFAMTyeN2NAAECWwtMCYI16psg2Hpk2D4BAqcREASFrq5ivb6 jp4ayiT11dECvqYECCwmUK1tsSNr1LdDzAjilNC1D1N8dXSxMW3FBAgUBaYEwRr17VBBEGEQXxc N7Hgc96enp2JXaU6AAIFlBB4JgiXr2yGCIP/3cP/bQTml8mHxMoPaWgkQqAlMCYI16tvugyD/C/a1U0D5/wlq3aU1AQIE5heoBsFa9W33QTB/V1kjAQIElhGoBsEyezFcqyAYmlhCgACBRQQEQYG1VazCIWhKgACBgUCrtc2MYNBVFhAgQGAZAUF QcG0Vq3AImhIgQGAg0Gpta3ZGEGDuDIwBY8AYWGEMDCLLAgIECBA4lUCTM4JT9YCDJUCAwMYCgm DjDrB5AgQIbC0gCLbuAdsnQIDAxgKCYOMOsHkCBAhsLSAItu4B2ydAgMDGAoJg4w6weQIECGwt0 HQQxAUZ4k wxt/hHvsucVx7wI0AAQIEHhNoNggiBOKiMv0AeH5 /rwYvT8v/VjHezcBAgRSoNkgyIsx9IMgLz6T1yPOA/GTAAECBKYJNBsE Ru/IJjWsd5FgACBewUEwb1S2hEgQOCgAs0GQXwW0J8NxHOnhg46Eh0WAQKbCTQbBO/v7x/xraB GAiCzcaKDRMgcFCBZoMgvCMMYmbQDQRBcNCR6LAIENhMoOkg6KpEADg11BXxmAABAvMICIJ5HK2 FAAECuxUQBLvtOjtOgACBeQQEwTyO1kKAAIHdCgiC3XadHSdAgMA8AoJgHkdrIUCAwG4FBMFuu8 6OEyBAYB4BQTCPo7UQIEBgtwK7CYKfP3/6fwS7HWZ2nACBlgV2EwQtI9o3AgQI7FlAEOy59 w7AQIEZhAQBDMgWgUBAgT2LCAI9tx79p0AAQIzCAiCGRCtggABAnsWEAR77j37ToAAgRkEBMEMi FZBgACBPQsIgj33nn0nQIDADAKCYAZEqyBAgMCeBQTBnnvPvhMgQGAGgf8DGExCb1jpeEEAAAAA SUVORK5CYII=
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAYIAAACvCAYAAADwv9nVAAAPZUlEQVR4Ae3d3W3j yBIG0ElhY9gA5sU57NPFvW8bg1PYDDYDAxuAI3AEk8Ak4Aw2B1 UgRpQJCWrKP40ySNAsES1 HO6pz43pTG/fbgRIECAwKkFvp366B08AQIECHwIAoOAAAECJxcQBCcfAA6fAAECgsAYIECAwMkFBMHJB4DDJ0C AgCAwBggQIHByAUFw8gHg8AkQICAIjAECBAicXEAQnHwAOHwCBAgIAmOAAAECJxcQBCcfAA6fAA ECgsAYIECAwMkFBMHJB4DDJ0CAgCAwBggQIHByAUFw8gHg8AkQICAIjAECBAicXGDxIPjnn38 qveT94nDJ0CAwKoCqwRB5YgiNNwIECBAYD2BzYLgP//93 hRCoJRFgsJECCwmMAmQRAhkPf kQmCvojnBAgQWFZgkyCIQzIjWLZjrZ0AAQL3CqwaBN3if 2xGcG9XacdAQIE5hFYLQjyVNCtn3FIgmCejrUWAgQI3CuwWhDEDl2bBXSXC4J7u047AgQIzCOwa hB0d7lb/LvLBUFXw2MCBAgsL7BJEHRPD/UPURD0RTwnQIDAsgKbBEEckhnBsh1r7QQIELhXYLMguLaDZgTXZCwnQIDAMgKrBEEU98p9mUO1V gIECBAYE1g8CMY2 tWyb9fbgzMAaMAWNgpTHwVVHe4vXofDcCBAgcTaDV2tZkxW0V62iD0vEQILCuQKu1TRCsOw5sjQ CBEwsIgkLnt4pVOARNCRAgMBBotbaZEQy6ygICBAgsIyAICq6tYhUOQVMCBAgMBFqtbWYEg64aX/D3339/fqX158 fvxqMLfv1ogcECBDoCQiCHsitp1WsKM7xnj///PPqan/77bePP/744 rrX72QRf/Hjx /mo4t /WiBwQIEOgJVGtb7 2LPT3EjCCKcwDfKvRfvf6V8FjRH1v21Xq8ToDAeQUEQaHvq1h7DIKcxfz111 jMrE8HLqnokYbWkiAwG4EqrVtrTphRnDnEBr77X9s2Z2r 2wWp7JiYLy/v1 8LZ7H8lunui7e4AkBArsQqAZBHNQadeL0QRBF9/n5 SM Q4hOip/x/N9//70YWGNFf2xZvKm/zizq3c8Xol1sI7b3 /f96jXT6O5f19uNghTwgQ2J3AlCBYo06cOghi2hUFN 5xKiYKe6bv09PTxSAbK/pjy3Kd0eERKNGmGzSvr68X643C320bn3NkIFw09IQAgd0LTAmCOOil68ShgiCwovCO3aMD h8mx/MIgf55 JeXl89i3C3aY0V/bFkW8u57oyPzXF9sL29vb2 f24ntdW8RHLG//RlEt43HBAjsT2BKEKxRJw4VBIF8694NgphuRdv4zT8KbveeQdD9IHes6PeX5bn9/mwih2vONrLA5/v7p4Di9di3eN2NAIHjCMS/6 ptjTpR36vqUUxoX8XKwtkt9P3Nxjq7r d7Yvm1e/fD2uyMLOKx/v6yXGc3QLr7ke1ztpDPBUFXyWMCxxWo1raQWKNOnD4IxmYEUdDjHr/h5y07Y84giECIgdE/NZTb6p yyn3xkwCBfQpMCYI16sRpgyBP43RnCbeGVhbnW0GQnwN8dWooC3zMBK59CNSdjdzaL68RILAfgS lBsEadOG0QxNDJItwt7jmk4gOa6ozg1jozJGKbecsOjmXxIXIMkngc92thku/1kwCB/Qk8EgRL1olTB0EEQHRM3POrnvGbfxThWJa/ucdwu2dGEO3yE/7uOvNbQP1vKOX/Hu4HUU4FY5tuBAgcRyDqQvW2Rp2o71X1KCa0r2Llb9u3TqdEER47DRTvjfflb TxM573i3MGwVg4dJfF4cZ7Yx1xHHGPdUYYdGcYX 1z7GvVYQK1txAgsKJA9d/0WnXiEEGwYj/aFAECBCYLVINg8oaKbxQERTDNCRAgMFVAEBTkWsUqHIKmBAgQGAi0WtvMCAZdZQEBAgSWERAEBd dWsQqHoCkBAgQGAq3WNjOCQVdZQIAAgWUEBEHBNbDcGRgDxoAxsNIYKNTn1ZpG57sRIEDgaAKt1 rYmK26rWEcblI6HAIF1BVqtbYJg3XFgawQInFhAEBQ6v1WswiFoSoAAgYFAq7XNjGDQVRYQIEBg GQFBUHBtFatwCJoSIEBgINBqbTMjGHSVBQQIEFhGQBAUXKtYX/2p1tj02J hzj8V3f8z0nHBmPgb4HEhiNiX/j3W5UaAAIGqQLW2Vdc/tf0hZgR5gZmx6w0kTHRA//WxIIgQyAvTdAMgL1zjOgEp6icBAlUBQVAQq2JNDYKxXcqrAXVDIB7nhWryAjVj77WMAAECtwSqt S3PdkRdGrtlveqf1Rhre2vZqWcEYzD5G78gGNOxjACBRwSqQRDbyjMX3SscxvJ4HuuL1x 9nToI8rf7bpoKgkeHlPcTIHBNYEoQxOnq FwyPrPMzy3zcSyP1x 9CYLOaZ/AzAvNmxE8OrS8nwCBvsCUIIh1ZAD0P6uM5XPcDhUEgRK/5Y/dowP6HxbnjCDP/wdoTLciZQXBHMPLOggQ6ApMCYK3t7fPevTy8tJd1a9fWrv166JB4cmhgqBfvPvP7wmCsIswiOTt BkJiZ3gUjDUlQIDAp8CUIMia0z8FFDUp1hevP3o7VBD0C30XJ8D6rydwFvlu 3yc2Nkm35Ov 0mAAIF7BQTBvVIfH58pV2jdXOsULfXcfY61nUs8h32 djQZASfhIg8KjAlCB4fX0dPTWU9av7ZZep 2dG0PuwuA8pCPoinhMgMFVgShDEKaFrHxbP8dXROBZBIAimjmnvI0CgKPBIEEQY5OeW8Tju8VcQ 5rgJAkEwxziyDgIE7hCYEgT5v4f7p7DzlFGcInr0doggyP GfWuaFEl67cPiW fYnBp6dIh5PwECKVANgq9qW9S06jpzX7o/DxEE3QOa 7EgmFvU gicV2COor2EniD4QlUQfAHkZQIE7hYQBHdT1b8 Wlh1uWlOzfL8XH5lq7wibyBA4PQCgqAwBFrFKhyCpgQIEBgItFrbnBoadJUFBAgQWEZAEBRcW8U qHIKmBAgQGAi0Wtt2PyNoFXYwAiwgQOD0Aq3WK0Fw qEJgACBtQQEQUG6glVpW9gFTQkQIDC7QKv1yoxg9q62QgIECIwLCIJxl9GlFaxK29GNWUiAAIGV BFqtV2YEKw0AmyFAgIAgKIyBClalbWEXNCVAgMDsAq3WKzOC2bvaCgkQIDAuIAjGXUaXVrAqbUc 3ZiEBAgRWEmi1Xu1 RvD9 /fPv8cdF28Yu VFHW5dc2DsfZYRIEBgbgFBUBCtYEXbuCBN/Hx/f7/YSjzP1y9e8IQAAQIbCFRq25q7t/sZQcDGxZ3jCmR5Hc9Ylo9jebzuRoAAga0FBEGhBypY2TYKfzx fn7 iGsG5CXcYrkbAQIEWhDIetXCvnT34RAzgre3t88QeHl56R7bZygEfF5U5uJFTwgQILCygCAogFe wom1eNax/CigvMxmvuxEgQGBrgUptW3NfDzEjEARrDhnbIkBgqoAgKMhVsKLt6 vr6KmhDAhfHS3ga0qAwGICldq22E6MrPgQM4I4JXTtw L4aqkbAQIEWhAQBIVeqGBF2wyCCIP4umgsi8dxf3p6KmxZUwIECCwnUKlty 3FcM2HmBHk/x7ufzsoTxn5sHjY8ZYQILC gCAomFew8k9MXDsFlP foLB5TQkQILCIQKW2LbIDV1Z6iBnBlWOzmAABAk0JCIJCd1SwKm0Lu6ApAQIEZhdotV6ZEcze1V ZIgACBcQFBMO4yurSCVWk7ujELCRAgsJJAq/XKjGClAWAzBAgQEASFMVDBqrQt7IKmBAgQmF2g1XrV7IwgwNwZGAPGgDGwwhiYPfJmWGF0vBsBA gSOJtBqbWuy4raKdbRB6XgIEFhXoNXaJgjWHQe2RoDAiQUEQaHzW8UqHIKmBAgQGAi0WtvMCAZd ZQEBAgSWERAEBddWsQqHoCkBAgQGAq3WNjOCQVdZQIAAgWUEBEHBtVWswiFoSoAAgYFAq7XNjGD QVRYQIEBgGQFBUHCtYMWF6aN9XKVs7JZXL3MB zEdywgQWFOgUttiv9aqb4eYEcTVyQL4/f39ok/jeSy/dvWyi8aeECBAYGGBahDE7qxR3w4RBHHx rhofV6wPrDzcSyP190IECCwtcCUIFijvh0iCKJzo/AH8vPz80dcrD6vVRzL3QgQINCCwJQgiP1eur4dIgje3t4 Q Dl5eWiryMUAv7Hjx8Xyz0hQIDAFgJTgmCN naIIIgZQAD3TwFFAMTyeN2NAAECWwtMCYI16psg2Hpk2D4BAqcREASFrq5ivb6 jp4ayiT11dECvqYECCwmUK1tsSNr1LdDzAjilNC1D1N8dXSxMW3FBAgUBaYEwRr17VBBEGEQXxc N7Hgc96enp2JXaU6AAIFlBB4JgiXr2yGCIP/3cP/bQTml8mHxMoPaWgkQqAlMCYI16tvugyD/C/a1U0D5/wlq3aU1AQIE5heoBsFa9W33QTB/V1kjAQIElhGoBsEyezFcqyAYmlhCgACBRQQEQYG1VazCIWhKgACBgUCrtc2MYNBVFhAgQGAZAUF QcG0Vq3AImhIgQGAg0Gpta3ZGEGDuDIwBY8AYWGEMDCLLAgIECBA4lUCTM4JT9YCDJUCAwMYCgm DjDrB5AgQIbC0gCLbuAdsnQIDAxgKCYOMOsHkCBAhsLSAItu4B2ydAgMDGAoJg4w6weQIECGwt0 HQQxAUZ4k wxt/hHvsucVx7wI0AAQIEHhNoNggiBOKiMv0AeH5 /rwYvT8v/VjHezcBAgRSoNkgyIsx9IMgLz6T1yPOA/GTAAECBKYJNBsE Ru/IJjWsd5FgACBewUEwb1S2hEgQOCgAs0GQXwW0J8NxHOnhg46Eh0WAQKbCTQbBO/v7x/xraB GAiCzcaKDRMgcFCBZoMgvCMMYmbQDQRBcNCR6LAIENhMoOkg6KpEADg11BXxmAABAvMICIJ5HK2 FAAECuxUQBLvtOjtOgACBeQQEwTyO1kKAAIHdCgiC3XadHSdAgMA8AoJgHkdrIUCAwG4FBMFuu8 6OEyBAYB4BQTCPo7UQIEBgtwK7CYKfP3/6fwS7HWZ2nACBlgV2EwQtI9o3AgQI7FlAEOy59 w7AQIEZhAQBDMgWgUBAgT2LCAI9tx79p0AAQIzCAiCGRCtggABAnsWEAR77j37ToAAgRkEBMEMi FZBgACBPQsIgj33nn0nQIDADAKCYAZEqyBAgMCeBQTBnnvPvhMgQGAGgf8DGExCb1jpeEEAAAAA SUVORK5CYII=

http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAYIAAACvCAYAAADwv9nVAAAPZUlEQVR4Ae3d3W3j yBIG0ElhY9gA5sU57NPFvW8bg1PYDDYDAxuAI3AEk8Ak4Aw2B1 UgRpQJCWrKP40ySNAsES1 HO6pz43pTG/fbgRIECAwKkFvp366B08AQIECHwIAoOAAAECJxcQBCcfAA6fAAECgsAYIECAwMkFBMHJB4DDJ0C AgCAwBggQIHByAUFw8gHg8AkQICAIjAECBAicXEAQnHwAOHwCBAgIAmOAAAECJxcQBCcfAA6fAA ECgsAYIECAwMkFBMHJB4DDJ0CAgCAwBggQIHByAUFw8gHg8AkQICAIjAECBAicXGDxIPjnn38 qveT94nDJ0CAwKoCqwRB5YgiNNwIECBAYD2BzYLgP//93 hRCoJRFgsJECCwmMAmQRAhkPf kQmCvojnBAgQWFZgkyCIQzIjWLZjrZ0AAQL3CqwaBN3if 2xGcG9XacdAQIE5hFYLQjyVNCtn3FIgmCejrUWAgQI3CuwWhDEDl2bBXSXC4J7u047AgQIzCOwa hB0d7lb/LvLBUFXw2MCBAgsL7BJEHRPD/UPURD0RTwnQIDAsgKbBEEckhnBsh1r7QQIELhXYLMguLaDZgTXZCwnQIDAMgKrBEEU98p9mUO1V gIECBAYE1g8CMY2 tWyb9fbgzMAaMAWNgpTHwVVHe4vXofDcCBAgcTaDV2tZkxW0V62iD0vEQILCuQKu1TRCsOw5sjQ CBEwsIgkLnt4pVOARNCRAgMBBotbaZEQy6ygICBAgsIyAICq6tYhUOQVMCBAgMBFqtbWYEg64aX/D3339/fqX158 fvxqMLfv1ogcECBDoCQiCHsitp1WsKM7xnj///PPqan/77bePP/744 rrX72QRf/Hjx /mo4t /WiBwQIEOgJVGtb7 2LPT3EjCCKcwDfKvRfvf6V8FjRH1v21Xq8ToDAeQUEQaHvq1h7DIKcxfz111 jMrE8HLqnokYbWkiAwG4EqrVtrTphRnDnEBr77X9s2Z2r 2wWp7JiYLy/v1 8LZ7H8lunui7e4AkBArsQqAZBHNQadeL0QRBF9/n5 SM Q4hOip/x/N9//70YWGNFf2xZvKm/zizq3c8Xol1sI7b3 /f96jXT6O5f19uNghTwgQ2J3AlCBYo06cOghi2hUFN 5xKiYKe6bv09PTxSAbK/pjy3Kd0eERKNGmGzSvr68X643C320bn3NkIFw09IQAgd0LTAmCOOil68ShgiCwovCO3aMD h8mx/MIgf55 JeXl89i3C3aY0V/bFkW8u57oyPzXF9sL29vb2 f24ntdW8RHLG//RlEt43HBAjsT2BKEKxRJw4VBIF8694NgphuRdv4zT8KbveeQdD9IHes6PeX5bn9/mwih2vONrLA5/v7p4Di9di3eN2NAIHjCMS/6 ptjTpR36vqUUxoX8XKwtkt9P3Nxjq7r d7Yvm1e/fD2uyMLOKx/v6yXGc3QLr7ke1ztpDPBUFXyWMCxxWo1raQWKNOnD4IxmYEUdDjHr/h5y07Y84giECIgdE/NZTb6p yyn3xkwCBfQpMCYI16sRpgyBP43RnCbeGVhbnW0GQnwN8dWooC3zMBK59CNSdjdzaL68RILAfgS lBsEadOG0QxNDJItwt7jmk4gOa6ozg1jozJGKbecsOjmXxIXIMkngc92thku/1kwCB/Qk8EgRL1olTB0EEQHRM3POrnvGbfxThWJa/ucdwu2dGEO3yE/7uOvNbQP1vKOX/Hu4HUU4FY5tuBAgcRyDqQvW2Rp2o71X1KCa0r2Llb9u3TqdEER47DRTvjfflb TxM573i3MGwVg4dJfF4cZ7Yx1xHHGPdUYYdGcYX 1z7GvVYQK1txAgsKJA9d/0WnXiEEGwYj/aFAECBCYLVINg8oaKbxQERTDNCRAgMFVAEBTkWsUqHIKmBAgQGAi0WtvMCAZdZQEBAgSWERAEBd dWsQqHoCkBAgQGAq3WNjOCQVdZQIAAgWUEBEHBNbDcGRgDxoAxsNIYKNTn1ZpG57sRIEDgaAKt1 rYmK26rWEcblI6HAIF1BVqtbYJg3XFgawQInFhAEBQ6v1WswiFoSoAAgYFAq7XNjGDQVRYQIEBg GQFBUHBtFatwCJoSIEBgINBqbTMjGHSVBQQIEFhGQBAUXKtYX/2p1tj02J hzj8V3f8z0nHBmPgb4HEhiNiX/j3W5UaAAIGqQLW2Vdc/tf0hZgR5gZmx6w0kTHRA//WxIIgQyAvTdAMgL1zjOgEp6icBAlUBQVAQq2JNDYKxXcqrAXVDIB7nhWryAjVj77WMAAECtwSqt S3PdkRdGrtlveqf1Rhre2vZqWcEYzD5G78gGNOxjACBRwSqQRDbyjMX3SscxvJ4HuuL1x 9nToI8rf7bpoKgkeHlPcTIHBNYEoQxOnq FwyPrPMzy3zcSyP1x 9CYLOaZ/AzAvNmxE8OrS8nwCBvsCUIIh1ZAD0P6uM5XPcDhUEgRK/5Y/dowP6HxbnjCDP/wdoTLciZQXBHMPLOggQ6ApMCYK3t7fPevTy8tJd1a9fWrv166JB4cmhgqBfvPvP7wmCsIswiOTt BkJiZ3gUjDUlQIDAp8CUIMia0z8FFDUp1hevP3o7VBD0C30XJ8D6rydwFvlu 3yc2Nkm35Ov 0mAAIF7BQTBvVIfH58pV2jdXOsULfXcfY61nUs8h32 djQZASfhIg8KjAlCB4fX0dPTWU9av7ZZep 2dG0PuwuA8pCPoinhMgMFVgShDEKaFrHxbP8dXROBZBIAimjmnvI0CgKPBIEEQY5OeW8Tju8VcQ 5rgJAkEwxziyDgIE7hCYEgT5v4f7p7DzlFGcInr0doggyP GfWuaFEl67cPiW fYnBp6dIh5PwECKVANgq9qW9S06jpzX7o/DxEE3QOa 7EgmFvU gicV2COor2EniD4QlUQfAHkZQIE7hYQBHdT1b8 Wlh1uWlOzfL8XH5lq7wibyBA4PQCgqAwBFrFKhyCpgQIEBgItFrbnBoadJUFBAgQWEZAEBRcW8U qHIKmBAgQGAi0Wtt2PyNoFXYwAiwgQOD0Aq3WK0Fw qEJgACBtQQEQUG6glVpW9gFTQkQIDC7QKv1yoxg9q62QgIECIwLCIJxl9GlFaxK29GNWUiAAIGV BFqtV2YEKw0AmyFAgIAgKIyBClalbWEXNCVAgMDsAq3WKzOC2bvaCgkQIDAuIAjGXUaXVrAqbUc 3ZiEBAgRWEmi1Xu1 RvD9 /fPv8cdF28Yu VFHW5dc2DsfZYRIEBgbgFBUBCtYEXbuCBN/Hx/f7/YSjzP1y9e8IQAAQIbCFRq25q7t/sZQcDGxZ3jCmR5Hc9Ylo9jebzuRoAAga0FBEGhBypY2TYKfzx fn7 iGsG5CXcYrkbAQIEWhDIetXCvnT34RAzgre3t88QeHl56R7bZygEfF5U5uJFTwgQILCygCAogFe wom1eNax/CigvMxmvuxEgQGBrgUptW3NfDzEjEARrDhnbIkBgqoAgKMhVsKLt6 vr6KmhDAhfHS3ga0qAwGICldq22E6MrPgQM4I4JXTtw L4aqkbAQIEWhAQBIVeqGBF2wyCCIP4umgsi8dxf3p6KmxZUwIECCwnUKlty 3FcM2HmBHk/x7ufzsoTxn5sHjY8ZYQILC gCAomFew8k9MXDsFlP foLB5TQkQILCIQKW2LbIDV1Z6iBnBlWOzmAABAk0JCIJCd1SwKm0Lu6ApAQIEZhdotV6ZEcze1V ZIgACBcQFBMO4yurSCVWk7ujELCRAgsJJAq/XKjGClAWAzBAgQEASFMVDBqrQt7IKmBAgQmF2g1XrV7IwgwNwZGAPGgDGwwhiYPfJmWGF0vBsBA gSOJtBqbWuy4raKdbRB6XgIEFhXoNXaJgjWHQe2RoDAiQUEQaHzW8UqHIKmBAgQGAi0WtvMCAZd ZQEBAgSWERAEBddWsQqHoCkBAgQGAq3WNjOCQVdZQIAAgWUEBEHBtVWswiFoSoAAgYFAq7XNjGD QVRYQIEBgGQFBUHCtYMWF6aN9XKVs7JZXL3MB zEdywgQWFOgUttiv9aqb4eYEcTVyQL4/f39ok/jeSy/dvWyi8aeECBAYGGBahDE7qxR3w4RBHHx rhofV6wPrDzcSyP190IECCwtcCUIFijvh0iCKJzo/AH8vPz80dcrD6vVRzL3QgQINCCwJQgiP1eur4dIgje3t4 Q Dl5eWiryMUAv7Hjx8Xyz0hQIDAFgJTgmCN naIIIgZQAD3TwFFAMTyeN2NAAECWwtMCYI16psg2Hpk2D4BAqcREASFrq5ivb6 jp4ayiT11dECvqYECCwmUK1tsSNr1LdDzAjilNC1D1N8dXSxMW3FBAgUBaYEwRr17VBBEGEQXxc N7Hgc96enp2JXaU6AAIFlBB4JgiXr2yGCIP/3cP/bQTml8mHxMoPaWgkQqAlMCYI16tvugyD/C/a1U0D5/wlq3aU1AQIE5heoBsFa9W33QTB/V1kjAQIElhGoBsEyezFcqyAYmlhCgACBRQQEQYG1VazCIWhKgACBgUCrtc2MYNBVFhAgQGAZAUF QcG0Vq3AImhIgQGAg0Gpta3ZGEGDuDIwBY8AYWGEMDCLLAgIECBA4lUCTM4JT9YCDJUCAwMYCgm DjDrB5AgQIbC0gCLbuAdsnQIDAxgKCYOMOsHkCBAhsLSAItu4B2ydAgMDGAoJg4w6weQIECGwt0 HQQxAUZ4k wxt/hHvsucVx7wI0AAQIEHhNoNggiBOKiMv0AeH5 /rwYvT8v/VjHezcBAgRSoNkgyIsx9IMgLz6T1yPOA/GTAAECBKYJNBsE Ru/IJjWsd5FgACBewUEwb1S2hEgQOCgAs0GQXwW0J8NxHOnhg46Eh0WAQKbCTQbBO/v7x/xraB GAiCzcaKDRMgcFCBZoMgvCMMYmbQDQRBcNCR6LAIENhMoOkg6KpEADg11BXxmAABAvMICIJ5HK2 FAAECuxUQBLvtOjtOgACBeQQEwTyO1kKAAIHdCgiC3XadHSdAgMA8AoJgHkdrIUCAwG4FBMFuu8 6OEyBAYB4BQTCPo7UQIEBgtwK7CYKfP3/6fwS7HWZ2nACBlgV2EwQtI9o3AgQI7FlAEOy59 w7AQIEZhAQBDMgWgUBAgT2LCAI9tx79p0AAQIzCAiCGRCtggABAnsWEAR77j37ToAAgRkEBMEMi FZBgACBPQsIgj33nn0nQIDADAKCYAZEqyBAgMCeBQTBnnvPvhMgQGAGgf8DGExCb1jpeEEAAAAA SUVORK5CYII=
Above is a screen shot from a table in Word. I'm trying to remove any extra paragraph markers. Problem is when I search on vbcr it detects one in the first cell and two in the second cell. Seems like the marker to right of "Hello" would have its own ASCII number but it just reflects as a vbcr (13). Any idea on why?

gmayor
07-02-2020, 12:39 AM
Set a range to the cell that excludes the last (cell end) character then delete any paragraph breaks from the end of the range e.g.


Sub Macro1()
Dim oTable As Table
Dim oCell As Cell
Dim oRng As Range
Set oTable = Selection.Tables(1)
For Each oCell In oTable.Range.Cells
Set oRng = oCell.Range
oRng.End = oRng.End - 1
Do While oRng.Characters.Last = Chr(13)
oRng.Characters.Last.Delete
Loop
Next oCell
lbl_Exit:
Set oRng = Nothing
Set oCell = Nothing
Set oTable = Nothing
Exit Sub
End Sub

gmaxey
07-02-2020, 08:02 AM
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Dim lngIndex As Long
Set oRng = ActiveDocument.Tables(1).Cell(1, 1).Range
MsgBox Len(oRng.Text) 'Len returns the "length" of (or number of characters in) the text string and in this case returns 7.
'Hello has only five characters. So the string length of the last end of cell mark MUST be 2!!
'What are those last 2 characters?
For lngIndex = 6 To 7
MsgBox Asc(Mid(oRng.Text, lngIndex, 1)) 'Asc character 13 (what we think of as a paragraph mark) and Asc character 7.
'The two combined constitute the end of cell mark.
Next lngIndex
'Move the range backwards by 1
oRng.End = oRng.End - 1
MsgBox Len(oRng.Text) 'Returns 5 (Hello has five characters). So the "Range" width of the end of cell marker is only 1!!
lbl_Exit:
Exit Sub
End Sub

That doesn't exactly answer your question, but hopefully illustrates that the end of cell/end of row markers are certainly a bit odd and mysterious. There is no "Thing" we can use in VBA to find the end of cell or end of row markers. However if we understand something about them, then we can achieve most goals like yours (illustrated by Graham above) or because when know that the end of cell\end of row marks have a string length = 2:

If Len(ActiveDocument.Tables(1).Rows(3).Range.Text = 6 Then Msgbox "The third table row is empty"

Assuming your illustrated table has just the two columns showing.